use strict;
use Test;
BEGIN { plan tests => 3 }
use Text::Tmpl qw(TEMPLATE_TRUE
TEMPLATE_FALSE);
my $return;
my($context) = new Text::Tmpl;
ok(defined $context);
$return = $context->set_value('foo', TEMPLATE_TRUE);
ok($return);
$return = $context->set_value('foo', TEMPLATE_FALSE);
ok($return);