File: route_retvals.t

package info (click to toggle)
libdancer2-perl 0.207000%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,460 kB
  • sloc: perl: 8,069; makefile: 7
file content (15 lines) | stat: -rw-r--r-- 409 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use strict;
use warnings;
use Dancer2;
use Test::More ();

my @routes = get '/' => sub {1};
Test::More::is( scalar @routes, 2, 'Two routes available' );
foreach my $route (@routes) {
    Test::More::isa_ok( $route, 'Dancer2::Core::Route' );
}

Test::More::is( $routes[0]->method, 'get', 'Created GET route' );
Test::More::is( $routes[1]->method, 'head', 'Created HEAD route too' );

Test::More::done_testing;