1#!./perl 2 3BEGIN { 4 unless (-d 'blib') { 5 chdir 't' if -d 't'; 6 @INC = '../lib'; 7 require Config; import Config; 8 keys %Config; # Silence warning 9 if ($Config{extensions} !~ /\bList\/Util\b/) { 10 print "1..0 # Skip: List::Util was not built\n"; 11 exit 0; 12 } 13 } 14} 15 16use List::Util qw(any all notall none); 17use Test::More tests => 12; 18 19ok( (any { $_ == 1 } 1, 2, 3), 'any true' ); 20ok( !(any { $_ == 1 } 2, 3, 4), 'any false' ); 21ok( !(any { 1 }), 'any empty list' ); 22 23ok( (all { $_ == 1 } 1, 1, 1), 'all true' ); 24ok( !(all { $_ == 1 } 1, 2, 3), 'all false' ); 25ok( (all { 1 }), 'all empty list' ); 26 27ok( (notall { $_ == 1 } 1, 2, 3), 'notall true' ); 28ok( !(notall { $_ == 1 } 1, 1, 1), 'notall false' ); 29ok( !(notall { 1 }), 'notall empty list' ); 30 31ok( (none { $_ == 1 } 2, 3, 4), 'none true' ); 32ok( !(none { $_ == 1 } 1, 2, 3), 'none false' ); 33ok( (none { 1 }), 'none empty list' ); 34