diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-06-24 01:47:05 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 13:09:55 +0000 |
| commit | 4f0c37ba8a5ec95c6a79b1e0deea87d200d9357a (patch) | |
| tree | 5746b77df6f9502ad07647f7e5521e499c10288e /lib/File/stat.t | |
| parent | 2d766320ce469e157550747df903293379e4b3e1 (diff) | |
| download | perl-4f0c37ba8a5ec95c6a79b1e0deea87d200d9357a.tar.gz | |
Re: [PATCH 5.6.1] test suite
Message-ID: <20010624054705.A27890@math.ohio-state.edu>
Test suite fixes.
p4raw-id: //depot/perl@10883
Diffstat (limited to 'lib/File/stat.t')
| -rw-r--r-- | lib/File/stat.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/File/stat.t b/lib/File/stat.t index ac6d95f745..999d2b267a 100644 --- a/lib/File/stat.t +++ b/lib/File/stat.t @@ -31,7 +31,9 @@ my $stat = stat "TEST"; # This is the OO stat. print "not " unless $stat->dev == $stat[ 0]; print "ok 2\n"; -print "not " unless $stat->ino == $stat[ 1]; +# On OS/2 (fake) ino is not constant, it is incremented each time +print "# ino=>@{[$stat->ino]}, 1=>$stat[ 1]\nnot " + unless $stat->ino == $stat[ 1] or $^O eq 'os2'; print "ok 3\n"; print "not " unless $stat->mode == $stat[ 2]; |