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

[factor.git] / core / generic / hook / hook-tests.factor

diff --git a/core/generic/hook/hook-tests.factor b/core/generic/hook/hook-tests.factor
index b5a7cdffb1ec868013d872a4c8f93868dba99546..cd28006384855d1f6db1992ac4bba176685aaafc 100644 (file)
--- a/core/generic/hook/hook-tests.factor
+++ b/core/generic/hook/hook-tests.factor
@@ -8,8 +8,8 @@ HOOK: my-hook my-var ( -- x )
 M: integer my-hook "an integer" ;
 M: string my-hook "a string" ;
 
-[ "an integer" ] [ 3 my-var set my-hook ] unit-test
-[ "a string" ] [ my-hook my-var set my-hook ] unit-test
+{ "an integer" } [ 3 my-var set my-hook ] unit-test
+{ "a string" } [ my-hook my-var set my-hook ] unit-test
 [ 1.0 my-var set my-hook ] [ T{ no-method f 1.0 my-hook } = ] must-fail-with
 
 HOOK: call-next-hooker my-var ( -- x )
@@ -22,14 +22,14 @@ M: vector call-next-hooker call-next-method "vector " prepend ;
 
 M: growable call-next-hooker call-next-method "growable " prepend ;
 
-[ "vector growable sequence" ] [
+{ "vector growable sequence" } [
     V{ } my-var [ call-next-hooker ] with-variable
 ] unit-test
 
-[ t ] [
+{ t } [
     { } \ nth effective-method nip M\ sequence nth eq?
 ] unit-test
 
-[ t ] [
+{ t } [
     \ + \ nth effective-method nip dup \ nth "default-method" word-prop eq? and
 ] unit-test