fix test verbosity for monad/parsec

mighty-gerbils · Aug 31, 2024 · f6758b5 · f6758b5
1 parent 667855b
commit f6758b5
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 12 deletions.
diff --git a/src/std/monad-test.ss b/src/std/monad-test.ss
@@ -22,12 +22,12 @@
     ((_ test-case: name rest ...)
      #'(test-case name (test-inline rest ...)))
     ((_ > form > rest ...)
-     #'(begin (displayln "... " 'form) form (test-inline > rest ...)))
+     #'(begin (when *test-versbose* (displayln "... " 'form)) form (test-inline > rest ...)))
     ((_ > test result rest ...)
      #'(begin (check test => 'result) (test-inline rest ...)))
     ((_) #!void)))
 
-(set-test-verbose! #t)
+;; (set-test-verbose! #t)
 
 (def monad-test
   (test-suite "Test :std/monad"

diff --git a/src/std/monad/README.org b/src/std/monad/README.org
@@ -1130,12 +1130,12 @@ This is after state in the train of thought so is defined here.
       ((_ test-case: name rest ...)
        #'(test-case name (test-inline rest ...)))
       ((_ > form > rest ...)
-       #'(begin (displayln "... " 'form) form (test-inline > rest ...)))
+       #'(begin (when std/test#*test-versbose* (displayln "... " 'form)) form (test-inline > rest ...)))
       ((_ > test result rest ...)
        #'(begin (check test => 'result) (test-inline rest ...)))
       ((_) #!void)))
 
-  (set-test-verbose! #t)
+  ;; (set-test-verbose! #t)
 
   (def monad-test
     (test-suite "Test :std/monad"

diff --git a/src/std/parsec-test.ss b/src/std/parsec-test.ss
@@ -27,13 +27,13 @@
     ((_ test-case: name rest ...)
      #'(test-case name (test-inline rest ...)))
     ((_ > form > rest ...)
-     #'(begin (displayln "... " 'form) form (test-inline > rest ...)))
+     #'(begin (when std/test#*test-verbose* (displayln "... " 'form)) form (test-inline > rest ...)))
     ((_ > test result rest ...)
      #'(begin (check test => 'result) (test-inline rest ...)))
     ((_) #!void)))
 
-(set-test-verbose! #t)
 
+;; (set-test-verbose! #f)
 (def parsec-test 
   (test-suite "Test :std/parsec"
    (test-inline
@@ -287,10 +287,11 @@
      > (def-parse EOL (.or (.eof) (.newline)))
 
      > (def-parse KEY
-     	    (.>> (.string "#+")
-      		 (.many-till
-      		  (.satisfy (? (not char-whitespace?)))
-      		  (.string ": "))))
+         (.>> (.string "#+")
+      	 (.many-till
+      	  (.satisfy (? (not char-whitespace?)))
+      	  (.string ": "))))
+
      > (def-parse VALUE (.many-till (.any-token) EOL))
 
      > (def-parse KEYWORD

diff --git a/src/std/parsec/README.org b/src/std/parsec/README.org
@@ -72,6 +72,7 @@ The first line is a keyword.
    	 (.many-till
    	  (.satisfy (? (not char-whitespace?)))
    	  (.string ": "))))
+
   > (def-parse VALUE (.many-till (.any-token) EOL))
 
   > (def-parse KEYWORD
@@ -1058,13 +1059,13 @@ non-determanistic parsers that's a possibility!
       ((_ test-case: name rest ...)
        #'(test-case name (test-inline rest ...)))
       ((_ > form > rest ...)
-       #'(begin (displayln "... " 'form) form (test-inline > rest ...)))
+       #'(begin (when std/test#*test-verbose* (displayln "... " 'form)) form (test-inline > rest ...)))
       ((_ > test result rest ...)
        #'(begin (check test => 'result) (test-inline rest ...)))
       ((_) #!void)))
 
-  (set-test-verbose! #t)
 
+  ;; (set-test-verbose! #f)
   (def parsec-test 
     (test-suite "Test :std/parsec"
      (test-inline