t/run/switchF2.t

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