develooper Front page | perl.perl5.porters | Postings from February 2004

Re: [perl #25278] perl-5.8.3 test fails on slow low memory system

Thread Previous | Thread Next
From:
Dave Mitchell
Date:
February 2, 2004 04:23
Subject:
Re: [perl #25278] perl-5.8.3 test fails on slow low memory system
Message ID:
20040201115023.GB23511@fdisolutions.com
On Tue, Jan 27, 2004 at 10:05:05AM +0100, Elizabeth Mattijsen wrote:
> At 20:06 +0000 1/26/04, Kurt Jaeger (via RT) wrote:
> >make test failes at one test, if this test runs on a very slow
> >system with a small memory size (32 MB).
> >
> >  ext/Time/HiRes/t/HiRes................./ext/Time/HiRes/t/HiRes.t: Time's 
> >  up!
> >FAILED at test 12
> 
> FWIW, this same test has failed for me in the past with very fast 
> machines as well.
> 
> It's just one of those things.

In this case it's not test 12 in particular that's failing, but an overall
watchdog timer for the test script giving up after 60 seconds.

> Maybe a more descriptive warning could be added if this test fails?

Change below gives:

[davem@percy t] P4$ ./perl TEST ../ext/Time/HiRes/t/HiRes.t
t/../ext/Time/HiRes/t/HiRes....
../ext/Time/HiRes/t/HiRes.t: overall time allowed for tests (60s) exceeded
FAILED at test 7

-- 
"Do not dabble in paradox, Edward, it puts you in danger of fortuitous
wit." -- Lady Croom - Arcadia

Change 22253 by davem@davem-percy on 2004/02/01 11:26:47

	Make Time/HiRes/t/HiRes.t die more gracefully if its watchdog
	timeout triggers

Affected files ...

... //depot/perl/ext/Time/HiRes/t/HiRes.t#4 edit

Differences ...

==== //depot/perl/ext/Time/HiRes/t/HiRes.t#4 (text) ====

@@ -42,7 +42,7 @@
 	if ($pid == 0) { # We are the kid, set up the timer.
 	    print "# Timer process $$\n";
 	    sleep($waitfor);
-	    warn "$0: Time's up!\n";
+	    warn "\n$0: overall time allowed for tests (${waitfor}s) exceeded\n";
 	    print "# Terminating the testing process\n";
 	    kill('TERM', getppid());
 	    print "# Timer process exiting\n";

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About