basis/ascii/ascii-tests.factor

   1 USING: ascii tools.test sequences kernel math strings ;
   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
  15
  16 { t f } [ CHAR: \s ascii? 400 ascii? ] unit-test
  17
  18 { "HELLO HOW ARE YOU?" } [ "hellO hOw arE YOU?" >upper ] unit-test
  19 { "i'm good thx bai" } [ "I'm Good THX bai" >lower ] unit-test
  20
  21 { "Hello How Are You?" } [ "hEllo how ARE yOU?" >title ] unit-test
  22 { { " " "Hello" " " " " " " "World" } } [ " Hello   World" >words [ >string ] map ] unit-test