]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/unicode/case/case-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / basis / unicode / case / case-tests.factor
index 3f29bfde714c91bed220d00eeababc0db30544c2..60cf5558c000d2170d66d0a791d872e94b70232e 100644 (file)
@@ -4,10 +4,10 @@ USING: unicode.case tools.test namespaces strings unicode.normalize
 unicode.case.private ;
 IN: unicode.case.tests
 
-[ "Hello How Are You? I'm Good" ] [ "hEllo how ARE yOU? I'm good" >title ] unit-test
-[ "FUSS" ] [ "Fu\u0000DF" >upper ] unit-test
-[ "\u0003C3a\u0003C2 \u0003C3\u0003C2 \u0003C3a\u0003C2" ] [ "\u0003A3A\u0003A3 \u0003A3\u0003A3 \u0003A3A\u0003A3" >lower ] unit-test
-[ t ] [ "hello how are you?" lower? ] unit-test
+{ "Hello How Are You? I'm Good" } [ "hEllo how ARE yOU? I'm good" >title ] unit-test
+{ "FUSS" } [ "Fu\u0000DF" >upper ] unit-test
+{ "\u0003C3a\u0003C2 \u0003C3\u0003C2 \u0003C3a\u0003C2" } [ "\u0003A3A\u0003A3 \u0003A3\u0003A3 \u0003A3A\u0003A3" >lower ] unit-test
+{ t } [ "hello how are you?" lower? ] unit-test
 [
     [ f ] [ locale get i-dot? ] unit-test
     [ f ] [ locale get lithuanian? ] unit-test
@@ -26,8 +26,8 @@ IN: unicode.case.tests
 !    [ "I\u000300" ] [ "i\u000307\u000300" >title ] unit-test
 ] with-scope
 
-[ t ] [ "asdf" lower? ] unit-test
-[ f ] [ "asdF" lower? ] unit-test
+{ t } [ "asdf" lower? ] unit-test
+{ f } [ "asdF" lower? ] unit-test
 
-[ t ] [ "ASDF" upper? ] unit-test
-[ f ] [ "ASDf" upper? ] unit-test
+{ t } [ "ASDF" upper? ] unit-test
+{ f } [ "ASDf" upper? ] unit-test