[svn:parrot] r36007 - trunk/t/pmc

Author: julianalbo
Date: Sun Jan 25 11:35:46 2009
New Revision: 36007

Modified:
   trunk/t/pmc/os.t

Log:
fix fake positive in t/pmc/os.t

Modified: trunk/t/pmc/os.t
==============================================================================
--- trunk/t/pmc/os.t	(original)
+++ trunk/t/pmc/os.t	Sun Jan 25 11:35:46 2009
@@ -317,6 +317,7 @@
 TODO: {
     local $TODO = "Hardlinks to a directory may require root permissions";
 
+    my $prevnl = [ stat("tools") ]->[3];
     pir_output_is( <<'CODE', <<"OUT", "Test dirlink" );
 .sub main :main
         $P1 = new ['OS']
@@ -334,7 +335,7 @@
 OUT
 
     my $nl = [ stat("tools") ]->[3];
-    ok( $nl > 1, "hard link to dir was really created" );
+    ok( $nl > $prevnl, "hard link to dir was really created" );
     unlink "xpto" if -d "xpto";
 }