Commit | Line | Data |
cb50131a |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir '..' if -d '../pod'; |
5 | unshift @INC, './lib' if -d './lib'; |
6 | } |
7 | |
8 | |
9 | ######################### We start with some black magic to print on failure. |
10 | |
11 | # Change 1..1 below to 1..last_test_to_print . |
12 | # (It may become useful if the test is moved to ./t subdirectory.) |
13 | use strict; |
14 | |
15 | use vars qw($Test_Num $Total_tests); |
16 | |
17 | my $loaded; |
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. |
22 | $loaded = 1; |
23 | ok($loaded, 'compile'); |
24 | ######################### End of black magic. |
25 | |
26 | sub ok { |
27 | my($test, $name) = shift; |
28 | print "not " unless $test; |
29 | print "ok $Test_Num"; |
30 | print " - $name" if defined $name; |
31 | print "\n"; |
32 | $Test_Num++; |
33 | } |
34 | |
35 | |
36 | # Change this to your # of ok() calls + 1 |
37 | BEGIN { $Total_tests = 1 } |