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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More import => ['!pass'];
use Test::Exception;
use Dancer;
use Dancer::ModuleLoader;
use Dancer::Session::Cookie;
use FindBin;
use File::Spec;
use Test::Requires 'YAML';
plan tests => 3;
my $session;
throws_ok { $session = Dancer::Session::Cookie->create }
qr/session_cookie_key must be defined/, 'still requires session_cookie_key';
set confdir => "$FindBin::Bin/data";
ok(-r File::Spec->catfile(setting('confdir'), 'config.yml'),
'config.yml is available');
Dancer::Config::load();
lives_and { $session = Dancer::Session::Cookie->create }
'session key loaded from config.yml';
is $@, '', "Cookie session created";
|
