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
33
34
|
use Test::More tests => 2;
use strict;
use warnings;
use Dancer::Config;
use Dancer::ModuleLoader;
use File::Spec;
use lib File::Spec->catdir( 't', 'lib' );
use EasyMocker;
mock 'Dancer::Config'
=> method 'conffile'
=> should sub { __FILE__ };
mock 'Dancer::ModuleLoader'
=> method 'load'
=> should sub { 0, "Fish error. Goldfish in YAML." };
eval { Dancer::Config->load };
like $@, qr/Could not load YAML: Fish error. Goldfish in YAML./,
"Dancer::Config cannot load without YAML";
unmock 'Dancer::ModuleLoader' => method 'load';
SKIP: {
skip 'YAML not available', 1 unless Dancer::ModuleLoader->load('YAML');
mock 'YAML'
=> method 'LoadFile'
=> should sub { undef };
eval { Dancer::Config::load_settings_from_yaml('foo.yml') };
like $@, qr/Unable to parse the configuration file: foo.yml/, "YAML error caught";
}
|
