6 BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} }
12 is undef, undef, 'undef is undef';
13 isnt 0, undef, 'zero is not undef';
14 isnt undef, 0, 'undef is not zero';
15 is 0, 0, 'zero is zero';
16 is 1, 1, 'one is one';
17 isnt '1.0', 1, '1.0 is not one string-wise';
19 my @fruits = ('pear', 'apple');
20 my @veggies = ('lettuce', 'spinach');
21 is @fruits, @veggies, 'is() forces scalar context';
22 my @more_fruits = (@fruits, 'banana');
23 isnt @fruits, @more_fruits, 'isnt() forces scalar context';