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