USING: ascii tools.test sequences kernel math strings ;
IN: ascii.tests
-{ t } [ CHAR: a letter? ] unit-test
-{ f } [ CHAR: A letter? ] unit-test
-{ f } [ CHAR: a LETTER? ] unit-test
-{ t } [ CHAR: A LETTER? ] unit-test
-{ t } [ CHAR: 0 digit? ] unit-test
-{ f } [ CHAR: x digit? ] unit-test
+[ t ] [ CHAR: a letter? ] unit-test
+[ f ] [ CHAR: A letter? ] unit-test
+[ f ] [ CHAR: a LETTER? ] unit-test
+[ t ] [ CHAR: A LETTER? ] unit-test
+[ t ] [ CHAR: 0 digit? ] unit-test
+[ f ] [ CHAR: x digit? ] unit-test
-{ 4 } [
+[ 4 ] [
0 "There are Four Upper Case characters"
[ LETTER? [ 1 + ] when ] each
] unit-test
-{ t f } [ CHAR: \s ascii? 400 ascii? ] unit-test
+[ t f ] [ CHAR: \s ascii? 400 ascii? ] unit-test
-{ "HELLO HOW ARE YOU?" } [ "hellO hOw arE YOU?" >upper ] unit-test
-{ "i'm good thx bai" } [ "I'm Good THX bai" >lower ] unit-test
+[ "HELLO HOW ARE YOU?" ] [ "hellO hOw arE YOU?" >upper ] unit-test
+[ "i'm good thx bai" ] [ "I'm Good THX bai" >lower ] unit-test
-{ "Hello How Are You?" } [ "hEllo how ARE yOU?" >title ] unit-test
-{ { " " "Hello" " " " " " " "World" } } [ " Hello World" >words [ >string ] map ] unit-test
+[ "Hello How Are You?" ] [ "hEllo how ARE yOU?" >title ] unit-test
+[ { " " "Hello" " " " " " " "World" } ] [ " Hello World" >words [ >string ] map ] unit-test