t/op/grep.t

17     my @mapped = map  {scalar @$_} @lol;
18     cmp_ok("@mapped", 'eq', "3 0 3", 'map scalar list of list');
20     my @grepped = grep {scalar @$_} @lol;
21     cmp_ok("@grepped", 'eq', "$lol[0] $lol[2]", 'grep scalar list of list');
32     cmp_ok( scalar(@res), '==', 1, 'basic map nr');
37     cmp_ok( scalar(@res), '==', 1, 'linefeed map nr');
43     cmp_ok( scalar(@res), '==', 1, 'deref map nr');
47     cmp_ok( scalar(@res), '==', 1, 'no paren basic map nr');
52     cmp_ok( scalar(@res), '==', 1, 'no paren linefeed map nr');
58     cmp_ok( scalar(@res), '==', 1, 'no paren deref map nr');
64     cmp_ok( scalar(@res), '==', 1, 'binand map nr 1');
69     cmp_ok( scalar(@res), '==', 1, 'binand map nr 2');
73     cmp_ok( scalar(@res), '==', 1, 'binand map nr 3');
78     cmp_ok( scalar(@res), '==', 1, 'binand map nr 4');
82     cmp_ok( scalar(@res), '==', 1, 'basic grep nr');
87     cmp_ok( scalar(@res), '==', 1, 'linefeed grep nr');
93     cmp_ok( scalar(@res), '==', 1, 'deref grep nr');
97     cmp_ok( scalar(@res), '==', 1, 'no paren basic grep nr');
102     cmp_ok( scalar(@res), '==', 1, 'no paren linefeed grep nr');
106     cmp_ok( scalar(@res), '==', 1, 'no paren deref grep nr');
111     cmp_ok( scalar(@res), '==', 1, 'no paren deref linefeed  nr');
115     cmp_ok( scalar(@res), '==', 1, 'binand X grep nr');
120     cmp_ok( scalar(@res), '==', 1, 'binand X linefeed grep nr');
124     cmp_ok( scalar(@res), '==', 1, 'no paren binand X grep nr');
129     cmp_ok( scalar(@res), '==', 1, 'no paren binand X linefeed grep nr');
176             $gimme = $want ? 'list' : 'scalar';
185     undef $gimme; grep { gimme } @list; cmp_ok($gimme, 'eq', 'scalar', 'gimme an S!');
190     # test scalar context return
194     cmp_ok("@list", 'eq', "14 28 42", 'map scalar return');
195     cmp_ok($x, '==', 3, 'map scalar count');
199     cmp_ok($x, '==', 2, 'grep scalar count');