1use Test::More 0.95;
2
3my $class = 'Set::CrossProduct';
4use_ok( $class );
5
6my @apples  = ('Granny Smith', 'Washington', 'Red Delicious');
7my @oranges = ('Navel', 'Florida');
8
9no warnings;
10
11my $cross = Set::CrossProduct->new( [ \@apples ] );
12ok( !( defined $cross ), 'Single array returns undef' );
13
14done_testing();
15