/
load.t
70 lines (58 loc) · 1.31 KB
/
load.t
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
use strict;
use Plack::Util;
use Plack::Test;
use HTTP::Request::Common;
use Test::More;
{
my $app = Plack::Util::load_psgi("t/Plack-Util/hello.psgi");
ok $app;
test_psgi $app, sub {
is $_[0]->(GET "/")->content, "Hello";
};
}
{
my $app = Plack::Util::load_psgi("t/Plack-Util/bad.psgi");
ok $app;
ok !$INC{"CGI.pm"};
}
{
my $app = Plack::Util::load_psgi("t/Plack-Util/bad2.psgi");
ok $app;
eval { Plack::Util::load_class("Plack") };
is $@, '';
}
{
use lib "t/Plack-Util";
my $app = Plack::Util::load_psgi("Hello");
ok $app;
test_psgi $app, sub {
is $_[0]->(GET "/")->content, "Hello";
};
}
{
eval { Plack::Util::load_psgi("t/Plack-Util/error.psgi") };
like $@, qr/Global symbol/;
}
{
eval { Plack::Util::load_psgi("t/Plack-Util/nonexistent.psgi") };
unlike $@, qr/Died/;
}
{
my $app = Plack::Util::load_psgi("t/Plack-Util/bin/findbin.psgi");
test_psgi $app, sub {
like $_[0]->(GET "/")->content, qr!t[/\\]Plack-Util[/\\]bin$!;
}
}
{
require Cwd;
my $cwd = Cwd::cwd();
chdir "t/Plack-Util";
local @INC = ("./inc", @INC);
my $app = Plack::Util::load_psgi("hello.psgi");
ok $app;
test_psgi $app, sub {
is $_[0]->(GET "/")->content, "Hello";
};
chdir $cwd;
}
done_testing;