Commit | Line | Data |
---|---|---|
5fc691f1 AP |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | require './test.pl'; | |
7 | } | |
24ffa309 | 8 | plan(tests => 3); |
5fc691f1 | 9 | |
3271c5f8 TC |
10 | { # perl #116190 |
11 | fresh_perl_is('print qq!@F!', '1 2', | |
12 | { | |
13 | stdin => "1:2", | |
14 | switches => [ '-n', '-F:' ], | |
15 | }, "passing -F implies -a"); | |
24ffa309 TC |
16 | fresh_perl_is('print qq!@F!', '1 2', |
17 | { | |
18 | stdin => "1:2", | |
19 | switches => [ '-F:' ], | |
20 | }, "passing -F implies -an"); | |
21 | fresh_perl_is('print join q!,!, @F', '1,2', | |
22 | { | |
23 | stdin => "1 2", | |
24 | switches => [ '-a' ], | |
25 | }, "passing -a implies -n"); | |
3271c5f8 | 26 | } |