my $dp = Web::Dispatch::Parser->new;
+TODO: {
+ local $TODO = 'according to the synopsis this should work';
+ my $all = eval {
+ $dp->parse('');
+ };
+ ok $all;
+ eval {
+ is_deeply(
+ [ $all->({ REQUEST_METHOD => 'GET' }) ],
+ [ {} ],
+ 'GET matches'
+ );
+
+ is_deeply(
+ [ $all->({ REQUEST_METHOD => 'POST' }) ],
+ [ {} ],
+ 'POST matches'
+ );
+ };
+};
+
{
my $get = $dp->parse('GET');
);
}
+{
+ my @dot_pairs = (
+ [ '/one/*' => 'two' ],
+ [ '/one/*.*' => 'two.three' ],
+ [ '/**' => 'one/two' ],
+ [ '/**.*' => 'one/two.three' ],
+ );
+
+ foreach my $p (@dot_pairs) {
+ is_deeply(
+ [ $dp->parse($p->[0])->({ PATH_INFO => '/one/two.three' }) ],
+ [ {}, $p->[1] ],
+ "${\$p->[0]} matches /one/two.three and returns ${\$p->[1]}"
+ );
+ }
+}
+
#
# query string
#