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});
}