xref: /openbsd-src/gnu/usr.bin/perl/t/run/switchF.t (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4)
155745691Smillert#!./perl -anFx+
255745691Smillert
355745691SmillertBEGIN {
4*91f110e0Safresh1    chdir 't' if -d 't';
5*91f110e0Safresh1    @INC = '../lib';
6*91f110e0Safresh1    require './test.pl';
755745691Smillert    *ARGV = *DATA;
8*91f110e0Safresh1    plan(tests => 2);
955745691Smillert}
10*91f110e0Safresh1my $index = $F[-1];
11*91f110e0Safresh1chomp $index;
12*91f110e0Safresh1is($index, $., "line $.");
1355745691Smillert
1455745691Smillert__DATA__
1555745691Smillertokx1
16*91f110e0Safresh1okx3xx2
17