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
|
use strict;
use warnings;
use lib 't/lib';
use Test::More;
plan skip_all => 'Perl >=5.12 required' if $] < 5.012;
plan tests => 2;
use Dancer2;
use Dancer2::Plugin::DefineKeywords;
my $plugin = Dancer2::Plugin::DefineKeywords->new( app => undef );
subtest "keywords are registered" => sub {
for my $keyword ( @::expected_keywords ) {
ok( ( scalar grep { $_ eq $keyword } keys %{ $plugin->keywords } ), $keyword );
}
};
subtest "keywords are recognized" => sub {
is foo() => 'foo', 'foo';
is bar() => 'bar', 'bar';
is quux() => 'quux', 'quux';
};
|
