use Set::Scalar;
use Set::Scalar::Universe;
use strict;
print "1..7\n";
my $s1 = Set::Scalar->new("a".."e");
my $u1 = $s1->universe;
my $u2 = Set::Scalar::Universe->new;
$u2->enter;
my $s2 = Set::Scalar->new("f".."j");
print "not " if $u1 == $u2;
print "ok 1\n";
print "not " unless $s1->universe eq "[a b c d e]";
print "ok 2\n";
print "not " unless $s2->universe eq "[f g h i j]";
print "ok 3\n";
my $u3 = Set::Scalar::Universe->new("a".."e");
print "not " if $s1->universe == $u3;
print "ok 4\n";
$u3->extend("x");
print "not " unless $u3 eq "[a b c d e x]";
print "ok 5\n";
print "not " unless "$u1" eq "[a b c d e]";
print "ok 6\n";
print "not " unless "$u2" eq "[f g h i j]";
print "ok 7\n";
# End Of File.