#!/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::chicken;

$::QUIET = 1;

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

my ($task_name) = $task_list->get_tasks;
is( $task_name, "t:tasks:chicken:cross_road", "found_task" );
my $task = $task_list->get_task($task_name);

my $bts = $task->{before_task_start};

is( @$bts, 2, "found 2 before_task_start hooks" );
is( ref $bts->[0] eq "CODE" ? $bts->[0]->() : undef,
  "look left", "first before_task_start hook executes" );
is( ref $bts->[1] eq "CODE" ? $bts->[1]->() : undef,
  "look right", "second before_task_start hook executes" );

my $atf = $task->{after_task_finished};

is( @$atf, 2, "found 2 after_task_finished hooks" );
is(
  ref $atf->[0] eq "CODE" ? $atf->[0]->() : undef,
  "got to the other side",
  "first after_task_finished hook executes"
);
is( ref $atf->[1] eq "CODE" ? $atf->[1]->() : undef,
  "celebrate!", "second after_task_finished hook executes" );

done_testing();