[Bps-public-commit] Path-Dispatcher branch, master, updated. cd644eea3f669ed68af00b28ebdd79d3befecdba

[Shawn Moore]

The branch, master has been updated
       via  cd644eea3f669ed68af00b28ebdd79d3befecdba (commit)
      from  d85bc4339cd4b79b363293b595e490e3e280e8a0 (commit)

Summary of changes:
 t/903-number-vars.t |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit cd644eea3f669ed68af00b28ebdd79d3befecdba
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Wed Jun 23 15:12:35 2010 -0400

    More tests

diff --git a/t/903-number-vars.t b/t/903-number-vars.t
index 18ea991..f08791e 100644
--- a/t/903-number-vars.t
+++ b/t/903-number-vars.t
@@ -1,13 +1,14 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 6;
+use Test::More tests => 7;
 use Test::Exception;
 use Path::Dispatcher;
 
 my @vars;
 
 "abc" =~ /(.)(.)(.)/;
+is_deeply([$1, $2, $3, $4], ["a", "b", "c", undef]);
 
 my $dispatcher = Path::Dispatcher->new(
     rules => [

-----------------------------------------------------------------------