1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
use strict;
use warnings;
use Test::More tests => 4;
use Test::NoWarnings;
use File::Temp qw( tempdir );
use lib './lib';
use File::Util qw( SL );
# one recognized instantiation setting
my $ftl = File::Util->new( );
$ftl->use_flock( 0 ) if $^O =~ /solaris|sunos/i;
my $tempdir = tempdir( CLEANUP => 1 );
my $testbed = setup_test_tree();
my $dir_ref = $ftl->load_dir( $testbed );
is_deeply $dir_ref => {
'o.css' => 'JAPH',
'l.scr' => 'JAPH',
'i.jpg' => 'JAPH',
'm.html' => 'JAPH',
'k.ppt' => 'JAPH',
'j.xls' => 'JAPH',
'p.avi' => 'JAPH',
'n.js' => 'JAPH'
} => 'load_dir() loads directory into hashref';
$dir_ref = $ftl->load_dir( $testbed => { as_listref => 1 } );
is_deeply $dir_ref => [
( 'JAPH' ) x 8
] => 'load_dir() loads directory into listref';
$dir_ref = [ $ftl->load_dir( $testbed => { as_list => 1 } ) ];
is_deeply $dir_ref => [
( 'JAPH' ) x 8
] => 'load_dir() loads directory into list';
exit;
sub setup_test_tree {
my $deeper = $tempdir . SL . 'xfoo' . SL . 'zbar';
$ftl->make_dir( $deeper );
my @test_files = qw(
i.jpg j.xls
k.ppt l.scr
m.html n.js
o.css p.avi
);
for my $tfile ( @test_files )
{
$ftl->write_file( { file => $deeper . SL . $tfile, content => 'JAPH' } );
}
return $deeper;
}
|
