use Set::Scalar;

print "1..7\n";

$a = Set::Scalar->new("a".."e");
$b = Set::Scalar->new("a".."e");

print "not " unless $a eq "(a b c d e)";
print "ok 1 # $a\n";

my $cb = Set::Scalar->as_string_callback;

Set::Scalar->as_string_callback(sub{join(",",sort shift->elements)});

print "not " unless $a eq "a,b,c,d,e";
print "ok 2 # $a\n";

$b->as_string_callback(sub{join("-",sort shift->elements)});

print "not " unless $b eq "a-b-c-d-e";
print "ok 3 # $b\n";

print "not " unless $a eq "a,b,c,d,e";
print "ok 4 # $a\n";

Set::Scalar->as_string_callback($cb);

print "not " unless $a eq "(a b c d e)";
print "ok 5 # $a\n";

print "not " unless $b eq "a-b-c-d-e";
print "ok 6 # $b\n";

$b->as_string_callback(undef);

print "not " unless $b eq "(a b c d e)";
print "ok 7 # $b\n";