1 USING: kernel math namespaces make tools.test vectors sequences
2 sequences.private hashtables io prettyprint assocs
3 continuations specialized-arrays ;
4 SPECIALIZED-ARRAY: double
7 [ t ] [ H{ } dup assoc-subset? ] unit-test
8 [ f ] [ H{ { 1 3 } } H{ } assoc-subset? ] unit-test
9 [ t ] [ H{ } H{ { 1 3 } } assoc-subset? ] unit-test
10 [ t ] [ H{ { 1 3 } } H{ { 1 3 } } assoc-subset? ] unit-test
11 [ f ] [ H{ { 1 3 } } H{ { 1 "hey" } } assoc-subset? ] unit-test
12 [ f ] [ H{ { 1 f } } H{ } assoc-subset? ] unit-test
13 [ t ] [ H{ { 1 f } } H{ { 1 f } } assoc-subset? ] unit-test
15 ! Test some combinators
24 } [ * 2 + , ] assoc-each
28 [ t ] [ H{ } [ 2drop f ] assoc-all? ] unit-test
29 [ t ] [ H{ { 1 1 } } [ = ] assoc-all? ] unit-test
30 [ f ] [ H{ { 1 2 } } [ = ] assoc-all? ] unit-test
31 [ t ] [ H{ { 1 1 } { 2 2 } } [ = ] assoc-all? ] unit-test
32 [ f ] [ H{ { 1 2 } { 2 2 } } [ = ] assoc-all? ] unit-test
34 [ H{ } ] [ H{ { t f } { f t } } [ 2drop f ] assoc-filter ] unit-test
35 [ H{ { 3 4 } { 4 5 } { 6 7 } } ] [
36 H{ { 1 2 } { 2 3 } { 3 4 } { 4 5 } { 6 7 } }
37 [ drop 3 >= ] assoc-filter
50 H{ } clone "cache-test" set
52 [ 4 ] [ 1 "cache-test" get [ 3 + ] cache ] unit-test
53 [ 5 ] [ 2 "cache-test" get [ 3 + ] cache ] unit-test
54 [ 4 ] [ 1 "cache-test" get [ 3 + ] cache ] unit-test
55 [ 5 ] [ 2 "cache-test" get [ 3 + ] cache ] unit-test
58 H{ { "factor" "rocks" } { 3 4 } }
60 H{ { "factor" "rocks" } { "dup" "sq" } { 3 4 } }
61 H{ { "factor" "rocks" } { 1 2 } { 2 3 } { 3 4 } }
66 H{ { 1 2 } { 2 3 } { 6 5 } }
68 H{ { 2 4 } { 6 5 } } H{ { 1 2 } { 2 3 } }
72 [ H{ { 1 2 } { 2 3 } } t ] [
73 f H{ { 1 2 } { 2 3 } } [ assoc-union ] 2keep swap assoc-union dupd =
79 H{ { 1 f } } H{ { 1 f } } assoc-intersect
82 [ { 1 3 } ] [ H{ { 2 2 } } { 1 2 3 } remove-all ] unit-test
84 [ H{ { "hi" 2 } { 3 4 } } ]
85 [ "hi" 1 H{ { 1 2 } { 3 4 } } clone [ rename-at ] keep ]
88 [ H{ { 1 2 } { 3 4 } } ]
89 [ "hi" 5 H{ { 1 2 } { 3 4 } } clone [ rename-at ] keep ]
93 H{ { 1.0 1.0 } { 2.0 2.0 } }
95 double-array{ 1.0 2.0 } [ dup ] H{ } map>assoc
103 2dup [ , f ] cache drop
112 { "fries" "onion rings" }
115 { "bangers" "fries" } H{
118 { "fries" "onion rings" }
119 { "nachos" "cheese" }
123 [ H{ { "b" [ 2 ] } { "d" [ 4 ] } } H{ { "a" [ 1 ] } { "c" [ 3 ] } } ] [
129 } [ nip first even? ] assoc-partition
132 [ 1 f ] [ 1 H{ } ?at ] unit-test
133 [ 2 t ] [ 1 H{ { 1 2 } } ?at ] unit-test
135 [ f ] [ 1 2 H{ { 2 1 } } maybe-set-at ] unit-test
136 [ t ] [ 1 3 H{ { 2 1 } } clone maybe-set-at ] unit-test
137 [ t ] [ 3 2 H{ { 2 1 } } clone maybe-set-at ] unit-test
139 [ H{ { 1 2 } { 2 3 } } ] [
149 H{ { 1 2 } { 2 4 } { 5 6 } }