basis/unicode/categories/categories-tests.factor

   1 ! Copyright (C) 2008 Daniel Ehrenberg.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test kernel unicode.categories words sequences unicode.data ;
   4 IN: unicode.categories.tests
   5
   6 { { f f t t f t t f f t } } [ CHAR: A {
   7     blank? letter? LETTER? Letter? digit?
   8     printable? alpha? control? uncased? character?
   9 } [ execute ] with map ] unit-test
  10 { "Nd" } [ CHAR: 3 category ] unit-test
  11 { "Lo" } [ 0x3400 category ] unit-test
  12 { "Lo" } [ 0x3450 category ] unit-test
  13 { "Lo" } [ 0x4DB5 category ] unit-test
  14 { "Cs" } [ 0xDD00 category ] unit-test
  15 { t } [ CHAR: \t blank? ] unit-test
  16 { t } [ CHAR: \s blank? ] unit-test
  17 { t } [ CHAR: \r blank? ] unit-test
  18 { t } [ CHAR: \n blank? ] unit-test
  19 { f } [ CHAR: a blank? ] unit-test