Re: test sometimes fails, maybe increase number of retries?

Hm, I never saw it failed, but the change does no harm so I'll take it.
For the record, what platform you see the test fails on?

--shiro

From: karme <at> karme.de
Subject: [Gauche-devel] test sometimes fails, maybe increase number of retries?
Date: Wed, 23 May 2012 13:07:26 +0200

> Index: gauche-0.9.3.2/test/control.scm
> ===================================================================
> --- gauche-0.9.3.2.orig/test/control.scm	2012-03-20 10:07:45.000000000 +0100
> +++ gauche-0.9.3.2/test/control.scm	2012-05-23 12:57:09.299612417 +0200
>  <at>  <at>  -160,7 +160,7  <at>  <at> 
>             (job-status (dequeue/wait! (thread-pool-results pool))))
>      (test* "shutdown check" 'finished
>             (let retry ([n 0])
> -             (cond [(= n 10) #f]
> +             (cond [(= n 1000) #f]
>                     [(symbol? gate) gate]
>                     [else (sys-nanosleep #e1e8) (retry (+ n 1))])))
>      )
> 
> ------------------------------------------------------------------------------
> Live Security Virtual Conference
> Exclusive live event will cover all the ways today's security and 
> threat landscape has changed and how IT managers can respond. Discussions 
> will include endpoint security, mobile security and the latest in malware 
> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________