diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-06-12 12:34:08 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 01:36:12 +0000 |
| commit | 584e6f13d926fe0b642c15b1e9b474964755c62f (patch) | |
| tree | 50c1083da060e1d35488a52e20ce08590a4a9c05 | |
| parent | aa275be2c72d724a988f1e2f3dc3a57832744f47 (diff) | |
| download | perl-584e6f13d926fe0b642c15b1e9b474964755c62f.tar.gz | |
fix for file locking and filecomp test
Message-ID: <Pine.OSF.4.10.10106121927580.15174-100000@aspara.forte.com>
p4raw-id: //depot/perl@10552
| -rw-r--r-- | t/lib/filecomp.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/t/lib/filecomp.t b/t/lib/filecomp.t index 167a46a431..aedc32323e 100644 --- a/t/lib/filecomp.t +++ b/t/lib/filecomp.t @@ -97,8 +97,16 @@ print "# problems when testing with a tempory file\n" if $@; if (@donetests == 2) { print "not " unless $donetests[0] == 0; print "ok 11\n"; - print "not " unless $donetests[1] == 0; - print "ok 12\n"; + if ($^O eq 'VMS') { + # The open attempt on FROM in File::Compare::compare should fail + # on this OS since files are not shared by default. + print "not " unless $donetests[1] == -1; + print "ok 12\n"; + } + else { + print "not " unless $donetests[1] == 0; + print "ok 12\n"; + } } else { print "ok 11# Skip\nok 12 # Skip Likely due to File::Temp\n"; |