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

[factor.git] / basis / refs / refs-tests.factor

diff --git a/basis/refs/refs-tests.factor b/basis/refs/refs-tests.factor
index afa6817bf2375f296fd318d5cc9984fa6c5cbe55..96ab63a7808d1a39e78df431973cf05c24f8c348 100644 (file)
--- a/basis/refs/refs-tests.factor
+++ b/basis/refs/refs-tests.factor
@@ -2,21 +2,21 @@ USING: boxes kernel namespaces refs tools.test ;
 IN: refs.tests
 
 ! assoc-refs
-[ 3 ] [
+{ 3 } [
     H{ { "a" 3 } } "a" <value-ref> get-ref
 ] unit-test
 
-[ 4 ] [
+{ 4 } [
     4 H{ { "a" 3 } } clone "a" <value-ref>
     [ set-ref ] keep
     get-ref
 ] unit-test
 
-[ "a" ] [
+{ "a" } [
     H{ { "a" 3 } } "a" <key-ref> get-ref
 ] unit-test
 
-[ H{ { "b" 3 } } ] [
+{ H{ { "b" 3 } } } [
     "b" H{ { "a" 3 } } clone [
         "a" <key-ref>
         set-ref
@@ -26,16 +26,16 @@ IN: refs.tests
 SYMBOLS: lion giraffe elephant rabbit ;
 
 ! obj-refs
-[ rabbit ] [ rabbit <obj-ref> get-ref ] unit-test
-[ rabbit ] [ f <obj-ref> rabbit set-ref* get-ref ] unit-test
-[ rabbit ] [ rabbit <obj-ref> take ] unit-test
-[ rabbit f ] [ rabbit <obj-ref> [ take ] keep get-ref ] unit-test
-[ lion ] [ rabbit <obj-ref> dup [ drop lion ] change-ref get-ref ] unit-test
+{ rabbit } [ rabbit <obj-ref> get-ref ] unit-test
+{ rabbit } [ f <obj-ref> rabbit set-ref* get-ref ] unit-test
+{ rabbit } [ rabbit <obj-ref> take ] unit-test
+{ rabbit f } [ rabbit <obj-ref> [ take ] keep get-ref ] unit-test
+{ lion } [ rabbit <obj-ref> dup [ drop lion ] change-ref get-ref ] unit-test
 
 ! var-refs
-[ giraffe ] [ [ giraffe rabbit set rabbit <var-ref> get-ref ] with-scope ] unit-test
+{ giraffe } [ [ giraffe rabbit set rabbit <var-ref> get-ref ] with-scope ] unit-test
 
-[ rabbit ]
+{ rabbit }
 [
     [
         lion rabbit set [
@@ -44,7 +44,7 @@ SYMBOLS: lion giraffe elephant rabbit ;
     ] with-scope
 ] unit-test
 
-[ rabbit ] [
+{ rabbit } [
     rabbit <var-ref>
     [
         lion rabbit set [
@@ -53,7 +53,7 @@ SYMBOLS: lion giraffe elephant rabbit ;
     ] with-scope
 ] unit-test
 
-[ elephant ] [
+{ elephant } [
     rabbit <var-ref>
     [
         elephant rabbit set [
@@ -63,7 +63,7 @@ SYMBOLS: lion giraffe elephant rabbit ;
     ] with-scope
 ] unit-test
 
-[ rabbit ] [
+{ rabbit } [
     rabbit <var-ref>
     [
         elephant set-ref* [
@@ -72,7 +72,7 @@ SYMBOLS: lion giraffe elephant rabbit ;
     ] with-scope
 ] unit-test
 
-[ elephant ] [
+{ elephant } [
     rabbit <var-ref>
     [
         elephant set-ref* [
@@ -83,8 +83,8 @@ SYMBOLS: lion giraffe elephant rabbit ;
 ] unit-test
 
 ! Top Hats
-[ lion ] [ lion rabbit set-global rabbit <global-var-ref> get-ref ] unit-test
-[ giraffe ] [ rabbit <global-var-ref> giraffe set-ref* get-ref ] unit-test
+{ lion } [ lion rabbit set-global rabbit <global-var-ref> get-ref ] unit-test
+{ giraffe } [ rabbit <global-var-ref> giraffe set-ref* get-ref ] unit-test
 
 ! Tuple refs
 TUPLE: foo bar ;
@@ -96,10 +96,10 @@ C: <foo> foo
 : test-slot-ref ( -- slot-ref )
     test-tuple 2 <slot-ref> ; ! hack!
 
-[ rabbit ] [ test-slot-ref get-ref ] unit-test
-[ lion ] [ test-slot-ref lion set-ref* get-ref ] unit-test
+{ rabbit } [ test-slot-ref get-ref ] unit-test
+{ lion } [ test-slot-ref lion set-ref* get-ref ] unit-test
 
 ! Boxes as refs
-[ rabbit ] [ <box> rabbit set-ref* get-ref ] unit-test
+{ rabbit } [ <box> rabbit set-ref* get-ref ] unit-test
 [ <box> rabbit set-ref* lion set-ref* ] must-fail
 [ <box> get-ref ] must-fail