Test new timeout

test_all_timeouts();

sub run_timeout_test {
    my ($name, $test_number, $expected, $result) = @_;

    print("[Test] Running Test number ".$test_number." - Type '".$name."'\n");
    if (($expected && $result) || (!$expected && !$result)) {
        Log::message("[Test] Test ".$test_number." OK - Result: ".$result."\n");
    } else {
        Log::error("[Test] Error in test ".$test_number." - Result: ".$result." - Expected: ".$expected."\n");
    }
}

sub test_all_timeouts {
    use Time::HiRes;
    my $start_time = time;
    my %hash;
    my @time = (1,2,3);
    my $name;
    my $test_number;
    my $expected;
    my $result;
    print("[Test] Testing timeouts.\n");

    $test_number = 1;
    $expected = 1;
    $name = "Double arg - OK";
    $result = timeOut($start_time, 0);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 2;
    $expected = 0;
    $name = "Double arg - OK";
    $result = timeOut($start_time, 1);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = $start_time;
    $hash{timeout} = 1;

    $test_number = 3;
    $expected = 0;
    $name = "Single arg - OK";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = $start_time;
    $hash{timeout} = 0;

    $test_number = 4;
    $expected = 1;
    $name = "Single arg";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = $start_time;
    $hash{timeout} = 0;

    $test_number = 5;
    $expected = 0;
    $name = "double arg  - time is ref - OK";
    $result = timeOut(\@time, 0);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 6;
    $expected = 0;
    $name = "double arg  - timeout is ref";
    $result = timeOut($start_time, \@time);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 7;
    $expected = 0;
    $name = "double arg  - time is not scalar";
    $result = timeOut('ergerg', 0);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 8;
    $expected = 0;
    $name = "double arg  - timeout is not scalar";
    $result = timeOut($start_time, 'ergerg');
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 9;
    $expected = 0;
    $name = "double arg  - timeout undef";
    $result = timeOut($start_time, undef);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 10;
    $expected = 1;
    $name = "double arg  - time undef";
    $result = timeOut(undef, 0);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 11;
    $expected = 0;
    $name = "single arg  - time not ref";
    $result = timeOut(1);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 12;
    $expected = 0;
    $name = "single arg  - time not hash";
    $result = timeOut(\@time);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = $start_time;

    $test_number = 13;
    $expected = 0;
    $name = "single arg  - hash does not contain timeout";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{timeout} = 0;

    $test_number = 14;
    $expected = 1;
    $name = "single arg  - hash does not contain time";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = \@time;
    $hash{timeout} = 0;

    $test_number = 15;
    $expected = 0;
    $name = "single arg  - hash time key not scalar";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = $start_time;
    $hash{timeout} = \@time;

    $test_number = 16;
    $expected = 0;
    $name = "single arg  - hash timeout key not scalar";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = {};
    $hash{timeout} = 2;

    $test_number = 17;
    $expected = 0;
    $name = "single arg  - hash time key is hash ref";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = 0;
    $hash{timeout} = 2;

    $test_number = 18;
    $expected = 1;
    $name = "single arg  - hash time key 0";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = 0;
    $hash{timeout} = '';

    $test_number = 19;
    $expected = 0;
    $name = "single arg  - hash timeout key empty string";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = '';
    $hash{timeout} = 1;

    $test_number = 20;
    $expected = 1;
    $name = "single arg  - hash time key empty string";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = '0';
    $hash{timeout} = 1;

    $test_number = 21;
    $expected = 1;
    $name = "single arg  - hash time key number string";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = 0;
    $hash{timeout} = '1';

    $test_number = 22;
    $expected = 1;
    $name = "single arg  - hash timeout key number string";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 23;
    $name = "double arg  - time number string";
    $result = timeOut('0', 1);
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 24;
    $expected = 1;
    $name = "double arg  - timeout number string";
    $result = timeOut(0, '1');
    run_timeout_test($name, $test_number, $expected, $result);

    $test_number = 25;
    $expected = 1;
    $name = "double arg  - empty string time";
    $result = timeOut('', 0);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = 0;
    $hash{timeout} = undef;

    $test_number = 26;
    $expected = 0;
    $name = "double arg  - undef timeout key";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);

    undef %hash;
    $hash{time} = undef;
    $hash{timeout} = 1;

    $test_number = 27;
    $expected = 1;
    $name = "double arg  - undef time key";
    $result = timeOut(\%hash);
    run_timeout_test($name, $test_number, $expected, $result);
}