1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
plan(tests => 3);
{ # perl #116190
fresh_perl_is('print qq!@F!', '1 2',
{
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");
}
|
