fix failing skipped tests

1 files changed, 9 insertions, 5 deletions

diff --git a/lib/conspire.scm b/lib/conspire.scm
index 88d7272..1627ed1 100644
--- a/lib/conspire.scm
+++ b/lib/conspire.scm
@@ -368,11 +368,9 @@
 (define-syntax test-skip-all
   (syntax-rules ()
     ((_ body ...)
-     (parameterize ((test-info
-                     (list 'replace
-                           (test-set 'skip-test?
-                                     (lambda (_) #t)))))
-       body ...))))
+     (test-group #f
+       (test-set! 'skip-test? (lambda (_) #t))
+       (let () body ...)))))
 
 (define-syntax test-group
   (syntax-rules ()
@@ -389,6 +387,12 @@
         (lambda () cleanup-expr))))))
 
 (define (test-exit)
+  (write
+   `((tests passed: ,(test-ref 'passed))
+     (tests failed: ,(test-ref 'failed))
+     (tests skipped: ,(test-ref 'skipped))
+     (total number of tests: ,(test-ref 'tests))))
+  (newline)
   (exit (if (zero? (test-ref/default 'failed 0))
             0
             1)))