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/
> _______________________________________________
> Gauche-devel mailing list
> Gauche-devel <at> lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gauche-devel

------------------------------------------------------------------------------
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/