Commit | Line | Data |
---|---|---|
b3fe5a4c | 1 | #!/usr/bin/perl |
2 | ||
3 | print "1..1\n"; | |
4 | ||
bf919750 | 5 | my $testversion = "0.92"; |
b3fe5a4c | 6 | use Tie::File; |
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"; |