use
File::Spec;
use
TestUtils;
use
strict;
use
warnings;
plan
skip_all
=>
"File::Temp 0.22 required"
unless
Dancer::ModuleLoader->load(
'File::Temp'
,
'0.22'
);
plan
tests
=> 3;
my
$tmp
= File::Temp->new();
write_file(
$tmp
,
"one$/two"
);
my
$content
= read_file_content(
$tmp
);
ok
$content
=
"one$/two"
;
my
@content
= read_file_content(
$tmp
);
ok
$content
[0] eq
"one$/"
&&
$content
[1] eq
'two'
;
# returns UNDEF on non-existant path
my
$path
=
'bla/blah'
;
if
(! -e
$path
) {
is(
path_or_empty(
$path
),
''
,
'path_or_empty on non-existent path'
,
);
}