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 Test::More tests => 9, import => ['!pass'];
use strict;
use warnings;
use Dancer::App;
my $app = Dancer::App->new;
isa_ok $app, 'Dancer::App';
is $app->name, 'main',
"default app is 'main'";
eval { my $other = Dancer::App->new };
like $@, qr/an app named 'main' already exists/,
"cannot create twice the same app";
my $other = Dancer::App->new(name => 'Foo::Bar');
is $other->name, 'Foo::Bar',
"Foo::Bar app created";
isa_ok(Dancer::App->current(), 'Dancer::App');
is(Dancer::App->current->name, 'main',
"current is main");
ok(Dancer::App->current(Dancer::App->new(name => "Other")),
"set current to 'Other'");
is(Dancer::App->current->name, 'Other',
"current is 'Other'");
$app->prefix('foo');
is $app->prefix, 'foo', 'prefix is set';
|
