develooper Front page | perl.vmsperl | Postings from December 2001

[PATCH t/op/stat.t] VMS has no link count

Thread Next
From:
Michael G Schwern
Date:
December 6, 2001 10:54
Subject:
[PATCH t/op/stat.t] VMS has no link count
Message ID:
20011206185448.GC16414@blackrider
Confirmed with the VMS folks, VMS has no concept of a link count
(well, that's the short answer).  It would be nice if it returned
undef instead of 0 though.

That should leave t/run/switches.t as the last failure, and that's not
going to work until the problem of extra newlines on pipes is fixed. :(


--- t/op/stat.t	2001/12/06 18:50:27
+++ t/op/stat.t	2001/12/06 18:50:51
@@ -40,7 +40,11 @@
 open(FOO, ">$tmpfile") || BAILOUT("Can't open temp test file: $!");
 
 my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
-is($nlink, 1, 'nlink on regular file');
+SKIP: {
+    skip "No link count", 1 if $Is_VMS;
+
+    is($nlink, 1, 'nlink on regular file');
+}
 
 SKIP: {
   skip "mtime and ctime not reliable", 2 

-- 

Michael G. Schwern   <schwern@pobox.com>    http://www.pobox.com/~schwern/
Perl Quality Assurance	    <perl-qa@perl.org>	       Kwalitee Is Job One
huh huh huh huh huh
i will seduce you baby
or not, no offense
	-- Fmh

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About