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