view release on metacpan or  search on metacpan

t/copylink-script.t  view on Meta::CPAN

open $fh, q{>>}, $file or die;
print {$fh} "more\n"        or die;
close $fh                   or die;
not compare( $file, $link ) or die;

my $warn;
my $main;
{
    local $SIG{__WARN__} = sub { $warn .= $_[0]; };
    local @ARGV = ($link);
    $main = eval { main(); 1; };
}

ok( $main,  q{copylink script} );
ok( !$warn, q{copylink script - no warnings} ); 
ok( !( -l $link ),            q{not a link} );
ok( !compare( $file, $link ), q{compare file and copy} );

open $fh, q{>>}, $file or die;
print {$fh} qq{more\n} or die;