2 USING: kernel math namespaces tools.test vectors sequences
3 sequences.private hashtables io prettyprint assocs
6 [ f ] [ "hi" V{ 1 2 3 } at ] unit-test
8 [ H{ } ] [ { } [ dup ] H{ } map>assoc ] unit-test
10 [ ] [ 1000 [ dup sq ] H{ } map>assoc "testhash" set ] unit-test
13 [ 1000 [ dup sq swap "testhash" get at = not ] filter ]
17 [ "testhash" get hashtable? ]
21 [ { 1 { 2 3 } } hashtable? ]
24 ! Test some hashcodes.
26 [ t ] [ [ 1 2 3 ] hashcode [ 1 2 3 ] hashcode = ] unit-test
27 [ t ] [ [ 1 [ 2 3 ] 4 ] hashcode [ 1 [ 2 3 ] 4 ] hashcode = ] unit-test
29 [ t ] [ 12 hashcode 12 hashcode = ] unit-test
30 [ t ] [ 12 >bignum hashcode 12 hashcode = ] unit-test
31 [ t ] [ 12.0 hashcode 12 >bignum hashcode = ] unit-test
33 ! Test various odd keys to see if they work.
35 16 <hashtable> "testhash" set
37 t { 2 3 } "testhash" get set-at
38 f 100000000000000000000000000 "testhash" get set-at
39 { } { [ { } ] } "testhash" get set-at
41 [ t ] [ { 2 3 } "testhash" get at ] unit-test
42 [ f ] [ 100000000000000000000000000 "testhash" get at* drop ] unit-test
43 [ { } ] [ { [ { } ] } clone "testhash" get at* drop ] unit-test
46 3 <hashtable> "broken-remove" set
47 1 W{ \ + } dup "x" set "broken-remove" get set-at
48 2 W{ \ = } dup "y" set "broken-remove" get set-at
49 "x" get "broken-remove" get delete-at
50 2 "y" get "broken-remove" get set-at
51 [ 1 ] [ "broken-remove" get keys length ] unit-test
55 { "crocodile" "reptile" }
57 { "visual basic" "language" }
58 } >hashtable "testhash" set
61 "visual basic" "testhash" get delete-at
62 "visual basic" "testhash" get at*
65 [ t ] [ H{ } dup = ] unit-test
66 [ f ] [ "xyz" H{ } = ] unit-test
67 [ t ] [ H{ } H{ } = ] unit-test
68 [ f ] [ H{ { 1 3 } } H{ } = ] unit-test
69 [ f ] [ H{ } H{ { 1 3 } } = ] unit-test
70 [ t ] [ H{ { 1 3 } } H{ { 1 3 } } = ] unit-test
71 [ f ] [ H{ { 1 3 } } H{ { 1 "hey" } } = ] unit-test
73 ! Testing the hash element counting
75 H{ } clone "counting" set
76 "value" "key" "counting" get set-at
77 [ 1 ] [ "counting" get assoc-size ] unit-test
78 "value" "key" "counting" get set-at
79 [ 1 ] [ "counting" get assoc-size ] unit-test
80 "key" "counting" get delete-at
81 [ 0 ] [ "counting" get assoc-size ] unit-test
82 "key" "counting" get delete-at
83 [ 0 ] [ "counting" get assoc-size ] unit-test
87 2 <hashtable> "rehash" set
89 1 1 "rehash" get set-at
90 2 2 "rehash" get set-at
91 3 3 "rehash" get set-at
92 4 4 "rehash" get set-at
93 5 5 "rehash" get set-at
94 6 6 "rehash" get set-at
96 [ 6 ] [ "rehash" get assoc-size ] unit-test
98 [ 6 ] [ "rehash" get clone assoc-size ] unit-test
100 "rehash" get clear-assoc
102 [ 0 ] [ "rehash" get assoc-size ] unit-test
113 ! There was an assoc in place of assoc* somewhere
114 3 <hashtable> "f-hash-test" set
116 10 [ f f "f-hash-test" get set-at ] times
118 [ 1 ] [ "f-hash-test" get assoc-size ] unit-test
122 100 [ drop "x" get clear-assoc ] each
124 ! Crash discovered by erg
125 [ t ] [ 0.75 <hashtable> dup clone = ] unit-test
127 ! Another crash discovered by erg
130 [ 1 swap set-at ] ignore-errors
131 [ 2 swap set-at ] ignore-errors
132 [ 3 swap set-at ] ignore-errors
136 [ H{ { -1 4 } { -3 16 } { -5 36 } } ] [
137 H{ { 1 2 } { 3 4 } { 5 6 } }
138 [ >r neg r> sq ] assoc-map
141 ! Bug discovered by littledan
159 [ { "one" "two" 3 } ] [
161 H{ { 1 "one" } { 2 "two" } } substitute-here
164 [ { "one" "two" 3 } ] [
165 { 1 2 3 } H{ { 1 "one" } { 2 "two" } } substitute
168 ! We want this to work
169 [ ] [ hashtable new "h" set ] unit-test
171 [ 0 ] [ "h" get assoc-size ] unit-test
173 [ f f ] [ "goo" "h" get at* ] unit-test
175 [ ] [ 1 2 "h" get set-at ] unit-test
177 [ 1 ] [ "h" get assoc-size ] unit-test
179 [ 1 ] [ 2 "h" get at ] unit-test