blob: b9dba801eb461907b90eea79ca0635269ced50e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl
use Test::Builder::Tester tests => 1;
use Test::More;
eval {
test_test("foo");
};
like($@,
"/Not testing\. You must declare output with a test function first\./",
"dies correctly on error");
|