use strict;
use warnings;

use Test::More tests => 31;

use_ok 'Rex::Task';
use_ok 'Rex::Commands';
Rex::Commands->import;

my $t1 = Rex::Task->new(name => "foo");

ok(ref($t1) eq "Rex::Task", "create teask object");

ok($t1->get_connection_type eq "Local", "get connection type for local");
ok($t1->is_local == 1, "is task local");
ok($t1->is_remote == 0, "is task not remote");

$t1->set_server("192.168.1.1");
ok($t1->server->[0] eq "192.168.1.1", "get/set server");

ok($t1->is_local == 0, "is task not local");

$t1->set_desc("Description");
ok($t1->desc eq "Description", "get/set description");

ok($t1->get_connection_type eq "SSH", "get connection type for ssh");
ok($t1->want_connect == 1, "want a connection?");
$t1->modify("no_ssh", 1);
ok($t1->want_connect == 0, "want no connection?");
ok($t1->get_connection_type eq "Fake", "get connection type for fake");
$t1->modify("no_ssh", 0);
ok($t1->want_connect == 1, "want a connection?");
ok($t1->get_connection_type eq "SSH", "get connection type for ssh");

$t1->set_user("root");
ok($t1->user eq "root", "get/set the user");
$t1->set_password("f00b4r");
ok($t1->password eq "f00b4r", "get/set the password");

ok($t1->name eq "foo", "get task name");

$t1->set_auth("user", "foo");
ok($t1->user eq "foo", "set auth user");
$t1->set_auth("password", "baz");
ok($t1->password eq "baz", "set auth password");

my $test_var = 0;
$t1->set_code(sub {
   $test_var = connection()->server;
});

ok(! $t1->connection->is_connected , "connection currently not established");
$t1->modify("no_ssh", 1);
$t1->connect("localtest");
ok($t1->connection->is_connected, "connection established");
$t1->run("localtest");
ok($test_var eq "localtest", "task run");
$t1->disconnect();

my $before_hook = 0;
$t1->delete_server;
ok($t1->is_remote == 0, "task is no more remote");
ok($t1->is_local == 1, "task is now local");

$t1->modify(before => sub {
   my $server = shift;
   my $server_ref = shift;

   $before_hook = 1;
   $$server_ref = "local02";
});

my $server = $t1->current_server;
$t1->run_hook(\$server, "before");

ok($before_hook == 1, "run before hook");
ok($t1->is_remote == 1, "task is now remote");
ok($t1->is_local == 0, "task is no more local");

$t1->modify(before => sub {
   my $server = shift;
   my $server_ref = shift;

   $before_hook = 2;
   $$server_ref = "<local>";
});

$server = $t1->current_server;
$t1->run_hook(\$server, "before");

ok($before_hook == 2, "run before hook - right direction");
ok($t1->is_remote == 0, "task is no not remote");
ok($t1->is_local == 1, "task is now local");