diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-28 12:30:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-28 12:30:01 +0000 |
| commit | 58c73031a2db6ad9857e14239f5bac5fa7097f3c (patch) | |
| tree | dfacbc3cdbb79a3465da0421e4c61cf7ba57b0b8 /t/op | |
| parent | 6c1b87e5b61fa4275aa57590a99cb42541e71aa8 (diff) | |
| parent | 95470547e854df745a1dec3565d4ef1ed8634342 (diff) | |
| download | perl-58c73031a2db6ad9857e14239f5bac5fa7097f3c.tar.gz | |
Integrate from mainperl.
p4raw-id: //depot/cfgperl@3194
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/grep.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/t/op/grep.t b/t/op/grep.t new file mode 100755 index 0000000000..45d0e25a27 --- /dev/null +++ b/t/op/grep.t @@ -0,0 +1,31 @@ +#!./perl + +# +# grep() and map() tests +# + +print "1..3\n"; + +$test = 1; + +sub ok { + my ($got,$expect) = @_; + print "# expected [$expect], got [$got]\nnot " if $got ne $expect; + print "ok $test\n"; +} + +{ + my @lol = ([qw(a b c)], [], [qw(1 2 3)]); + my @mapped = map {scalar @$_} @lol; + ok "@mapped", "3 0 3"; + $test++; + + my @grepped = grep {scalar @$_} @lol; + ok "@grepped", "$lol[0] $lol[2]"; + $test++; + + @grepped = grep { $_ } @mapped; + ok "@grepped", "3 3"; + $test++; +} + |