use Test::More qw(no_plan);
use Math::Subsets::List;
my $a = '';
ok 8 == subsets {$a .= "@_\n"} qw(a b c);
ok $a eq << 'end';
c
b
b c
a
a c
a b
a b c
end
print $a;
use Test::More qw(no_plan);
use Math::Subsets::List;
my $a = '';
ok 8 == subsets {$a .= "@_\n"} qw(a b c);
ok $a eq << 'end';
c
b
b c
a
a c
a b
a b c
end
print $a;