use radix literals

[factor.git] / basis / unicode / case / case-tests.factor

diff --git a/basis/unicode/case/case-tests.factor b/basis/unicode/case/case-tests.factor
index 9344d1102ef20ad93793153de4bd087a4e3f45d6..a91667ede3994c82af0a8eb26d9f98e476fc104a 100644 (file)
--- a/basis/unicode/case/case-tests.factor
+++ b/basis/unicode/case/case-tests.factor
@@ -10,18 +10,18 @@ IN: unicode.case.tests
 [ t ] [ "hello how are you?" lower? ] unit-test
 [
     [ f ] [ i-dot? ] unit-test
-    [ f ] [ lt? ] unit-test
+    [ f ] [ lithuanian? ] unit-test
     "tr" locale set
     [ t ] [ i-dot? ] unit-test
-    [ f ] [ lt? ] unit-test
+    [ f ] [ lithuanian? ] unit-test
     [ "i\u000131i \u000131jj" ] [ "i\u000131I\u000307 IJj" >lower ] unit-test
     [ "I\u000307\u000131i Ijj" ] [ "i\u000131I\u000307 IJj" >title ] unit-test
     [ "I\u000307II\u000307 IJJ" ] [ "i\u000131I\u000307 IJj" >upper ] unit-test
     "lt" locale set
     [ f ] [ i-dot? ] unit-test
-    [ t ] [ lt? ] unit-test
-    [ "i\u000307\u000300" ] [ HEX: CC 1string nfd >lower ] unit-test
-    [ "\u00012f\u000307" ] [ HEX: 12E 1string nfd >lower nfc ] unit-test
+    [ t ] [ lithuanian? ] 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