diff --git a/tests/libperl/Ham/APRS/IS.pm b/tests/libperl/Ham/APRS/IS.pm index f275ea3..7a9b0b1 100644 --- a/tests/libperl/Ham/APRS/IS.pm +++ b/tests/libperl/Ham/APRS/IS.pm @@ -129,7 +129,7 @@ sub connect($;%) return 0; } - select(undef, undef, undef, 0.5); + select(undef, undef, undef, 0.1); } } diff --git a/tests/libperl/runproduct.pm b/tests/libperl/runproduct.pm index fe82c1b..bfdc7fd 100644 --- a/tests/libperl/runproduct.pm +++ b/tests/libperl/runproduct.pm @@ -127,7 +127,7 @@ sub start($) } # let it start... - sleep(1); + sleep(0.4); my $kid = waitpid($pid, WNOHANG); diff --git a/tests/t/00startstop.t b/tests/t/00startstop.t index 18d64c8..bfd0408 100644 --- a/tests/t/00startstop.t +++ b/tests/t/00startstop.t @@ -10,5 +10,6 @@ my $p = new runproduct('basic'); ok(defined $p, 1, "Failed to initialize product runner"); ok($p->start(), 1, "Failed to start product"); +sleep(1); ok($p->stop(), 1, "Failed to stop product");