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