# $Id: 03_param.t 1128 2011-10-31 19:59:56Z tinita $

use Test::More tests => 12;
BEGIN {
    use_ok('HTML::Template::Compiled');
    use_ok('HTML::Template::Compiled::Classic');
}

{
local $HTML::Template::Compiled::DEFAULT_QUERY = 1;
my $htc = HTML::Template::Compiled->new(
	path => 't/templates',
	scalarref => \'<tmpl_var foo> <tmpl_var bar>',
);

$htc->param(
	this => {
		is => [qw(a test for param)],
		returning => 'the value for a parameter',
	},
);
my $test = $htc->param("this");
ok($test->{is}->[3] eq 'param', "param('var')");


    my @param = sort $htc->param();
    #print "(@param)\n";
	cmp_ok(@param, "==", 2, "param() 1");
	cmp_ok($param[0], "eq", 'bar', "param() 2");
	cmp_ok($param[1]||'', "eq", 'foo', "param() 2");
	eval {
        my @query = sort $htc->query();
	    cmp_ok("@param", "eq", "@query", "query");
    };

param_accumulates: {
    $htc->clear_params;
    $htc->param({ foo => 'foo value' });
    like($htc->output, qr/foo value/);
    $htc->param({ bar => 'bar value' });
    like($htc->output, qr/foo value/);
}

literal_dot_is_ok: {
    # To be compatible with H::T, we need
    # to first check if a dot is literal
    # part of the name before treating it magically. 
    # This is important for a smooth upgrade path. 
    my $htc = HTML::Template::Compiled::Classic->new(
        path => 't/templates',
        scalarref => \'<tmpl_var foo.bar>',
    );
    $htc->param('foo.bar', 'WORKS');
    like($htc->output, qr/WORKS/, "HTC::Classic literal dot is OK");
}

subref_variables: {
    my $htc = HTML::Template::Compiled::Classic->new(
        scalarref => \"<TMPL_VAR foo><TMPL_LOOP loop><TMPL_VAR a><TMPL_VAR foo></TMPL_LOOP>",
        global_vars => 1,
    );
    $htc->param(
        foo => sub { return "bar" },
        loop => [{a=>23}],
    );
    my $out = $htc->output;
    #print "($out)\n";
    cmp_ok($out, 'eq', "bar23bar", "HTC::Classic subref variables");
}

case_sensitive: {
    my $htc = HTML::Template::Compiled::Classic->new(
        scalarref => \"<TMPL_VAR foo> & <TMPL_VAR BAR>",
        case_sensitive => 0,
    );
    $htc->param(
        foo => 'Harold',
        bar => 'Maude',
    );
    my $out = $htc->output;
    #print "($out)\n";
    cmp_ok($out, 'eq', "Harold & Maude", "HTC::Classic case_sensitive");
}


}