use strict;
use warnings;
use Test::More tests => 24;
use_ok 'Rex::Template';
use_ok 'Rex::Config';
my $t = Rex::Template->new;
Rex::Config->set( foo => "bar" );
my $content = 'one two three';
ok( $t->parse( $content, {} ) eq "one two three", "just text" );
$content = 'Hello this is <%= $::name %>';
ok( $t->parse( $content, { name => "foo" } ) eq "Hello this is foo",
"simple variable" );
$content = '<% if($::logged_in) { %>
Logged in!
<% } else { %>
Logged out!
<% } %>';
my $content_ok = "
Logged in!
";
ok( $t->parse( $content, { logged_in => 1 } ) eq $content_ok, "if condition" );
$content = 'Hello this is <%= $::name %>';
ok(
Rex::Config->get_template_function()->( $content, { name => "baz" } ) eq
"Hello this is baz",
"get template function"
);
ok( $t->parse( $content, name => "bar" ) eq "Hello this is bar",
"simple variable without hashRef" );
$content = 'Hello this is <%= $::foo %>';
ok( $t->parse($content) eq "Hello this is bar", "get keys from Rex::Config" );
ok( $t->parse( $content, { foo => "baz" } ) eq "Hello this is baz",
"overwrite keys from Rex::Config" );
$Rex::Template::BE_LOCAL = 1;
$Rex::Template::BE_LOCAL = 1;
$content = 'Hello this is <%= $foo %>';
ok( $t->parse( $content, { foo => "baz" } ) eq "Hello this is baz",
"local vars" );
$content = '<%= join(",", @{ $arr }) %>';
ok( $t->parse( $content, { arr => [qw/one two three/] } ) eq "one,two,three",
"local var with array" );
#
# old variable style
#
$content = 'one two three';
ok( $t->parse( $content, {} ) eq "one two three", "just text" );
$content = 'Hello this is <%= $::name %>';
ok( $t->parse( $content, { name => "foo" } ) eq "Hello this is foo",
"simple variable" );
$content = '<% if($::logged_in) { %>
Logged in!
<% } else { %>
Logged out!
<% } %>';
$content_ok = "
Logged in!
";
ok( $t->parse( $content, { logged_in => 1 } ) eq $content_ok, "if condition" );
$content = 'Hello this is <%= $::name %>';
ok(
Rex::Config->get_template_function()->( $content, { name => "baz" } ) eq
"Hello this is baz",
"get template function"
);
ok( $t->parse( $content, name => "bar" ) eq "Hello this is bar",
"simple variable without hashRef" );
$content = 'Hello this is <%= $::foo %>';
ok( $t->parse($content) eq "Hello this is bar", "get keys from Rex::Config" );
ok( $t->parse( $content, { foo => "baz" } ) eq "Hello this is baz",
"overwrite keys from Rex::Config" );
$content = 'Hello this is <%= $::foo %> <%= $::veth1_0_ip %>';
ok(
$t->parse( $content, { foo => "baz", "veth1.0_ip" => "10.1.2.3" } ) eq
"Hello this is baz 10.1.2.3",
"template with invalid key name"
);
my $v = {
"foo" => { val => "val1", name => "foo" },
"foo_bar" => { val => "val2", name => "foo_bar" },
"k-ey" => { val => "val3", name => "k_ey" },
"veth0.1" => { val => "val4", name => "veth0_1" },
"2nd\\key" => { val => "val5", name => "2nd_key" },
};
for my $key ( keys %{$v} ) {
my $var_name = Rex::Template::_normalize_var_name($key);
ok( $var_name eq $v->{$key}->{name},
"$var_name is equal to " . $v->{$key}->{name} );
}