projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
tests are expected to fail if dirfd () does not exist
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
grep.t
diff --git
a/t/op/grep.t
b/t/op/grep.t
index
4696224
..
3e5d716
100755
(executable)
--- a/
t/op/grep.t
+++ b/
t/op/grep.t
@@
-4,7
+4,7
@@
# grep() and map() tests
#
-print "1..37\n";
+print "1..38\n";
$test = 1;
@@
-162,3
+162,8
@@
sub ok {
undef $gimme; map { gimme } @list; ok($gimme, 'list'); $test++;
}
+{
+ # This shouldn't loop indefinitively.
+ my @empty = map { while (1) {} } ();
+ ok("@empty", '');
+}