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

[sartak at bestpractical.com]

Author: sartak
Date: Tue Jul 29 15:48:01 2008
New Revision: 14619

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/t/001-api.t

Log:
 r67907 at onn:  sartak | 2008-07-29 15:47:55 -0400
 Make sure that the dispatch thunk sets $1 etc properly


Modified: Path-Dispatcher/trunk/t/001-api.t
==============================================================================
--- Path-Dispatcher/trunk/t/001-api.t	(original)
+++ Path-Dispatcher/trunk/t/001-api.t	Tue Jul 29 15:48:01 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 9;
 use Path::Dispatcher;
 
 my @calls;
@@ -39,3 +39,8 @@
 $dispatcher->run('bar');
 is_deeply([splice @calls], [ ['bar', undef] ], "invoked the rule block on 'run'");
 
+"foo" =~ /foo/;
+
+$thunk->();
+is_deeply([splice @calls], [ ['bar', undef] ], "invoked the rule block on 'run', makes sure \$1 etc are still correctly set");
+