gnu/usr.bin/perl/dist/Carp/t/heavy.t


1
2
3
4
5
6
7
8
9
10
11

print "1..3\n";

print defined(&Carp::carp) ? "not " : "", "ok 1 # control\n";
require Carp::Heavy;
print defined(&Carp::carp) ? "" : "not ", "ok 2 # carp loaded by Carp::Heavy\n";
eval q{
	print $Carp::Heavy::VERSION eq $Carp::VERSION ? "" : "not ",
		"ok 3 # version numbers match\n";
};

1;