use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 11;
use_ok( 'URI::Template' );
{
- my $template = URI::Template->new( 'http://{domain}.com/{dir}/{file}.html' );
+ my $template
+ = URI::Template->new( 'http://{domain}.com/{dir}/{file}.html' );
isa_ok( $template, 'URI::Template' );
my %result = $template->deparse( 'http://example.com/test/1.html' );
- is_deeply( \%result, { domain => 'example', dir => 'test', file => '1' }, 'deparse()' );
+ is_deeply( \%result, { domain => 'example', dir => 'test', file => '1' },
+ 'deparse()' );
}
{
my $template = URI::Template->new( 'http://test.com/{x}/{y}/{x}/{y}' );
isa_ok( $template, 'URI::Template' );
my %result = $template->deparse( 'http://test.com/1/2/1/2' );
- is_deeply( \%result, { x => 1, y => 2 }, 'deparse() with multiple values' );
+ is_deeply(
+ \%result,
+ { x => 1, y => 2 },
+ 'deparse() with multiple values'
+ );
}
{
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' );
+}