ext/Test-Simple/t/Tester/tbt_03die.t

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