basis/ascii/ascii-tests.factor

   1 USING: ascii tools.test sequences kernel math ;
   2 IN: ascii.tests
   3
   4 [ t ] [ CHAR: a letter? ] unit-test
   5 [ f ] [ CHAR: A letter? ] unit-test
   6 [ f ] [ CHAR: a LETTER? ] unit-test
   7 [ t ] [ CHAR: A LETTER? ] unit-test
   8 [ t ] [ CHAR: 0 digit? ] unit-test
   9 [ f ] [ CHAR: x digit? ] unit-test
  10
  11 [ 4 ] [
  12     0 "There are Four Upper Case characters"
  13     [ LETTER? [ 1+ ] when ] each
  14 ] unit-test