#!/usr/bin/env perl
use
v5.12.5;
use
warnings;
our
$VERSION
=
'9999.99.99_99'
;
# VERSION
use
Test::Warnings;
use
Rex::Commands;
desc(
"Test"
);
task(
"test"
,
sub
{
return
"test"
;
}
);
is( 1, Rex::TaskList->create()->is_task(
"test"
),
"is_task"
);
is(
"Test"
,
Rex::TaskList->create()->get_desc(
"test"
),
"get test task description"
);
is(
"test"
,
Rex::TaskList->create()->get_task(
"test"
)->run(
"<local>"
),
"run test task"
);
1;