Commit | Line | Data |
1a3dd976 |
1 | use strict; |
2 | use warnings; |
3 | use FindBin qw/$Bin/; |
0f6be50c |
4 | |
5 | # Package::Stash::XS has a weird =~ XS invocation during its compilation |
6 | # This interferes with @INC hooks that do rematcuing on their own on |
7 | # perls before 5.8.7. Just use the PP version to work around this. |
8 | BEGIN { $ENV{PACKAGE_STASH_IMPLEMENTATION} = 'PP' if $] < '5.008007' } |
9 | |
1a3dd976 |
10 | use Test::More; |
1b4b5aa5 |
11 | use Try::Tiny; |
12 | |
13 | plan skip_all => "Need Test::Without::Module for this test" |
14 | unless try { require Test::Without::Module; 1 }; |
15 | |
925f5877 |
16 | Test::Without::Module->import(qw( |
44cf0958 |
17 | Starman::Server |
1a3dd976 |
18 | Plack::Handler::Starman |
19 | MooseX::Daemonize |
20 | MooseX::Daemonize::Pid::File |
21 | MooseX::Daemonize::Core |
925f5877 |
22 | )); |
23 | |
1a3dd976 |
24 | require "$Bin/../aggregate/unit_core_script_server.t"; |
25 | |
bf6a6368 |
26 | Test::Without::Module->unimport(qw( |
44cf0958 |
27 | Starman::Server |
1b4b5aa5 |
28 | Plack::Handler::Starman |
29 | MooseX::Daemonize |
30 | MooseX::Daemonize::Pid::File |
31 | MooseX::Daemonize::Core |
bf6a6368 |
32 | )); |
1b4b5aa5 |
33 | |
ed7e95f2 |
34 | 1; |
35 | |