Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

[factor.git] / core / strings / strings-tests.factor

diff --git a/core/strings/strings-tests.factor b/core/strings/strings-tests.factor
index 7429a8367600334b2c2fefd7bf91fadcc1296809..80fc085bb29c8b9d0e2858b3b0ba44430ffef2d5 100644 (file)
--- a/core/strings/strings-tests.factor
+++ b/core/strings/strings-tests.factor
@@ -3,59 +3,59 @@ strings strings.private sbufs tools.test sequences vectors
 arrays memory prettyprint io.streams.null kernel.private ;
 IN: strings.tests
 
-{ CHAR: b } [ 1 >bignum "abc" nth ] unit-test
+[ CHAR: b ] [ 1 >bignum "abc" nth ] unit-test
 
-{ } [ 10 [ [ -1000000 <sbuf> ] ignore-errors ] times ] unit-test
+[ ] [ 10 [ [ -1000000 <sbuf> ] ignore-errors ] times ] unit-test
 
-{ "abc" } [ [ "a" "b" "c" ] [ [ % ] each ] "" make ] unit-test
+[ "abc" ] [ [ "a" "b" "c" ] [ [ % ] each ] "" make ] unit-test
 
-{ "abc" } [ "ab" "c" append ] unit-test
-{ "abc" } [ "a" "b" "c" 3append ] unit-test
+[ "abc" ] [ "ab" "c" append ] unit-test
+[ "abc" ] [ "a" "b" "c" 3append ] unit-test
 
-{ 3 } [ "a" "hola" start ] unit-test
-{ f } [ "x" "hola" start ] unit-test
-{ 0 } [ "" "a" start ] unit-test
-{ 0 } [ "" "" start ] unit-test
-{ 0 } [ "hola" "hola" start ] unit-test
-{ 1 } [ "ol" "hola" start ] unit-test
-{ f } [ "amigo" "hola" start ] unit-test
-{ f } [ "holaa" "hola" start ] unit-test
+[ 3 ] [ "a" "hola" start ] unit-test
+[ f ] [ "x" "hola" start ] unit-test
+[ 0 ] [ "" "a" start ] unit-test
+[ 0 ] [ "" "" start ] unit-test
+[ 0 ] [ "hola" "hola" start ] unit-test
+[ 1 ] [ "ol" "hola" start ] unit-test
+[ f ] [ "amigo" "hola" start ] unit-test
+[ f ] [ "holaa" "hola" start ] unit-test
 
-{ "Beginning" } [ "Beginning and end" 9 head ] unit-test
+[ "Beginning" ] [ "Beginning and end" 9 head ] unit-test
 
-{ f } [ CHAR: I "team" member? ] unit-test
-{ t } [ "ea" "team" subseq? ] unit-test
-{ f } [ "actore" "Factor" subseq? ] unit-test
+[ f ] [ CHAR: I "team" member? ] unit-test
+[ t ] [ "ea" "team" subseq? ] unit-test
+[ f ] [ "actore" "Factor" subseq? ] unit-test
 
-{ "end" } [ "Beginning and end" 14 tail ] unit-test
+[ "end" ] [ "Beginning and end" 14 tail ] unit-test
 
-{ t } [ "abc" "abd" before? ] unit-test
-{ t } [ "z" "abd" after? ] unit-test
-{ "abc" } [ "abc" "abd" min ] unit-test
-{ "z" } [ "z" "abd" max ] unit-test
+[ t ] [ "abc" "abd" before? ] unit-test
+[ t ] [ "z" "abd" after? ] unit-test
+[ "abc" ] [ "abc" "abd" min ] unit-test
+[ "z" ] [ "z" "abd" max ] unit-test
 
 [ 0 10 "hello" subseq ] must-fail
 
-{ "Replacing+spaces+with+plus" }
+[ "Replacing+spaces+with+plus" ]
 [
     "Replacing spaces with plus"
     [ dup CHAR: \s = [ drop CHAR: + ] when ] map
 ]
 unit-test
 
