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