basis/search-deques/search-deques-tests.factor

   1 IN: search-deques.tests
   2 USING: search-deques tools.test namespaces
   3 kernel sequences words deques vocabs dlists ;
   4
   5 <hashed-dlist> "h" set
   6
   7 [ t ] [ "h" get deque-empty? ] unit-test
   8
   9 [ ] [ 3 "h" get push-front* "1" set ] unit-test
  10 [ ] [ 1 "h" get push-front ] unit-test
  11 [ ] [ 3 "h" get push-front* "2" set ] unit-test
  12 [ ] [ 3 "h" get push-front* "3" set ] unit-test
  13 [ ] [ 7 "h" get push-front ] unit-test
  14
  15 [ t ] [ "1" get "2" get eq? ] unit-test
  16 [ t ] [ "2" get "3" get eq? ] unit-test
  17
  18 [ t ] [ 7 "h" get deque-member? ] unit-test
  19
  20 [ 3 ] [ "1" get node-value ] unit-test
  21 [ ] [ "1" get "h" get delete-node ] unit-test
  22
  23 [ 1 ] [ "h" get pop-back ] unit-test
  24 [ 7 ] [ "h" get pop-back ] unit-test
  25
  26 [ f ] [ 7 "h" get deque-member? ] unit-test
  27
  28 [ ] [
  29     <hashed-dlist>
  30     [ all-words swap [ push-front ] curry each ]
  31     [ [ drop ] slurp-deque ]
  32     bi
  33 ] unit-test