This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
64 bit integer preserving pp_divide
[perl5.git] / lib / diagnostics.t
CommitLineData
f5ad5489
GS
1#!./perl
2
3BEGIN {
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.)
13use strict;
d3a7d8c7 14use warnings;
f5ad5489
GS
15
16use vars qw($Test_Num $Total_tests);
17
18my $loaded;
d3a7d8c7 19BEGIN { $| = 1; $Test_Num = 1 }
f5ad5489
GS
20END {print "not ok $Test_Num\n" unless $loaded;}
21print "1..$Total_tests\n";
22BEGIN { require diagnostics; } # Don't want diagnostics' noise yet.
23$loaded = 1;
24ok($loaded, 'compile');
25######################### End of black magic.
26
27sub 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
38BEGIN { $Total_tests = 1 }