Imported upstream version 0.13

[liburi-template-perl.git] / t / 20-deparse.t

diff --git a/t/20-deparse.t b/t/20-deparse.t
index 4fac4b3..1a19346 100644 (file)
--- a/t/20-deparse.t
+++ b/t/20-deparse.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 13;
 
 use_ok( 'URI::Template' );
 
@@ -44,3 +44,11 @@ use_ok( 'URI::Template' );
     my %result = $template->deparse( $uri );
     is_deeply( \%result, \%input, 'process => deparse w/ multiple chars' );
 }
+
+{
+    my $template = URI::Template->new( 'http://ex.com/profile/{username}/address' );
+    isa_ok( $template, 'URI::Template' );
+    my $uri = 'http://ex.com/profile/Test/addresses';
+    my %result = $template->deparse( $uri );
+    is_deeply( \%result, { username => undef }, 'regex properly terminated' );
+}