[p5sagit/p5-mst-13.2.git] / lib / Tie / File / t / 00_version.t

#!/usr/bin/perl

print "1..1\n";

my $testversion = "0.97_01";
use Tie::File;

if ($Tie::File::VERSION != $testversion) {
  print STDERR "

*** WHOA THERE!!! ***

You seem to be running version $Tie::File::VERSION of the module
against version $testversion of the test suite!

None of the other test results will be reliable.
";
  exit 1;
}

print "ok 1\n";
Commit	Line	Data
b3fe5a4c	1	#!/usr/bin/perl
	2
	3	print "1..1\n";
	4
56ee885b	5	my $testversion = "0.97_01";
b3fe5a4c	6	use Tie::File;
b3fe5a4c	7
57c7bc08	8	if ($Tie::File::VERSION != $testversion) {
b3fe5a4c	9	print STDERR "
b3fe5a4c	10
57c7bc08	11	* WHOA THERE!!! *
	12
	13	You seem to be running version $Tie::File::VERSION of the module
	14	against version $testversion of the test suite!
b3fe5a4c	15
	16	None of the other test results will be reliable.
	17	";
	18	exit 1;
	19	}
	20
	21	print "ok 1\n";
6ae23f41	22