steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hashtables: Don't test word's hashcode as a bignum after all. It's not allowed.

db4
Doug Coleman 2015-07-18 09:17:34 -07:00
parent 6415684f8d
commit a66cf55e8e
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/hashtables/hashtables-tests.factor
View File

@ -185,16 +185,3 @@ H{ } "x" set
! Random test case ! Random test case
{ "A" } [ 100 iota [ dup ] H{ } map>assoc 32 over delete-at "A" 32 pick set-at 32 of ] unit-test { "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