File: 05_layout.t

package info (click to toggle)
libdancer-perl 1.3521%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 2,460 kB
  • sloc: perl: 7,436; xml: 2,211; sh: 54; makefile: 32; sql: 5
file content (35 lines) | stat: -rw-r--r-- 644 bytes parent folder | download | duplicates (6)
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
use strict;
use warnings;

use Test::More import => ['!pass'];
use Dancer ':syntax';
use Dancer::Test;

plan tests => 6;

my $time = localtime();

ok(
    hook before_layout_render => sub {
        my $tokens = shift;
        $tokens->{time} = $time;
    }
);

ok(
    hook after_layout_render => sub {
        my $full_content = shift;
        like $$full_content, qr/start/;
        like $$full_content, qr/stop/;
    }
);

set views => path( 't', '22_hooks', 'views' );
set layout => 'main';

get '/' => sub {
    template 'index', { foo => 'baz' };
};

route_exists [ GET => '/' ];
response_content_like( [ GET => '/' ], qr/start $time/ );