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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
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 OS );
# one recognized instantiation setting
my $ftl = File::Util->new( );
$ftl->use_flock( 0 ) if $^O =~ /solaris|sunos/i;
my $tempdir = tempdir( CLEANUP => 1 );
my @test_files = qw(
i.jpg j.xls
k.ppt l.scr
m.html n.js
o.css p.avi
);
write_ref_args();
my $dir_ref = $ftl->load_dir( $tempdir => { as_listref => 1 } );
is_deeply $dir_ref => [
( 'PeRl' ) x 8
] => 'write_file writes right w/ ref args';
write_two_args();
$dir_ref = $ftl->load_dir( $tempdir => { as_listref => 1 } );
is_deeply $dir_ref => [
( 'JAPH' ) x 8
] => 'write_file writes right w/ 2 args';
write_hybrid();
$dir_ref = $ftl->load_dir( $tempdir => { as_listref => 1 } );
is_deeply $dir_ref => [
( 'JAPHRaptor' ) x 8
] => 'write_file appends right w/ 2 args + opts hashref';
exit;
sub write_ref_args {
for my $tfile ( @test_files )
{
$ftl->write_file(
{ file => $tempdir . SL . $tfile, content => 'PeRl' }
);
}
return;
}
sub write_two_args {
for my $tfile ( @test_files )
{
$ftl->write_file( $tempdir . SL . $tfile => 'JAPH' );
}
return;
}
sub write_hybrid {
for my $tfile ( @test_files )
{
$ftl->write_file(
$tempdir . SL . $tfile => 'Raptor' => { mode => 'append' }
);
}
return;
}
|
