1use Test::More ($] < 5.008000 ? (skip_all => 'force_untaint needs at least perl 5.8.0') : (tests => 2));
2use_ok('HTML::Template');
3
4my $text = 'foo';
5eval { HTML::Template->new(debug => 0, scalarref => \$text, force_untaint => 1) };
6like($@, qr/perl does not run in taint mode/, "force_untaint does not work without taint mode");
7