From: Nikodemus Siivola Date: Mon, 28 Nov 2011 10:41:52 +0000 (+0200) Subject: try to robustify test for bug-309448 X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8c4183ca0134aefafe8c6352e1ea5402138276c4;p=sbcl.git try to robustify test for bug-309448 We've been getting intermittent reports of it failing, but I've been unable to reproduce so far. The test in question is a compiler scaling test, which compares times it takes to compile different things. Brittle, indeed. Other than non-SBCL causes the only thing I can think of right now is GCs from other tests getting accounted against one of the supposed-to-be-fast runs. So, run GC :FULL T before getting the timings to make things more consistent. --- diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index 083a79e..1a81296 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -3715,6 +3715,7 @@ ;; compile-times this is bound to be a bit brittle, but at least ;; here we try to establish a decent baseline. (flet ((time-it (lambda want) + (gc :full t) ; let's keep GCs coming from other code out... (let* ((start (get-internal-run-time)) (fun (compile nil lambda)) (end (get-internal-run-time))