--- t/fs.t 2007/09/02 11:38:59 38 +++ t/fs.t 2007/09/02 12:03:52 39 @@ -4,7 +4,7 @@ my $debug = shift @ARGV; -use Test::More tests => 766; +use Test::More tests => 770; use File::Slurp; use IO::File; @@ -129,6 +129,10 @@ ok( symlink("$to/m", "$to/s"), 'symlink' ); ok( -l "$to/s", 'is symlink' ); + + ok( !symlink("fake", "$to/s"), 'symlink' ); + ok( !symlink("$to/m", "fake"), 'symlink' ); + ok( link("$to/m", "$to/l"), 'link' ); cmp_ok( (stat("$to/l"))[3], '==', 2, 'l has 2 links' ); cmp_ok( (stat("$to/m"))[3], '==', 2, 'm has 2 links' );