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