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
|
use strict;
use warnings;
use Plack::Test;
use HTTP::Request::Common;
use Test::More tests => 2;
{
package App1;
use Dancer2;
get '/' => sub {'App1'};
my $app = to_app;
::test_psgi $app, sub {
my $cb = shift;
::is( $cb->( ::GET '/' )->content, 'App1', 'Got first App' );
};
}
{
package App2;
use Dancer2;
get '/' => sub {'App2'};
my $app = to_app;
::test_psgi $app, sub {
my $cb = shift;
::is( $cb->( ::GET '/' )->content, 'App2', 'Got second App' );
};
}
|