-{ "05" } [ "5" 2 CHAR: 0 pad-head ] unit-test
-{ "666" } [ "666" 2 CHAR: 0 pad-head ] unit-test
+[ "05" ] [ "5" 2 CHAR: 0 pad-head ] unit-test
+[ "666" ] [ "666" 2 CHAR: 0 pad-head ] unit-test
 
 [ 1 "" nth ] must-fail
 [ -6 "hello" nth ] must-fail
 
-{ t } [ "hello world" dup >vector >string = ] unit-test
+[ t ] [ "hello world" dup >vector >string = ] unit-test
 
-{ "ab" } [ 2 "abc" resize-string ] unit-test
-{ "abc\0\0\0" } [ 6 "abc" resize-string ] unit-test
+[ "ab" ] [ 2 "abc" resize-string ] unit-test
+[ "abc\0\0\0" ] [ 6 "abc" resize-string ] unit-test
 
-{ "\u001234b" } [ 2 "\u001234bc" resize-string ] unit-test
-{ "\u001234bc\0\0\0" } [ 6 "\u001234bc" resize-string ] unit-test
+[ "\u001234b" ] [ 2 "\u001234bc" resize-string ] unit-test
+[ "\u001234bc\0\0\0" ] [ 6 "\u001234bc" resize-string ] unit-test
 
 ! Random tester found this
 [ 2 -7 resize-string ]
@@ -64,16 +64,16 @@ unit-test
 ! Make sure 24-bit strings work
 "hello world" "s" set
 
-{ } [ 0x1234 1 "s" get set-nth ] unit-test
-{ 0x1234 } [ 1 "s" get nth ] unit-test
+[ ] [ 0x1234 1 "s" get set-nth ] unit-test
+[ 0x1234 ] [ 1 "s" get nth ] unit-test
 
-{ } [ 0x4321 3 "s" get set-nth ] unit-test
-{ 0x4321 } [ 3 "s" get nth ] unit-test
+[ ] [ 0x4321 3 "s" get set-nth ] unit-test
+[ 0x4321 ] [ 3 "s" get nth ] unit-test
 
-{ } [ 0x654321 5 "s" get set-nth ] unit-test
-{ 0x654321 } [ 5 "s" get nth ] unit-test
+[ ] [ 0x654321 5 "s" get set-nth ] unit-test
+[ 0x654321 ] [ 5 "s" get nth ] unit-test
 
-{
+[
     {
         CHAR: h
         0x1234
@@ -87,24 +87,24 @@ unit-test
         CHAR: l
         CHAR: d
     }
-} [
+] [
     "s" get >array
 ] unit-test
 
 ! Make sure string initialization works
-{ 0x123456 } [ 100 0x123456 <string> first ] unit-test
+[ 0x123456 ] [ 100 0x123456 <string> first ] unit-test
 
 ! Make sure we clear aux vector when storing octets
-{ "\u123456hi" } [ "ih\u123456" clone reverse! ] unit-test
+[ "\u123456hi" ] [ "ih\u123456" clone reverse! ] unit-test
 
 ! Make sure aux vector is not shared
-{ "\udeadbe" } [
+[ "\udeadbe" ] [
     "\udeadbe" clone
     CHAR: \u123456 over clone set-first
 ] unit-test
 
 ! Regressions
-{ } [
+[ ] [
     [
         4 [
             100 [ "obdurak" clone ] replicate
@@ -120,7 +120,7 @@ unit-test
     ] with-null-writer
 ] unit-test
 
-{ t } [
+[ t ] [
     10000 [
         drop
         300 100 CHAR: \u123456
@@ -129,8 +129,8 @@ unit-test
 ] unit-test
 
 "X" "s" set
-{ } [ 0x100,0000 0 "s" get set-nth ] unit-test
-{ 0 } [ 0 "s" get nth ] unit-test
+[ ] [ 0x100,0000 0 "s" get set-nth ] unit-test
+[ 0 ] [ 0 "s" get nth ] unit-test
 
-{ } [ -1 0 "s" get set-nth ] unit-test
-{ 0x7fffff } [ 0 "s" get nth ] unit-test
+[ ] [ -1 0 "s" get set-nth ] unit-test
+[ 0x7fffff ] [ 0 "s" get nth ] unit-test