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

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