basis/search-dequeues/search-dequeues-tests.factor

   1 IN: search-dequeues.tests
   2 USING: search-dequeues tools.test namespaces
   3 kernel sequences words dequeues vocabs ;
   4
   5 <hashed-dlist> "h" set
   6
   7 [ t ] [ "h" get dequeue-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 [ 3 ] [ "h" get dequeue-length ] unit-test
  19 [ t ] [ 7 "h" get dequeue-member? ] unit-test
  20
  21 [ 3 ] [ "1" get node-value ] unit-test
  22 [ ] [ "1" get "h" get delete-node ] unit-test
  23
  24 [ 2 ] [ "h" get dequeue-length ] unit-test
  25 [ 1 ] [ "h" get pop-back ] unit-test
  26 [ 7 ] [ "h" get pop-back ] unit-test
  27
  28 [ f ] [ 7 "h" get dequeue-member? ] unit-test
  29
  30 [ ] [
  31     <hashed-dlist>
  32     [ all-words swap [ push-front ] curry each ]
  33     [ [ drop ] slurp-dequeue ]
  34     bi
  35 ] unit-test