4 chdir '..' if -d '../pod';
5 unshift @INC, './lib' if -d './lib';
9 ######################### We start with some black magic to print on failure.
11 # Change 1..1 below to 1..last_test_to_print .
12 # (It may become useful if the test is moved to ./t subdirectory.)
15 use vars qw($Test_Num $Total_tests);
18 BEGIN { $| = 1; $^W = 1; $Test_Num = 1 }
19 END {print "not ok $Test_Num\n" unless $loaded;}
20 print "1..$Total_tests\n";
21 BEGIN { require diagnostics; } # Don't want diagnostics' noise yet.
23 ok($loaded, 'compile');
24 ######################### End of black magic.
27 my($test, $name) = shift;
28 print "not " unless $test;
30 print " - $name" if defined $name;
36 # Change this to your # of ok() calls + 1
37 BEGIN { $Total_tests = 1 }