use Test::More 0.95;

my $class = 'Set::CrossProduct';
use_ok( $class );

my @apples  = ('Granny Smith', 'Washington', 'Red Delicious');
my @oranges = ('Navel', 'Florida');

no warnings;

my $cross = Set::CrossProduct->new( [ \@apples ] );
ok( !( defined $cross ), 'Single array returns undef' );

done_testing();
