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"; }