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
|
package TestUtils;
use base 'Exporter';
use vars '@EXPORT';
use File::Path qw(mkpath rmtree);
use Dancer::Request;
@EXPORT =
qw(http_request write_file clean_tmp_files);
sub http_request {
my ($port, $method, $path) = @_;
my $url = "http://localhost:${port}${path}";
my $lwp = LWP::UserAgent->new;
my $req = HTTP::Request->new($method => $url);
return $lwp->request($req);
}
sub write_file {
my ($file, $content) = @_;
open CONF, '>', $file or die "cannot write file $file : $!";
print CONF $content;
close CONF;
}
sub clean_tmp_files {
my $appdir = setting('appdir') || File::Spec->tmpdir();
my $logs_dir = File::Spec->catdir($appdir, 'logs');
rmtree($logs_dir) if -d $logs_dir;
my $sessions = setting session_dir;
rmtree($sessions) if $sessions && -d $sessions;
}
1;
|
