#!/usr/bin/env perl
use v5.12.5;
use warnings;
our $VERSION = '9999.99.99_99'; # VERSION
package main;
use Test::More tests => 9;
use Test::Warnings;
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" } );