From a66cf55e8eeb1f886996b82cd9eb07fcf544e477 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 18 Jul 2015 09:17:34 -0700 Subject: [PATCH] hashtables: Don't test word's hashcode as a bignum after all. It's not allowed. --- core/hashtables/hashtables-tests.factor | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/core/hashtables/hashtables-tests.factor b/core/hashtables/hashtables-tests.factor index 63c7c506ac..a3700dbd6e 100644 --- a/core/hashtables/hashtables-tests.factor +++ b/core/hashtables/hashtables-tests.factor @@ -185,16 +185,3 @@ H{ } "x" set ! Random test case { "A" } [ 100 iota [ dup ] H{ } map>assoc 32 over delete-at "A" 32 pick set-at 32 of ] unit-test - -! Bug 1392, word's hashcode was declared a fixnum -! It fails depending on hash growth, so test in a loop -SYMBOL: +bignum-hashcode+ --405534154 +bignum-hashcode+ 1 set-slot -{ t } [ - 100 iota [ - drop - H{ } clone - f +bignum-hashcode+ pick set-at - +bignum-hashcode+ +bignum-hashcode+ pick set-at assoc-size 1 = - ] all? -] unit-test