use Set::Scalar;
print "1..2\n";
my $s = Set::Scalar->new(0..99);
$s->clear;
print "not " unless $s->is_null;
print "ok 1\n";
print "not " unless $s->members == 0;
print "ok 2\n";
use Set::Scalar;
print "1..2\n";
my $s = Set::Scalar->new(0..99);
$s->clear;
print "not " unless $s->is_null;
print "ok 1\n";
print "not " unless $s->members == 0;
print "ok 2\n";