The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

EXODIST / Test-Simple-1.302044-TRIAL / t / Legacy / Tester / tbt_03die.t 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
#!/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");