Commit | Line | Data |
---|---|---|
845d7e37 | 1 | #!/usr/bin/perl |
2 | ||
c0888b21 | 3 | BEGIN { |
4 | if( $ENV{PERL_CORE} ) { | |
5 | chdir 't'; | |
6 | @INC = '../lib'; | |
7 | } | |
8 | } | |
9 | ||
845d7e37 | 10 | use Test::Builder::Tester tests => 1; |
11 | use Test::More; | |
12 | ||
13 | eval { | |
14 | test_test("foo"); | |
15 | }; | |
16 | like($@, | |
17 | "/Not testing\. You must declare output with a test function first\./", | |
18 | "dies correctly on error"); | |
19 |