X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Funicode%2Fcase%2Fcase-tests.factor;h=a91667ede3994c82af0a8eb26d9f98e476fc104a;hp=76fe0088e8743e1273ee5cd89ffa6a7dc320bff1;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/basis/unicode/case/case-tests.factor b/basis/unicode/case/case-tests.factor index 76fe0088e8..a91667ede3 100644 --- a/basis/unicode/case/case-tests.factor +++ b/basis/unicode/case/case-tests.factor @@ -20,8 +20,8 @@ IN: unicode.case.tests "lt" locale set [ f ] [ i-dot? ] unit-test [ t ] [ lithuanian? ] unit-test - [ "i\u000307\u000300" ] [ HEX: CC 1string nfd >lower ] unit-test - [ "\u00012f\u000307" ] [ HEX: 12E 1string nfd >lower nfc ] unit-test + [ "i\u000307\u000300" ] [ 0xCC 1string nfd >lower ] unit-test + [ "\u00012f\u000307" ] [ 0x12E 1string nfd >lower nfc ] unit-test [ "I\u000300" ] [ "i\u000307\u000300" >upper ] unit-test ! [ "I\u000300" ] [ "i\u000307\u000300" >title ] unit-test ] with-scope