Skip to content

Commit 2f59671

Browse files
committed
Add tests for any(BLOCK, LIST) and all() similar
1 parent 86a1a55 commit 2f59671

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

t/op/any_all.t

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -15,6 +15,10 @@ ok( !(any { $_ > 10 } 1 .. 9), 'list does not contain a value above ten' );
1515
ok( !(all { $_ < 10 } 1 .. 20), 'not all list values below ten' );
1616
ok( (all { $_ < 10 } 1 .. 9), 'all list values below ten' );
1717

18+
# Parens are permitted
19+
ok( (any( { $_ > 10 } 1 .. 20) ), 'list contains a value above ten' );
20+
ok( (all( { $_ < 10 } 1 .. 9) ), 'all list values below ten' );
21+
1822
# any empty list is false
1923
{
2024
my $invoked;

0 commit comments

Comments
 (0)