Commit | Line | Data |
---|---|---|
d11311f7 RGS |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
0cd39adf CK |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; | |
6 | require './test.pl'; | |
d11311f7 | 7 | *ARGV = *DATA; |
0cd39adf | 8 | plan(tests => 3); |
d11311f7 | 9 | } |
0cd39adf CK |
10 | |
11 | pass("first test"); | |
12 | is( scalar <>, "ok 2\n", "read from aliased DATA filehandle"); | |
13 | pass("last test"); | |
d11311f7 RGS |
14 | |
15 | __DATA__ | |
0cd39adf | 16 | ok 2 |