This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the -F switch imply -a
[perl5.git] / t / run / switchF2.t
CommitLineData
5fc691f1
AP
1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6 require './test.pl';
7}
8plan(tests => 1);
9
10my $cmd = "echo 1 | ./perl -n -F: -e print+\\\@F";
11my $got = `$cmd` || '';
12my $ok = 0 == $?;
13chomp $got;
14ok( ($ok and $got eq 1),
15 "passing -F implies -a" );