[NEW FILE t/pragma/diagnostics.t 5.005_63] Simple compile test for diagnostics.pm

[Michael G Schwern <schwern@pobox.com>]

I believe it was last version that diagnostics.pm slipped by with a
syntax error.  There's currently no test at all for it, not even a
simple compilation test; so I'm adding one.  I figure it should go
into t/pragma instead of t/lib.

This is just a simple test to make sure it compiles okay.  To really
test the module I'd have to set up something like how warnings.pm is
tested, and that's more work than I could do in one train ride.
Better than nothing.

IMHO, every core library should have at least a test like this.


#!./perl

BEGIN {
	chdir 't' if -d 't';
	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 }


-- 

Michael G Schwern                                           schwern@pobox.com
                    http://www.pobox.com/~schwern
     /(?:(?:(1)[.-]?)?\(?(\d{3})\)?[.-]?)?(\d{3})[.-]?(\d{4})(x\d+)?/i

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---