use strict;
use Test;

BEGIN { plan tests => 13 }

use Text::Tmpl;

my($return, $subcontext);
my $context = new Text::Tmpl;

$return = $context->set_delimiters(undef, undef);
ok(! $return);

$return = $context->register_simple(undef, undef);
ok(! $return);

$return = $context->register_pair(undef, undef, undef, undef);
ok(! $return);

$return = $context->set_debug(undef);
ok(! $return);

$return = $context->set_strip(undef);
ok(! $return);

$return = $context->set_dir(undef);
ok(! $return);

$return = $context->set_value(undef, undef);
ok(! $return);

$return = $context->set_values(undef);
ok(! $return);

$return = $context->set_values({ 'key' => undef });
ok($return);

$subcontext = $context->loop_iteration(undef);
ok(! defined $subcontext);

$return = $context->alias_simple(undef, undef);
ok(! $return);

$return = $context->alias_pair(undef, undef, undef, undef);
ok(! $return);

$subcontext = $context->fetch_loop_iteration(undef, undef);
ok(! defined $subcontext);