basis/unicode/categories/categories-tests.factor

   1 USING: tools.test kernel unicode.categories words sequences unicode.syntax ;
   2
   3 [ { f f t t f t t f f t } ] [ CHAR: A {
   4     blank? letter? LETTER? Letter? digit?
   5     printable? alpha? control? uncased? character?
   6 } [ execute ] with map ] unit-test
   7 [ "Nd" ] [ CHAR: 3 category ] unit-test
   8 [ "Lo" ] [ HEX: 3400 category ] unit-test
   9 [ "Lo" ] [ HEX: 3450 category ] unit-test
  10 [ "Lo" ] [ HEX: 4DB5 category ] unit-test
  11 [ "Cs" ] [ HEX: DD00 category ] unit-test