basis/xmode/utilities/utilities-tests.factor

   1 USING: assocs xmode.utilities tools.test ;
   2 IN: xmode.utilities.tests
   3
   4 [ "hi" 3 ] [
   5     { 1 2 3 4 5 6 7 8 } [ H{ { 3 "hi" } } at ] map-find
   6 ] unit-test
   7
   8 [ f f ] [
   9     { 1 2 3 4 5 6 7 8 } [ H{ { 11 "hi" } } at ] map-find
  10 ] unit-test