diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/run/switchF2.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/run/switchF2.t b/t/run/switchF2.t index 5e99e1e81b..a4117113d4 100644 --- a/t/run/switchF2.t +++ b/t/run/switchF2.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; require './test.pl'; } -plan(tests => 1); +plan(tests => 3); { # perl #116190 fresh_perl_is('print qq!@F!', '1 2', @@ -13,4 +13,14 @@ plan(tests => 1); stdin => "1:2", switches => [ '-n', '-F:' ], }, "passing -F implies -a"); + fresh_perl_is('print qq!@F!', '1 2', + { + stdin => "1:2", + switches => [ '-F:' ], + }, "passing -F implies -an"); + fresh_perl_is('print join q!,!, @F', '1,2', + { + stdin => "1 2", + switches => [ '-a' ], + }, "passing -a implies -n"); } |