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