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 Test::More;
use Test::Fatal;
use File::Basename 'dirname';
use Dancer2::Core::Runner;
my $runner = Dancer2::Core::Runner->new();
isa_ok $runner, 'Dancer2::Core::Runner';
note "testing environments";
is $runner->environment, 'development';
{
local $ENV{DANCER_ENVIRONMENT} = 'production';
my $runner = Dancer2::Core::Runner->new();
is $runner->environment, 'production';
}
{
local $ENV{PLACK_ENV} = 'foo';
my $runner = Dancer2::Core::Runner->new();
is $runner->environment, 'foo';
}
note "testing default config of the server";
is $runner->port, 3000;
is $runner->host, '0.0.0.0';
done_testing;
|
