X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fgc.impure.lisp;h=fbe284b9950ab3b6dfa168d7f3b57d9aa9a5dd95;hb=ad3d30425ad832026129613aa835fb4e37c116c9;hp=c00438b57867331ba6be337e85976282f43a717a;hpb=75de197e44a87ba221e7da2480429759a2134d9e;p=sbcl.git

diff --git a/tests/gc.impure.lisp b/tests/gc.impure.lisp
index c00438b..fbe284b 100644
--- a/tests/gc.impure.lisp
+++ b/tests/gc.impure.lisp
@@ -52,3 +52,13 @@
     (sleep 1)
     (assert gc-happend)))
 
+;;; SB-EXT:GENERATION-* accessors returned bogus values for generation > 0
+#+gencgc
+(with-test (:name :bug-529014)
+  ;; FIXME: These parameters are a) tunable in the source and b)
+  ;; duplicated multiple times there and now here.  It would be good to
+  ;; OAOO-ify them (probably to src/compiler/generic/params.lisp).
+  (loop for i from 0 to sb-vm:+pseudo-static-generation+
+     do (assert (= (sb-ext:generation-bytes-consed-between-gcs i) 2000000))
+       (assert (= (sb-ext:generation-minimum-age-before-gc i) 0.75))
+       (assert (= (sb-ext:generation-number-of-gcs-before-promotion i) 1))))