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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 11;
use Test::Fatal;
use Dancer2::Core::Hook;
like(
exception { Dancer2::Core::Hook->new( name => 'myname' ) },
qr/^Missing required arguments: code/,
'Must provide code attribute',
);
like(
exception { Dancer2::Core::Hook->new( code => sub {1} ) },
qr/^Missing required arguments: name/,
'Must provide name attribute',
);
is(
exception {
Dancer2::Core::Hook->new( name => 'myname', code => sub {1} )
},
undef,
'Can create hook with name and code',
);
{
my $hook = Dancer2::Core::Hook->new(
name => 'before_template',
code => sub {
my $input = shift;
::is( $input, 'input', 'Correct input for hook' );
return 'output';
},
);
isa_ok( $hook, 'Dancer2::Core::Hook' );
can_ok( $hook, qw<name code> );
is(
$hook->name,
'before_template_render',
'before_template becomes before_template_render',
);
isa_ok( $hook->code, 'CODE' );
is(
$hook->code->('input'),
'output',
'Hook returned proper output',
);
}
{
my $hook = Dancer2::Core::Hook->new(
name => 'CrashingHook',
code => sub { die 'dying' },
);
isa_ok( $hook, 'Dancer2::Core::Hook' );
like(
exception { $hook->code->() },
qr/^Hook error: dying/,
'Hook crashing caught',
);
}
|
