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

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