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