forked from factor/factor
-
Notifications
You must be signed in to change notification settings - Fork 3
/
linked-assocs-tests.factor
65 lines (57 loc) · 1.58 KB
/
linked-assocs-tests.factor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences assocs tools.test linked-assocs math ;
IN: linked-assocs.test
{ { 1 2 3 } } [
<linked-hash> 1 "b" pick set-at
2 "c" pick set-at
3 "a" pick set-at
values
] unit-test
{ 2 t } [
<linked-hash> 1 "b" pick set-at
2 "c" pick set-at
3 "a" pick set-at
"c" swap at*
] unit-test
{ { 2 3 4 } { "c" "a" "d" } 3 } [
<linked-hash> 1 "a" pick set-at
2 "c" pick set-at
3 "a" pick set-at
4 "d" pick set-at
[ values ] [ keys ] [ assoc-size ] tri
] unit-test
{ f 1 } [
<linked-hash> 1 "c" pick set-at
2 "b" pick set-at
"c" over delete-at
"c" over at swap assoc-size
] unit-test
{ { } 0 } [
<linked-hash> 1 "a" pick set-at
2 "c" pick set-at
3 "a" pick set-at
4 "d" pick set-at
dup clear-assoc [ keys ] [ assoc-size ] bi
] unit-test
{ { } { 1 2 3 } } [
<linked-hash> dup clone
1 "c" pick set-at
2 "q" pick set-at
3 "a" pick set-at
[ values ] bi@
] unit-test
{ 9 } [
<linked-hash>
{ [ 3 * ] [ 1 - ] } "first" pick set-at
{ [ [ 1 - ] bi@ ] [ 2 / ] } "second" pick set-at
4 6 pick values [ first call ] each
+ swap values <reversed> [ second call ] each
] unit-test
{ V{ { "az" 1 } { "by" 2 } { "cx" 3 } } } [
<linked-hash>
1 "az" pick set-at
2 "by" pick set-at
3 "cx" pick set-at
>alist
] unit-test