use Test::More skip_all => "TO-DO";
print "1..2\n";
my @a = ("a".."e",0);
my $a = Set::Object->new(@a);
my $e;
my %e;
while (defined($e = $a->each)) {
print "# e = $e\n";
$e{$e}++;
}
print "not " if defined $e;
print "ok 1\n";
my $n;
for my $e (@a) {
$n++ if exists $e{$e} && $e{$e} == 1;
}
print "not " unless $n == @a && keys %e == @a;
print "ok 2\n";