You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

23 lines
404 B

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