Enable the default reporter at toplevel.

fukamachi · Mar 18, 2019 · acb44aa · acb44aa
1 parent 71f6976
commit acb44aa
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/main.lisp b/main.lisp
@@ -27,6 +27,7 @@
   (:import-from #:rove/core/result
                 #:form-description)
   (:import-from #:rove/reporter
+                #:use-reporter
                 #:with-reporter
                 #:diag
                 #:*report-stream*)
@@ -96,3 +97,6 @@
   (with-local-envs env
     (with-reporter style
       (run-system-tests target))))
+
+;; Enable the default reporter
+(use-reporter *default-reporter*)
diff --git a/reporter.lisp b/reporter.lisp
@@ -9,7 +9,8 @@
            #:reporter-stream
            #:print-message
            #:diag
-           #:with-reporter))
+           #:with-reporter
+           #:use-reporter))
 (in-package #:rove/reporter)
 
 (defvar *report-stream* (make-synonym-stream '*standard-output*))
@@ -46,3 +47,6 @@
             (append `((*stats* . ,*stats*))
                     bt:*default-special-bindings*)))
      ,@body))
+
+(defun use-reporter (style)
+  (setf *stats* (make-reporter style)))