1 USING: deques dlists kernel namespaces sequences tools.test
6 { t } [ "h" get deque-empty? ] unit-test
8 { } [ 3 "h" get push-front* "1" set ] unit-test
9 { } [ 1 "h" get push-front ] unit-test
10 { } [ 3 "h" get push-front* "2" set ] unit-test
11 { } [ 3 "h" get push-front* "3" set ] unit-test
12 { } [ 7 "h" get push-front ] unit-test
14 { t } [ "1" get "2" get eq? ] unit-test
15 { t } [ "2" get "3" get eq? ] unit-test
17 { t } [ 7 "h" get deque-member? ] unit-test
19 { 3 } [ "1" get node-value ] unit-test
20 { } [ "1" get "h" get delete-node ] unit-test
22 { 1 } [ "h" get pop-back ] unit-test
23 { 7 } [ "h" get pop-back ] unit-test
25 { f } [ 7 "h" get deque-member? ] unit-test
29 [ all-words swap [ push-front ] curry each ]
30 [ [ drop ] slurp-deque ]