This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
51136d2146e7149c0db2b085566ebe5abeffccbd
[perl5.git] / 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 => 1);
9
10 my $cmd = "echo 1 | ./perl -n -F: -e print+\\\@F";
11 my $got = `$cmd` || '';
12 my $ok = 0 == $?;
13 chomp $got;
14 ok( ($ok and $got eq 1),
15   "passing -F implies -a" );