2008-01-09 18:13:26 -05:00
|
|
|
USING: unicode.case tools.test namespaces ;
|
|
|
|
|
|
2008-08-23 23:35:29 -04:00
|
|
|
\ >upper must-infer
|
|
|
|
|
\ >lower must-infer
|
|
|
|
|
\ >title must-infer
|
|
|
|
|
|
2008-01-09 18:13:26 -05:00
|
|
|
[ "Hello How Are You? I'M Good" ] [ "hEllo how ARE yOU? I'm good" >title ] unit-test
|
2008-02-01 16:00:02 -05:00
|
|
|
[ "FUSS" ] [ "Fu\u0000DF" >upper ] unit-test
|
|
|
|
|
[ "\u0003C3\u0003C2" ] [ "\u0003A3\u0003A3" >lower ] unit-test
|
2008-01-09 18:13:26 -05:00
|
|
|
[ t ] [ "hello how are you?" lower? ] unit-test
|
|
|
|
|
[
|
|
|
|
|
"tr" locale set
|
2008-02-01 16:00:02 -05:00
|
|
|
[ "i\u000131i \u000131jj" ] [ "i\u000131I\u000307 IJj" >lower ] unit-test
|
|
|
|
|
! [ "I\u00307\u000131i Ijj" ] [ "i\u000131I\u000307 IJj" >title ] unit-test
|
|
|
|
|
[ "I\u000307II\u000307 IJJ" ] [ "i\u000131I\u000307 IJj" >upper ] unit-test
|
2008-01-09 18:13:26 -05:00
|
|
|
"lt" locale set
|
|
|
|
|
! Lithuanian casing tests
|
|
|
|
|
] with-scope
|
2008-12-07 02:36:10 -05:00
|
|
|
|
|
|
|
|
[ t ] [ "asdf" lower? ] unit-test
|
|
|
|
|
[ f ] [ "asdF" lower? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ "ASDF" upper? ] unit-test
|
|
|
|
|
[ f ] [ "ASDf" upper? ] unit-test
|
