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
|
use Test::More import => ['!pass'];
use File::Spec;
use Dancer ':syntax';
use Dancer::FileUtils qw/read_file_content path_or_empty/;
use lib File::Spec->catdir( 't', 'lib' );
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',
);
}
|
