Ticket #465: pmc-os-hardlink.patch

File pmc-os-hardlink.patch, 510 bytes (added by doughera, 13 years ago)

  • t/pmc/os.t

    old new  
    377378        $P1 = new ['OS'] 
    378379 
    379380        $S1 = "xpto" 
    380         $S2 = "MANIFEST" 
     381        $S2 = "myconfig" 
    381382        $P1."link"($S2, $S1) 
    382383 
    383384        print "ok\n" 
    … …  
    388389ok 
    389390OUT 
    390391 
    391     my $nl = [ stat("MANIFEST") ]->[3]; 
     392    my $nl = [ stat("myconfig") ]->[3]; 
    392393    ok( $nl > 1, "hard link to file was really created" ); 
    393394    unlink "xpto" if -f "xpto"; 
    394395}