[perl5.git] / cpan / Scalar-List-Utils / t / any-all.t

#!./perl

use strict;
use warnings;

use List::Util qw(any all notall none);
use Test::More tests => 12;

ok(  (any { $_ == 1 } 1, 2, 3), 'any true' );
ok( !(any { $_ == 1 } 2, 3, 4), 'any false' );
ok( !(any { 1 }), 'any empty list' );

ok(  (all { $_ == 1 } 1, 1, 1), 'all true' );
ok( !(all { $_ == 1 } 1, 2, 3), 'all false' );
ok(  (all { 1 }), 'all empty list' );

ok(  (notall { $_ == 1 } 1, 2, 3), 'notall true' );
ok( !(notall { $_ == 1 } 1, 1, 1), 'notall false' );
ok( !(notall { 1 }), 'notall empty list' );

ok(  (none { $_ == 1 } 2, 3, 4), 'none true' );
ok( !(none { $_ == 1 } 1, 2, 3), 'none false' );
ok(  (none { 1 }), 'none empty list' );
Commit	Line	Data
e99e4210 SH	1	#!./perl
e99e4210 SH	2
b823713c CBW	3	use strict;
b823713c CBW	4	use warnings;
e99e4210 SH	5
	6	use List::Util qw(any all notall none);
	7	use Test::More tests => 12;
	8
	9	ok( (any { $_ == 1 } 1, 2, 3), 'any true' );
	10	ok( !(any { $_ == 1 } 2, 3, 4), 'any false' );
	11	ok( !(any { 1 }), 'any empty list' );
	12
	13	ok( (all { $_ == 1 } 1, 1, 1), 'all true' );
	14	ok( !(all { $_ == 1 } 1, 2, 3), 'all false' );
	15	ok( (all { 1 }), 'all empty list' );
	16
	17	ok( (notall { $_ == 1 } 1, 2, 3), 'notall true' );
	18	ok( !(notall { $_ == 1 } 1, 1, 1), 'notall false' );
	19	ok( !(notall { 1 }), 'notall empty list' );
	20
	21	ok( (none { $_ == 1 } 2, 3, 4), 'none true' );
	22	ok( !(none { $_ == 1 } 1, 2, 3), 'none false' );
	23	ok( (none { 1 }), 'none empty list' );