1#!./perl -anFx+
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = '../lib';
6    require './test.pl';
7    *ARGV = *DATA;
8    plan(tests => 2);
9}
10my $index = $F[-1];
11chomp $index;
12is($index, $., "line $.");
13
14__DATA__
15okx1
16okx3xx2
17