diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2014-09-30 15:36:10 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2014-09-30 15:36:10 +0200 |
| commit | ad77c200c8a4ed39fda83b8a740ef81ede885d84 (patch) | |
| tree | 1dd507457758c95ccf6a06997e79297dec45247a /t/io | |
| parent | ef32f9b97b7f6ea1925757be14c852b20c8145c4 (diff) | |
| download | perl-ad77c200c8a4ed39fda83b8a740ef81ede885d84.tar.gz | |
Add a test for <<>> failing on the second file
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/argv.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/io/argv.t b/t/io/argv.t index b3825bba18..58e1d66d44 100644 --- a/t/io/argv.t +++ b/t/io/argv.t @@ -7,7 +7,7 @@ BEGIN { BEGIN { require "./test.pl"; } -plan(tests => 34); +plan(tests => 35); my ($devnull, $no_devnull); @@ -208,6 +208,13 @@ SKIP: { args => [ '"echo foo |"' ], ); is($x, "Can't open echo foo |: No such file or directory at -e line 1.\n", '<<>> does not treat ...| as fork'); + + $x = runperl( + prog => 'while (<<>>) { }', + stderr => 1, + args => [ 'Io_argv1.tmp', '"echo foo |"' ], + ); + is($x, "Can't open echo foo |: No such file or directory at -e line 1, <> line 2.\n", '<<>> does not treat ...| as fork after eof'); } # This used to dump core |