enable matching of empty string specs

[catagits/Web-Simple.git] / t / dispatch_parser.t

diff --git a/t/dispatch_parser.t b/t/dispatch_parser.t
index d0b8db4..8fe2b8e 100644 (file)
--- a/t/dispatch_parser.t
+++ b/t/dispatch_parser.t
@@ -7,25 +7,20 @@ use Web::Dispatch::Parser;
 
 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'
-     );
+{
+   my $all = $dp->parse('');
 
-     is_deeply(
-       [ $all->({ REQUEST_METHOD => 'POST' }) ],
-       [ {} ],
-       'POST matches'
-     );
-   };
+   is_deeply(
+     [ $all->({ REQUEST_METHOD => 'GET' }) ],
+     [ {} ],
+     'GET matches'
+   );
+
+   is_deeply(
+     [ $all->({ REQUEST_METHOD => 'POST' }) ],
+     [ {} ],
+     'POST matches'
+   );
 };
 
 {