Commit | Line | Data |
---|---|---|
be25f609 | 1 | #!./perl |
2 | ||
341b7876 | 3 | BEGIN { |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | require './test.pl'; | |
7 | } | |
be25f609 | 8 | |
341b7876 | 9 | use strict; |
10 | ||
678ae90b | 11 | plan 1; |
341b7876 | 12 | |
13 | my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n"; | |
be25f609 | 14 | |
15 | eval { ... }; | |
16 | ||
341b7876 | 17 | is $@, $err; |