1#!./perl -n
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = '../lib';
6    require './test.pl';
7    *ARGV = *DATA;
8    plan(tests => 3);
9}
10
11END {
12    pass("Final test");
13}
14
15chomp;
16is("ok ".$., $_, "Checking line $.");
17
18s/^/not /;
19
20__DATA__
21ok 1
22ok 2
23