#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 4;

my $timeout = (shift or 5);

push @INC, '.';

BEGIN {use_ok('run_limited')}

my $runner = Runner->new;
isa_ok($runner, 'Runner');
can_ok($runner, qw(load run));

$runner->load('true');
$runner->load('sleep 2');
$runner->load('sleep 999');
$runner->load('echo STDOUT');
$runner->load('echo STDERR 1>&2');
$runner->load('no_such_command');


is ($runner->run("$timeout"), 1, "Check correct number had to be killed");

print Dumper(\$runner);