tools.scaffold: expand test-maybe unit test

diff --git a/basis/tools/scaffold/scaffold-tests.factor b/basis/tools/scaffold/scaffold-tests.factor
index 6e7070c17fcce2628981a4b06650dd2df33502bf..d8dfa957cd08a6f360c04ff2db09999a25428866 100644 (file)
--- a/basis/tools/scaffold/scaffold-tests.factor
+++ b/basis/tools/scaffold/scaffold-tests.factor
@@ -4,6 +4,7 @@ USING: help.markup io.streams.string kernel sequences
 tools.scaffold tools.scaffold.private tools.test unicode ;
 IN: tools.scaffold.tests
 
+
 : undocumented-word ( obj1 obj2 -- obj3 obj4 )
     [ >lower ] [ >upper ] bi* ;
 
@@ -23,7 +24,8 @@ IN: tools.scaffold.tests
 {
 "HELP: iota
 { $class-description \"\" } ;
-" }
+"
+}
 [
     [ \ iota scaffold-word-docs ] with-string-writer
 ] unit-test
@@ -37,4 +39,14 @@ IN: tools.scaffold.tests
 
 : test-maybe ( obj -- obj/f ) ;
 
-{ } [ \ test-maybe scaffold-word-docs ] unit-test
+{
+"HELP: test-maybe
+{ $values
+    { \"obj\" object }
+    { \"obj/f\" { $maybe object } }
+}
+{ $description \"\" } ;
+"
+}
+[ [ \ test-maybe scaffold-word-docs ] with-string-writer ]
+unit-test