factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / extra / gpu / render / render-tests.factor

diff --git a/extra/gpu/render/render-tests.factor b/extra/gpu/render/render-tests.factor
index 2dafac8907481b79ff860950209fbeae1d889862..da79b138cc0eac692bce021b4c501e405e2a3b83 100644 (file)
--- a/extra/gpu/render/render-tests.factor
+++ b/extra/gpu/render/render-tests.factor
@@ -21,25 +21,25 @@ UNIFORM-TUPLE: array-of-struct-containing-texture
 UNIFORM-TUPLE: array-of-struct-containing-array-of-texture
     { "threads" array-of-textures 2 } ;
 
-[  1 ] [ texture-uniform uniform-type-texture-units ] unit-test
-[  0 ] [ float-uniform uniform-type-texture-units ] unit-test
-[  2 ] [ two-textures uniform-type-texture-units ] unit-test
-[  3 ] [ inherited-textures uniform-type-texture-units ] unit-test
-[  6 ] [ array-of-textures uniform-type-texture-units ] unit-test
-[  2 ] [ struct-containing-texture uniform-type-texture-units ] unit-test
-[  9 ] [ array-of-struct-containing-texture uniform-type-texture-units ] unit-test
-[ 12 ] [ array-of-struct-containing-array-of-texture uniform-type-texture-units ] unit-test
+{  1 } [ texture-uniform uniform-type-texture-units ] unit-test
+{  0 } [ float-uniform uniform-type-texture-units ] unit-test
+{  2 } [ two-textures uniform-type-texture-units ] unit-test
+{  3 } [ inherited-textures uniform-type-texture-units ] unit-test
+{  6 } [ array-of-textures uniform-type-texture-units ] unit-test
+{  2 } [ struct-containing-texture uniform-type-texture-units ] unit-test
+{  9 } [ array-of-struct-containing-texture uniform-type-texture-units ] unit-test
+{ 12 } [ array-of-struct-containing-array-of-texture uniform-type-texture-units ] unit-test
 
-[ { [ ] } ] [ texture-uniform f uniform-texture-accessors ] unit-test
+{ { [ ] } } [ texture-uniform f uniform-texture-accessors ] unit-test
 
-[ { } ] [ float-uniform f uniform-texture-accessors ] unit-test
+{ { } } [ float-uniform f uniform-texture-accessors ] unit-test
 
-[ { [ argyle>> ] [ tweed>> ] } ] [ two-textures f uniform-texture-accessors ] unit-test
+{ { [ argyle>> ] [ tweed>> ] } } [ two-textures f uniform-texture-accessors ] unit-test
 
-[ { [ argyle>> ] [ tweed>> ] [ paisley>> ] } ]
+{ { [ argyle>> ] [ tweed>> ] [ paisley>> ] } }
 [ inherited-textures f uniform-texture-accessors ] unit-test
 
-[ {
+{ {
     [ argyle>> ]
     [ tweed>> ]
     [ plaids>> {
@@ -48,16 +48,16 @@ UNIFORM-TUPLE: array-of-struct-containing-array-of-texture
         [ 2 swap nth ]
         [ 3 swap nth ]
     } ]
-} ] [ array-of-textures f uniform-texture-accessors ] unit-test
+} } [ array-of-textures f uniform-texture-accessors ] unit-test
 
-[ {
+{ {
     [ threads>> {
         [ argyle>> ]
         [ tweed>> ]
     } ]
-} ] [ struct-containing-texture f uniform-texture-accessors ] unit-test
+} } [ struct-containing-texture f uniform-texture-accessors ] unit-test
 
-[ {
+{ {
     [ threads>> {
         [ 0 swap nth {
             [ argyle>> ]
@@ -75,9 +75,9 @@ UNIFORM-TUPLE: array-of-struct-containing-array-of-texture
             [ paisley>> ]
         } ]
     } ]
-} ] [ array-of-struct-containing-texture f uniform-texture-accessors ] unit-test
+} } [ array-of-struct-containing-texture f uniform-texture-accessors ] unit-test
 
-[ {
+{ {
     [ threads>> {
         [ 0 swap nth {
             [ argyle>> ]
@@ -100,9 +100,9 @@ UNIFORM-TUPLE: array-of-struct-containing-array-of-texture
             } ]
         } ]
     } ]
-} ] [ array-of-struct-containing-array-of-texture f uniform-texture-accessors ] unit-test
+} } [ array-of-struct-containing-array-of-texture f uniform-texture-accessors ] unit-test
 
-[ [
+{ [
     nip {
         [ argyle>> 0 (bind-texture-unit) ]
         [ tweed>> 1 (bind-texture-unit) ]
@@ -113,4 +113,4 @@ UNIFORM-TUPLE: array-of-struct-containing-array-of-texture
             [ 3 swap nth 5 (bind-texture-unit) ]
         } cleave ]
     } cleave
-] ] [ array-of-textures [bind-uniform-textures] ] unit-test
+] } [ array-of-textures [bind-uniform-textures] ] unit-test