contrib/perl5/t/op/grep.t

   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