This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
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" );