1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict; use warnings;
my $t; use lib ($t = -e 't' ? 't' : 'test');
use Test::More tests => 4;
use IO::All;
use IO_All_Test;
my $ret = io->file("$t/img.jpg")->copy(o_dir() . '/img.jpg');
ok(io->file("$t/img.jpg")->binary->all eq $ret->binary->all, 'file copied correctly');
is(f($ret->name), f(io->file(o_dir(), 'img.jpg')->name), 'copy returns new obj');
SKIP: {
skip 'requires File::Copy::Recursive', 2
unless eval { require File::Copy::Recursive; 1 };
my $lib = io->dir('lib');
my $ret = $lib->copy(o_dir() . '/station');
my $orig =()= $lib->All;
my $new =()= $ret->All;
is($new, $orig, 'dir copied correctly');
is($ret->name, io->dir(o_dir() . '/station')->name, 'copy returns new obj');
};
del_output_dir();
|
