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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More 1.001013;
use Test::Path::Router;
use Type::Utils 1.000005 qw(subtype as where);
use Types::Standard 1.000005 qw(Int);
use Path::Router;
my $NumericMonth = subtype
as Int,
where { $_ <= 12 };
my $router = Path::Router->new;
isa_ok($router, 'Path::Router');
can_ok($router, 'add_route');
can_ok($router, 'match');
can_ok($router, 'uri_for');
# create some routes
$router->add_route('blog/:year/:month/:day' => (
defaults => {
controller => 'blog',
action => 'show_date',
},
validations => {
year => qr/\d{4}/,
month => $NumericMonth,
day => subtype(Int => where { $_ <= 31 }),
}
));
# This used to be added at the very beginning, but we're putting it here
# to test insert_route
$router->insert_route('blog' => (
defaults => {
controller => 'blog',
action => 'index',
}
));
# This used to be added as the second argument, but we're... see above.
$router->insert_route( 'blog/:action/:id' => (
at => 2,
defaults => {
controller => 'blog',
},
validations => {
action => qr/\D+/,
id => 'Int'
}
));
# This used to be added as the last argument, but we're... see above.
$router->insert_route('test/?:x/?:y' => (
at => 1_000_000,
defaults => {
controller => 'test',
x => 'x',
y => 'y',
},
));
# create some tests
# check to make sure that "blog" is at the front
is( $router->routes->[0]->path, 'blog', "first route is 'blog'");
is( $router->routes->[2]->path, 'blog/:action/:id', "3rd route is 'blog/:action/:id'");
is( $router->routes->[3]->path, 'test/?:x/?:y', "4th route is 'test/?:x/?:y'");
routes_ok($router, {
# blog
'blog' => {
controller => 'blog',
action => 'index',
},
# blog/:year/:month/:day
'blog/2006/12/5' => {
controller => 'blog',
action => 'show_date',
year => 2006,
month => 12,
day => 5,
},
# blog/:year/:month/:day
'blog/1920/12/10' => {
controller => 'blog',
action => 'show_date',
year => 1920,
month => 12,
day => 10,
},
# blog/:action/:id
'blog/edit/5' => {
controller => 'blog',
action => 'edit',
id => 5
},
'blog/show/123' => {
controller => 'blog',
action => 'show',
id => 123
},
'blog/some_crazy_long_winded_action_name/12356789101112131151' => {
controller => 'blog',
action => 'some_crazy_long_winded_action_name',
id => '12356789101112131151',
},
'blog/delete/5' => {
controller => 'blog',
action => 'delete',
id => 5,
},
'test/x1' => {
controller => 'test',
x => 'x1',
y => 'y',
},
},
"... our routes are solid");
done_testing;
|
