#!/usr/bin/env perl

use v5.12.5;
use warnings;
use lib 't/lib';

our $VERSION = '9999.99.99_99'; # VERSION

use Test::More;
use Test::Warnings;
use Test::Deep;

use Rex::Commands;
use Rex::Commands::Run;

use t::tasks::cowbefore;

$::QUIET = 1;

my $task_list = Rex::TaskList->create;

my @task_names = $task_list->get_tasks;
cmp_deeply
  \@task_names,
  [qw/t:tasks:cowbefore:roundup/],
  "found task";

for my $tn (@task_names) {
  my $before = $task_list->get_task($tn)->get_data->{before};
  ok($before);
  is( ( scalar @$before ), 1,    $tn );
  is( $before->[0]->(),    'yo', $tn ) if (@$before);
}

done_testing();