factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.

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

diff --git a/core/slots/slots-tests.factor b/core/slots/slots-tests.factor
index 5129827ad7f89cf51ad06969f3e60382ec950719..53c9c2fa1b85fe23cd9feb3d73da200b85cc3d2a 100644 (file)
--- a/core/slots/slots-tests.factor
+++ b/core/slots/slots-tests.factor
@@ -14,7 +14,7 @@ TUPLE: decl-test { foo array } ;
 
 TUPLE: hello length ;
 
-[ 3 ] [ "xyz" length>> ] unit-test
+{ 3 } [ "xyz" length>> ] unit-test
 
 [ "xyz" 4 >>length ] [ no-method? ] must-fail-with
 
@@ -26,9 +26,9 @@ TUPLE: protocol-slot-test-tuple x ;
 M: protocol-slot-test-tuple my-protocol-slot-test>> x>> sq ;
 M: protocol-slot-test-tuple my-protocol-slot-test<< [ sqrt ] dip x<< ;
 
-[ 9 ] [ T{ protocol-slot-test-tuple { x 3 } } my-protocol-slot-test>> ] unit-test
+{ 9 } [ T{ protocol-slot-test-tuple { x 3 } } my-protocol-slot-test>> ] unit-test
 
-[ 4.0 ] [
+{ 4.0 } [
     T{ protocol-slot-test-tuple { x 3 } } clone
     [ 7 + ] change-my-protocol-slot-test x>>
 ] unit-test
@@ -37,5 +37,5 @@ UNION: comme-ci integer float ;
 UNION: comme-ca integer float ;
 comme-ca 25.5 "initial-value" set-word-prop
 
-[ 0 t ]    [ comme-ci initial-value ] unit-test
-[ 25.5 t ] [ comme-ca initial-value ] unit-test
+{ 0 t }    [ comme-ci initial-value ] unit-test
+{ 25.5 t } [ comme-ca initial-value ] unit-test