package MyTest;
use Rex -base;
use Rex::Resource::Common;
use Test::More;
$::QUIET = 1;
resource "foo", sub {
my $test_name = resource_name;
my $mode = param_lookup "mode", "0755";
is( $test_name, "testname", "resource name is testname" );
is( $mode, "0666", "got mode 0666" );
};
1;
package main;
use Rex -base;
use Test::More;
use Rex::CMDB;
use Rex::Commands;
import MyTest;
set(
cmdb => {
type => "YAML",
path => "t/cmdb",
}
);
use Test::More tests => 2;
use Rex -base;
task(
"test1",
sub {
MyTest::foo("testname");
}
);
test1();