1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7} 8plan(tests => 3); 9 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"); 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"); 26} 27