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

[factor.git] / basis / alien / c-types / c-types-tests.factor

diff --git a/basis/alien/c-types/c-types-tests.factor b/basis/alien/c-types/c-types-tests.factor
index 1417433678d53572f6ba597a326fdb19b42f7acd..f0888780135d2bf655408e38bdec3866eff9384a 100644 (file)
--- a/basis/alien/c-types/c-types-tests.factor
+++ b/basis/alien/c-types/c-types-tests.factor
@@ -7,57 +7,57 @@ IN: alien.c-types.tests
 
 CONSTANT: xyz 123
 
-{ 492 } [ { int xyz } heap-size ] unit-test
+[ 492 ] [ { int xyz } heap-size ] unit-test
 
 UNION-STRUCT: foo
     { a int }
     { b int } ;
 
-{ t } [ pointer: void lookup-c-type void* lookup-c-type = ] unit-test
-{ t } [ pointer: int  lookup-c-type void* lookup-c-type = ] unit-test
-{ t } [ pointer: int* lookup-c-type void* lookup-c-type = ] unit-test
-{ f } [ pointer: foo  lookup-c-type void* lookup-c-type = ] unit-test
-{ t } [ pointer: foo* lookup-c-type void* lookup-c-type = ] unit-test
+[ t ] [ pointer: void lookup-c-type void* lookup-c-type = ] unit-test
+[ t ] [ pointer: int  lookup-c-type void* lookup-c-type = ] unit-test
+[ t ] [ pointer: int* lookup-c-type void* lookup-c-type = ] unit-test
+[ f ] [ pointer: foo  lookup-c-type void* lookup-c-type = ] unit-test
+[ t ] [ pointer: foo* lookup-c-type void* lookup-c-type = ] unit-test
 
-{ t } [ c-string lookup-c-type c-string lookup-c-type = ] unit-test
+[ t ] [ c-string lookup-c-type c-string lookup-c-type = ] unit-test
 
-{ t } [ foo heap-size int heap-size = ] unit-test
+[ t ] [ foo heap-size int heap-size = ] unit-test
 
 TYPEDEF: int MyInt
 
-{ t } [ int   lookup-c-type          MyInt lookup-c-type = ] unit-test
-{ t } [ void* lookup-c-type pointer: MyInt lookup-c-type = ] unit-test
+[ t ] [ int   lookup-c-type          MyInt lookup-c-type = ] unit-test
+[ t ] [ void* lookup-c-type pointer: MyInt lookup-c-type = ] unit-test
 
-{ 32 } [ { int 8 } heap-size ] unit-test
+[ 32 ] [ { int 8 } heap-size ] unit-test
 
-{ } [ pointer: { int 8 } heap-size pointer: void heap-size assert= ] unit-test
+[ ] [ pointer: { int 8 } heap-size pointer: void heap-size assert= ] unit-test
 
 TYPEDEF: char MyChar
 
-{ t } [ pointer: void lookup-c-type pointer: MyChar lookup-c-type = ] unit-test
+[ t ] [ pointer: void lookup-c-type pointer: MyChar lookup-c-type = ] unit-test
 
 TYPEDEF: { c-string ascii } MyFunkyString
 
-{ { c-string ascii } } [ MyFunkyString lookup-c-type ] unit-test
+[ { c-string ascii } ] [ MyFunkyString lookup-c-type ] unit-test
 
 TYPEDEF: c-string MyString
 
-{ t } [ c-string lookup-c-type MyString          lookup-c-type = ] unit-test
-{ t } [ void* lookup-c-type pointer: MyString lookup-c-type = ] unit-test
+[ t ] [ c-string lookup-c-type MyString          lookup-c-type = ] unit-test
+[ t ] [ void* lookup-c-type pointer: MyString lookup-c-type = ] unit-test
 
 TYPEDEF: int* MyIntArray
 
-{ t } [ void* lookup-c-type MyIntArray lookup-c-type = ] unit-test
+[ t ] [ void* lookup-c-type MyIntArray lookup-c-type = ] unit-test
 
-{ 0 } [ -10 uchar c-type-clamp ] unit-test
-{ 12 } [ 12 uchar c-type-clamp ] unit-test
-{ -10 } [ -10 char c-type-clamp ] unit-test
-{ 127 } [ 230 char c-type-clamp ] unit-test
-{ t } [ pi dup float c-type-clamp = ] unit-test
+[ 0 ] [ -10 uchar c-type-clamp ] unit-test
+[ 12 ] [ 12 uchar c-type-clamp ] unit-test
+[ -10 ] [ -10 char c-type-clamp ] unit-test
+[ 127 ] [ 230 char c-type-clamp ] unit-test
+[ t ] [ pi dup float c-type-clamp = ] unit-test
 
 C-TYPE: opaque
 
-{ t } [ void* lookup-c-type pointer: opaque lookup-c-type = ] unit-test
+[ t ] [ void* lookup-c-type pointer: opaque lookup-c-type = ] unit-test
 [ opaque lookup-c-type ] [ no-c-type? ] must-fail-with
 
 [ """
@@ -70,12 +70,12 @@ C-TYPE: forward
 STRUCT: backward { x forward* } ;
 STRUCT: forward { x backward* } ;
 
-{ t } [ forward lookup-c-type struct-c-type? ] unit-test
-{ t } [ backward lookup-c-type struct-c-type? ] unit-test
+[ t ] [ forward lookup-c-type struct-c-type? ] unit-test
+[ t ] [ backward lookup-c-type struct-c-type? ] unit-test
 
 DEFER: struct-redefined
 
-{ f }
+[ f ]
 [
 
     """