try to robustify test for bug-309448
authorNikodemus Siivola <nikodemus@random-state.net>
Mon, 28 Nov 2011 10:41:52 +0000 (12:41 +0200)
committerNikodemus Siivola <nikodemus@random-state.net>
Tue, 29 Nov 2011 08:56:57 +0000 (10:56 +0200)
  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.

tests/compiler.pure.lisp

index 083a79e..1a81296 100644 (file)
   ;; 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))