basis/unicode/case/case-tests.factor

   1 USING: unicode.case tools.test namespaces ;
   2
   3 \ >upper must-infer
   4 \ >lower must-infer
   5 \ >title must-infer
   6
   7 [ "Hello How Are You? I'm Good" ] [ "hEllo how ARE yOU? I'm good" >title ] unit-test
   8 [ "FUSS" ] [ "Fu\u0000DF" >upper ] unit-test
   9 [ "\u0003C3a\u0003C2 \u0003C3\u0003C2 \u0003C3a\u0003C2" ] [ "\u0003A3A\u0003A3 \u0003A3\u0003A3 \u0003A3A\u0003A3" >lower ] unit-test
  10 [ t ] [ "hello how are you?" lower? ] unit-test
  11 [
  12     "tr" locale set
  13     [ "i\u000131i \u000131jj" ] [ "i\u000131I\u000307 IJj" >lower ] unit-test
  14     [ "I\u000307\u000131i Ijj" ] [ "i\u000131I\u000307 IJj" >title ] unit-test
  15     [ "I\u000307II\u000307 IJJ" ] [ "i\u000131I\u000307 IJj" >upper ] unit-test
  16     "lt" locale set
  17     ! Lithuanian casing tests
  18 ] with-scope
  19
  20 [ t ] [ "asdf" lower? ] unit-test
  21 [ f ] [ "asdF" lower? ] unit-test
  22
  23 [ t ] [ "ASDF" upper? ] unit-test
  24 [ f ] [ "ASDf" upper? ] unit-test