X-Git-Url: http://erislabs.net/gitweb/?p=liburi-template-perl.git;a=blobdiff_plain;f=t%2F10-basic.t;h=c7b57c3b517a78fc250429df33c566499f22c0a1;hp=4d6f404c8ddcf8d812dbb7149d26a1d6e408109b;hb=8ae3345c296c24329f5889474dd633174d57b13b;hpb=1d94fcb2781945132b9a29e93744b6c168e647aa diff --git a/t/10-basic.t b/t/10-basic.t index 4d6f404..c7b57c3 100644 --- a/t/10-basic.t +++ b/t/10-basic.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 21; +use Test::More tests => 28; use_ok( 'URI::Template' ); @@ -17,6 +17,29 @@ use_ok( 'URI::Template' ); } } +# "0" as a template +{ + my $template = URI::Template->new( '0' ); + isa_ok( $template, 'URI::Template' ); + is( $template->template, '0', 'template() is "0"' ); + + { + my $result = $template->process(); + is( $result, '0', 'process() for "0" template' ); + isa_ok( $result, 'URI', 'return value from process() isa URI' ); + } + + # set template back to empty + $template->template( '' ); + is( $template->template, '', 'template() is empty' ); + + { + my $result = $template->process(); + is( $result, '', 'process() for new empty template' ); + isa_ok( $result, 'URI', 'return value from process() isa URI' ); + } +} + # Update template { my $template = URI::Template->new;