lib/Tie/File/t/00_version.t

   1 #!/usr/bin/perl
   2
   3 print "1..1\n";
   4
   5 my $testversion = "0.97_01";
   6 use Tie::File;
   7
   8 if ($Tie::File::VERSION != $testversion) {
   9   print STDERR "
  10
  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!
  15
  16 None of the other test results will be reliable.
  17 ";
  18   exit 1;
  19 }
  20
  21 print "ok 1\n";
  22