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