basis/xmode/keyword-map/keyword-map-tests.factor

   1 IN: xmode.keyword-map.tests
   2 USING: xmode.keyword-map xmode.tokens
   3 tools.test namespaces assocs kernel strings ;
   4
   5 f <keyword-map> dup "k" set
   6
   7 {
   8     { "int" KEYWORD1 }
   9     { "void" KEYWORD2 }
  10     { "size_t" KEYWORD3 }
  11 } assoc-union! drop
  12
  13 [ 3 ] [ "k" get assoc-size ] unit-test
  14 [ KEYWORD1 ] [ "int" "k" get at ] unit-test
  15 [ "_" ] [ "k" get keyword-map-no-word-sep* >string ] unit-test
  16 [ ] [ LITERAL1 "x-y" "k" get set-at ] unit-test
  17 [ "-_" ] [ "k" get keyword-map-no-word-sep* >string ] unit-test
  18
  19 t <keyword-map> dup "k" set
  20 {
  21     { "Foo" KEYWORD1 }
  22     { "bbar" KEYWORD2 }
  23     { "BAZ" KEYWORD3 }
  24 } assoc-union! drop
  25
  26 [ KEYWORD1 ] [ "fOo" "k" get at ] unit-test
  27
  28 [ KEYWORD2 ] [ "BBAR" "k" get at ] unit-test
  29
  30 [ KEYWORD3 ] [ "baz" "k" get at ] unit-test