Imported upstream version 0.12

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

diff --git a/t/20-deparse.t b/t/20-deparse.t
index acb753e..4fac4b3 100644 (file)
--- a/t/20-deparse.t
+++ b/t/20-deparse.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

-use Test::More tests => 8;
+use Test::More tests => 11;

 
 use_ok( 'URI::Template' );
 
 
 use_ok( 'URI::Template' );
 


@@ -34,3 +34,13 @@ use_ok( 'URI::Template' );
     my %result = $template->deparse( $uri );
     is_deeply( \%result, \%input, 'process => deparse' );
 }
     my %result = $template->deparse( $uri );
     is_deeply( \%result, \%input, 'process => deparse' );
 }

+
+{
+    my $template = URI::Template->new( 'http://ex.com/{test}' );
+    isa_ok( $template, 'URI::Template' );
+    my %input = ( test => 'test' );
+    my $uri = $template->process( test => 'test' );
+    is( $uri, 'http://ex.com/test' );
+    my %result = $template->deparse( $uri );
+    is_deeply( \%result, \%input, 'process => deparse w/ multiple chars' );
+}