1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Dancer2::Core;
use Dancer2::Core::Factory;
is Dancer2::Core::camelize('foo_bar_baz'), 'FooBarBaz';
is Dancer2::Core::camelize('FooBarBaz'), 'FooBarBaz';
like(
exception { my $l = Dancer2::Core::Factory->create( unknown => 'stuff' ) },
qr{Unable to load class for Unknown component Stuff:},
'Failure to load nonexistent class',
);
my $l = Dancer2::Core::Factory->create( logger => 'console' );
isa_ok $l, 'Dancer2::Logger::Console';
done_testing;
|
