23 lines
404 B
Perl
23 lines
404 B
Perl
|
use Test::More;
|
||
|
|
use Modern::Perl;
|
||
|
|
use URI;
|
||
|
|
use lib 'lib';
|
||
|
|
use fileutil ':all';
|
||
|
|
use copycat ':all';
|
||
|
|
|
||
|
|
my $l1 = "file:///etc/hosts";
|
||
|
|
my $l2 = "file:///tmp/truc";
|
||
|
|
|
||
|
|
sub t_local_local {
|
||
|
|
my ($f1, $f2) = @_;
|
||
|
|
copycat $f1, $f2;
|
||
|
|
|
||
|
|
my $file = URI->new($f2);
|
||
|
|
my $d = read_file $file->path;
|
||
|
|
$d =~ /localhost/;
|
||
|
|
}
|
||
|
|
|
||
|
|
ok ((t_local_local $l1, $l2) , "copycat local local avec $l1 / $l2" );
|
||
|
|
|
||
|
|
done_testing;
|