#!/usr/bin/env perl
use v5.12.5;
use warnings;
our $VERSION = '9999.99.99_99'; # VERSION
package MyTest;
use Rex -base;
use Rex::Resource::Common;
use Test::More;
use Test::Warnings;
$::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 Test::Warnings;
use Rex::CMDB;
use Rex::Commands;
import MyTest;
set(
  cmdb => {
    type => "YAML",
    path => "t/cmdb",
  }
);
use Test::More tests => 3;
use Rex -base;
task(
  "test1",
  sub {
    MyTest::foo("testname");
  }
);
test1();