package main;
use Test::More tests => 8;
use Rex -base;
use Rex::Resource;
$::QUIET = 1;
task(
"test1",
sub {
my $x = param_lookup( "name", "foo" );
my $tp = template( \'<%= $name %>' );
is( $x, "foo", "got default value" );
is( $tp, "foo", "got default value in template" );
}
);
task(
"test2",
sub {
my $x = param_lookup( "name", "foo" );
my $tp = template( \'<%= $name %>' );
is( $x, "rex", "got parameter value" );
is( $tp, "rex", "got parameter value in template" );
}
);
task(
"test3",
sub {
test1();
my $x = param_lookup( "name", "foo" );
my $tp = template( \'<%= $name %>' );
is( $x, "xer", "got parameter value" );
is( $tp, "xer", "got parameter value in template" );
}
);
test1();
test2( { name => "rex" } );
test3( { name => "xer" } );