#!/usr/bin/env perl
use v5.12.5;
use warnings;
our $VERSION = '9999.99.99_99'; # VERSION
use Test::More;
use Test::Warnings qw(:no_end_test had_no_warnings);
use Rex::Commands;
{
  package MyTest;
  use warnings;
  use Rex::Commands;
  $::QUIET = 1;
  task "test1", sub {
    open( my $fh, ">", "test1.txt" );
    close($fh);
  };
  task "test2", sub {
    open( my $fh, ">", "test2.txt" );
    close($fh);
  };
  1;
}
{
  package Nested::Module;
  use warnings;
  use Rex::Commands;
  task "test", sub {
    open( my $fh, ">", "test.txt" );
    close($fh);
  };
}
{
  package Rex::Module;
  use warnings;
  use Rex::Commands;
  task "test", sub {
    open( my $fh, ">", "test.txt" );
    close($fh);
  };
}
task "test", sub {
  needs MyTest;
  if ( -f "test1.txt" && -f "test2.txt" ) {
    unlink("test1.txt");
    unlink("test2.txt");
    return 1;
  }
  die;
};
task "test2", sub {
  needs MyTest "test2";
  if ( -f "test2.txt" ) {
    unlink("test2.txt");
    return 1;
  }
  die;
};
task "test3", sub {
  needs("test4");
  if ( -f "test4.txt" ) {
    unlink("test4.txt");
    return 1;
  }
  die;
};
task "test4", sub {
  open( my $fh, ">", "test4.txt" );
  close($fh);
};
task "test5", sub {
  needs Nested::Module "test";
  if ( -f "test.txt" ) {
    unlink("test.txt");
    return 1;
  }
  die;
};
task "test6", sub {
  needs Rex::Module "test";
  if ( -f "test.txt" ) {
    unlink("test.txt");
    return 1;
  }
  die;
};
my $task_list = Rex::TaskList->create;
my $run_list  = Rex::RunList->instance;
$run_list->parse_opts(qw/test test2 test3 test5 test6/);
for my $task ( $run_list->tasks ) {
  $task_list->run($task);
  my @summary = $task_list->get_summary;
  is_deeply $summary[-1]->{exit_code}, 0, $task->name;
  $run_list->increment_current_index;
}
had_no_warnings;
done_testing;