Commit | Line | Data |
---|---|---|
f5ad5489 GS |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
20822f61 MG |
4 | chdir '..' if -d '../pod' && -d '../t'; |
5 | @INC = 'lib'; | |
f5ad5489 GS |
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; | |
d3a7d8c7 | 14 | use warnings; |
f5ad5489 GS |
15 | |
16 | use vars qw($Test_Num $Total_tests); | |
17 | ||
18 | my $loaded; | |
d3a7d8c7 | 19 | BEGIN { $| = 1; $Test_Num = 1 } |
f5ad5489 GS |
20 | END {print "not ok $Test_Num\n" unless $loaded;} |
21 | print "1..$Total_tests\n"; | |
22 | BEGIN { require diagnostics; } # Don't want diagnostics' noise yet. | |
23 | $loaded = 1; | |
24 | ok($loaded, 'compile'); | |
25 | ######################### End of black magic. | |
26 | ||
27 | sub ok { | |
28 | my($test, $name) = shift; | |
29 | print "not " unless $test; | |
30 | print "ok $Test_Num"; | |
31 | print " - $name" if defined $name; | |
32 | print "\n"; | |
33 | $Test_Num++; | |
34 | } | |
35 | ||
36 | ||
37 | # Change this to your # of ok() calls + 1 | |
38 | BEGIN { $Total_tests = 1 } |