[p5sagit/p5-mst-13.2.git] / t / pragma / diagnostics.t

#!./perl

BEGIN {
    chdir '..' if -d '../pod';
    unshift @INC, './lib' if -d './lib';
}


######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
use strict;

use vars qw($Test_Num $Total_tests);

my $loaded;
BEGIN { $| = 1; $^W = 1; $Test_Num = 1 }
END {print "not ok $Test_Num\n" unless $loaded;}
print "1..$Total_tests\n";
BEGIN { require diagnostics; } # Don't want diagnostics' noise yet.
$loaded = 1;
ok($loaded, 'compile');
######################### End of black magic.

sub ok {
	my($test, $name) = shift;
	print "not " unless $test;
	print "ok $Test_Num";
	print " - $name" if defined $name;
	print "\n";
	$Test_Num++;
}


# Change this to your # of ok() calls + 1
BEGIN { $Total_tests = 1 }
Commit	Line	Data
f5ad5489	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 }