hashtables: Don't test word's hashcode as a bignum after all. It's not allowed.
parent
6415684f8d
commit
a66cf55e8e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue