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