Commit | Line | Data |
fd3835b3 |
1 | #!./perl |
2 | |
3 | # |
4 | # grep() and map() tests |
5 | # |
6 | |
7 | print "1..3\n"; |
8 | |
9 | $test = 1; |
10 | |
11 | sub ok { |
12 | my ($got,$expect) = @_; |
13 | print "# expected [$expect], got [$got]\nnot " if $got ne $expect; |
14 | print "ok $test\n"; |
15 | } |
16 | |
17 | { |
18 | my @lol = ([qw(a b c)], [], [qw(1 2 3)]); |
19 | my @mapped = map {scalar @$_} @lol; |
20 | ok "@mapped", "3 0 3"; |
21 | $test++; |
22 | |
23 | my @grepped = grep {scalar @$_} @lol; |
24 | ok "@grepped", "$lol[0] $lol[2]"; |
25 | $test++; |
26 | |
27 | @grepped = grep { $_ } @mapped; |
28 | ok "@grepped", "3 3"; |
29 | $test++; |
30 | } |
31 | |