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 Dancer2;
# testing default values
is( setting('port'), '3000', "default value for 'port' is OK" );
is( setting('content_type'), 'text/html',
"default value for 'content_type' is OK"
);
#should we test for all default values?
# testing new settings
ok( setting( 'foo' => '42' ), 'setting a new value' );
is( setting('foo'), 42, 'new value has been set' );
# test the alias 'set'
ok( set( bar => 43 ), 'setting bar with set' );
is( setting('bar'), 43, 'new value has been set' );
#multiple values
ok( setting( 'foo' => 43, bar => 44 ), 'set multiple values' );
ok( setting('foo') == 43 && setting('bar') == 44,
'set multiple values successful'
);
done_testing;
|
