diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-21 13:50:55 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-21 13:50:55 +0000 |
| commit | a65df5860647003c830dab381900f1166fc55579 (patch) | |
| tree | 4be2cb1973f799c0eef85e421796f4f5578a5f74 /testsuite/timeout | |
| parent | 92bc422634da983009110bcd5ee9b634d77563d1 (diff) | |
| download | haskell-a65df5860647003c830dab381900f1166fc55579.tar.gz | |
Stop the timeout calibration ever returning 0
Diffstat (limited to 'testsuite/timeout')
| -rw-r--r-- | testsuite/timeout/calibrate | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/testsuite/timeout/calibrate b/testsuite/timeout/calibrate index a18eb846c6..8379c2dd85 100644 --- a/testsuite/timeout/calibrate +++ b/testsuite/timeout/calibrate @@ -21,5 +21,8 @@ spawnl(os.P_WAIT, compiler, spawnl(os.P_WAIT, './TimeMe', 'TimeMe') xs = getrusage(RUSAGE_CHILDREN); -print (300*int(math.ceil(xs[0] + xs[1]))) +x = int(math.ceil(xs[0] + xs[1])) +if x < 1: + x = 1 +print (300*x) |