1use warnings; 2use strict; 3use lib 't'; 4use Test::More tests => 1; 5use HTML::Template::Compiled; 6use HTC_Utils qw($cache $tdir &cdir); 7use HTC_Plugin; 8 9{ 10 my $htc = HTML::Template::Compiled->new( 11 scalarref => \<<'EOM', 12<%homer beer=beercount %> 13<%bart donut=donutcount %> 14EOM 15 plugin => [qw(HTC_Plugin1 HTC_Plugin2)], 16 debug => 0, 17 ); 18 $htc->param( 19 beercount => 3, 20 donutcount => 7, 21 ); 22 23 my $out = $htc->output; 24 #print "out: $out\n"; 25 cmp_ok($out, '=~', qr{Homer wants 3 beers.*Bart wants 7 donuts}s, "two plugins"); 26} 27 28 29