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

[sartak at bestpractical.com]

Author: sartak
Date: Wed Oct 29 21:47:24 2008
New Revision: 16622

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/t/013-tokens.t

Log:
 r74858 at onn:  sartak | 2008-10-29 21:47:21 -0400
 Plenty of tokens tests


Modified: Path-Dispatcher/trunk/t/013-tokens.t
==============================================================================
--- Path-Dispatcher/trunk/t/013-tokens.t	(original)
+++ Path-Dispatcher/trunk/t/013-tokens.t	Wed Oct 29 21:47:24 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 9;
+use Test::More tests => 10;
 use Path::Dispatcher;
 
 my @calls;
@@ -62,3 +62,13 @@
 $dispatcher->run('Not Appearing in this Dispatcher Man');
 is_deeply([splice @calls], [ ], "no match");
 
+my $rule = Path::Dispatcher::Rule::Tokens->new(
+    tokens         => ['path', 'dispatcher'],
+    delimiter      => '::',
+    prefix         => 1,
+    case_sensitive => 0,
+);
+
+my $match = $rule->match('Path::Dispatcher::Rule::Tokens');
+is($match->leftover, 'Rule::Tokens');
+