X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2F7_template_00_base.t;h=7fa643b5c0ac333018d9cd3569fa824110a56427;hb=refs%2Ftags%2Fv2.07;hp=9481952e0730f39e60e6939ae8707db3e8744b74;hpb=83f0c6a9aaf9bc520cef93b958d51a5d85e8999c;p=chaz%2Fp5-CGI-Ex diff --git a/t/7_template_00_base.t b/t/7_template_00_base.t index 9481952..7fa643b 100644 --- a/t/7_template_00_base.t +++ b/t/7_template_00_base.t @@ -14,7 +14,7 @@ BEGIN { }; use strict; -use Test::More tests => 514 - ($is_tt ? 103 : 0); +use Test::More tests => 515 - ($is_tt ? 103 : 0); use Data::Dumper qw(Dumper); use constant test_taint => 0 && eval { require Taint::Runtime }; @@ -374,7 +374,7 @@ process_ok('[% a = Hash.new("one", "ONE") %][% a.one %]' => 'ONE') if ! $is_tt; process_ok('[% a = Hash.new(one = "ONE") %][% a.one %]' => 'ONE') if ! $is_tt; process_ok('[% a = Hash.new(one => "ONE") %][% a.one %]' => 'ONE') if ! $is_tt; -process_ok('[% {a => 1, b => 2} | Hash.keys | List.join(", ") %]' => 'a, b'); +process_ok('[% {a => 1, b => 2} | Hash.keys | List.join(", ") %]' => 'a, b') if ! $is_tt; ###----------------------------------------------------------------### ### chomping @@ -729,6 +729,9 @@ process_ok("[% USE d.d = Foo(bar = 'baz') %]one[% d.d.bar %]" => '', {tt_config process_ok("[% USE a(bar = 'baz') %]one[% a.seven %]" => '', {tt_config => [@config_p, PLUGINS => {a=>'Foo'}, ]}); process_ok("[% USE a(bar = 'baz') %]one[% a.seven %]" => 'one7', {tt_config => [@config_p, PLUGINS => {a=>'Foo2'},]}); +@config_p = (PLUGIN_BASE => ['NonExistant', 'MyTestPlugin'], LOAD_PERL => 1); +process_ok("[% USE Foo %]one" => 'one', {tt_config => \@config_p}); + ###----------------------------------------------------------------### ### macro