use Test::More qw/no_plan/;
use HTML::Template;

my $text = qq{Foo: <tmpl_var foo default='0' escape=JS>};

my $template = HTML::Template->new(
#        debug => 1,
#        stack_debug => 1,
        scalarref => \$text,
                                  );
$template->param(foo => 1);
my $output = $template->output;

is($output, "Foo: 1");