[Bps-public-commit] r16676 - in Path-Dispatcher/trunk: t

[sartak at bestpractical.com]

Author: sartak
Date: Tue Nov  4 17:37:01 2008
New Revision: 16676

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/t/100-declarative.t

Log:
 r74965 at onn:  sartak | 2008-11-03 22:57:00 -0500
 Ensure that token matching is by default case sensitive in the declarative dispatcher


Modified: Path-Dispatcher/trunk/t/100-declarative.t
==============================================================================
--- Path-Dispatcher/trunk/t/100-declarative.t	(original)
+++ Path-Dispatcher/trunk/t/100-declarative.t	Tue Nov  4 17:37:01 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 7;
 
 my @calls;
 
@@ -13,6 +13,10 @@
         push @calls, [$1, $2, $3];
     };
 
+    on ['token', 'matching'] => sub {
+        push @calls, [$1, $2];
+    };
+
     rewrite quux => 'bar';
     rewrite qr/^quux-(.*)/ => sub { "bar:$1" };
 };
@@ -35,3 +39,11 @@
     [ 'b', 'ar', ':hello' ],
 ]);
 
+MyApp::Dispatcher->run('token matching');
+is_deeply([splice @calls], [
+    [ 'token', 'matching' ],
+]);
+
+MyApp::Dispatcher->run('Token Matching');
+is_deeply([splice @calls], [], "token matching is by default case sensitive");
+