diff options
| author | Mark Murray <markm@FreeBSD.org> | 2000-06-25 11:04:01 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 2000-06-25 11:04:01 +0000 |
| commit | 120a02d4f3990e59fba1df18a155ff7233b4d827 (patch) | |
| tree | 52ba93338b13aefd02a0055304a9eccfa0e049f5 /contrib/perl5/t/op/grep.t | |
| parent | 7c312e6b6a7b1f9412f10365baf3c5eca8fa5649 (diff) | |
Vendor import of Perl 5.006
Notes
Notes:
svn path=/vendor/perl5/dist/; revision=62076
Diffstat (limited to 'contrib/perl5/t/op/grep.t')
| -rwxr-xr-x | contrib/perl5/t/op/grep.t | 70 |
1 files changed, 69 insertions, 1 deletions
diff --git a/contrib/perl5/t/op/grep.t b/contrib/perl5/t/op/grep.t index 45d0e25a27cf..3a7f8ad98423 100755 --- a/contrib/perl5/t/op/grep.t +++ b/contrib/perl5/t/op/grep.t @@ -4,7 +4,7 @@ # grep() and map() tests # -print "1..3\n"; +print "1..27\n"; $test = 1; @@ -29,3 +29,71 @@ sub ok { $test++; } +{ + print map({$_} ("ok $test\n")); + $test++; + print map + ({$_} ("ok $test\n")); + $test++; + print((map({a => $_}, ("ok $test\n")))[0]->{a}); + $test++; + print((map + ({a=>$_}, + ("ok $test\n")))[0]->{a}); + $test++; + print map { $_ } ("ok $test\n"); + $test++; + print map + { $_ } ("ok $test\n"); + $test++; + print((map {a => $_}, ("ok $test\n"))[0]->{a}); + $test++; + print((map + {a=>$_}, + ("ok $test\n"))[0]->{a}); + $test++; + my $x = "ok \xFF\xFF\n"; + print map($_&$x,("ok $test\n")); + $test++; + print map + ($_ & $x, ("ok $test\n")); + $test++; + print map { $_ & $x } ("ok $test\n"); + $test++; + print map + { $_&$x } ("ok $test\n"); + $test++; + + print grep({$_} ("ok $test\n")); + $test++; + print grep + ({$_} ("ok $test\n")); + $test++; + print grep({a => $_}->{a}, ("ok $test\n")); + $test++; + print grep + ({a => $_}->{a}, + ("ok $test\n")); + $test++; + print grep { $_ } ("ok $test\n"); + $test++; + print grep + { $_ } ("ok $test\n"); + $test++; + print grep {a => $_}->{a}, ("ok $test\n"); + $test++; + print grep + {a => $_}->{a}, + ("ok $test\n"); + $test++; + print grep($_&"X",("ok $test\n")); + $test++; + print grep + ($_&"X", ("ok $test\n")); + $test++; + print grep { $_ & "X" } ("ok $test\n"); + $test++; + print grep + { $_ & "X" } ("ok $test\n"); + $test++; +} |