1use strict;
2use warnings;
3use lib 't/lib';
4
5use Test::More;
6use Test::Deep;
7
8use Rex::Commands;
9use Rex::Commands::Run;
10
11use t::tasks::cowbefore;
12
13$::QUIET = 1;
14
15my $task_list = Rex::TaskList->create;
16
17my @task_names = $task_list->get_tasks;
18cmp_deeply
19  \@task_names,
20  [qw/t:tasks:cowbefore:roundup/],
21  "found task";
22
23for my $tn (@task_names) {
24  my $before = $task_list->get_task($tn)->get_data->{before};
25  ok($before);
26  is( ( scalar @$before ), 1,    $tn );
27  is( $before->[0]->(),    'yo', $tn ) if (@$before);
28}
29
30done_testing();
31