Commits

omc10  committed 4739597

different naming scheme

  • Participants
  • Parent commits 0502f8f

Comments (0)

Files changed (2)

File reporters/console.scm

 
   (define (report-summary)
     (if (reporter-use-colors?)
-        (report-summary-with-colors)
-        (report-summary-without-colors)))
+        (report-summary/colors)
+        (report-summary/nocolors)))
 
-  (define (report-summary-without-colors)
+  (define (report-summary/colors)
     (newline)
     (printf "Total: ~a Passed: ~a Pending: ~a Failed: ~a" total-count success-count pending-count failure-count)
     (newline)
     (flush-output))
 
-  (define (report-summary-with-colors)
+  (define (report-summary/nocolors)
     (newline)
     (fmt #t (cat
              (fmt-bold (cat "Total: " total-count))

File reporters/repl.scm

 
   (define +mode-map+
     `((plain  . ("passed" "failed"))
+      (short   . ("P" "F"))
       (default . ("✔" "✘"))
-      (hearts . ("♥" "♥"))
       (smileys . ("☺" "☹"))))
 
   (define current-reporting-designators (make-parameter'default))
 
   (define (print-success result out)
     (if (reporter-use-colors?)
-        (print-success-with-colors result out)
-        (print-success-without-colors result out)))
+        (print-success/colors result out)
+        (print-success/nocolors result out)))
 
   (define (print-failure result out)
     (if (reporter-use-colors?)
-        (print-failure-with-colors result out)
-        (print-failure-without-colors result out)))
+        (print-failure/colors result out)
+        (print-failure/nocolors result out)))
 
-  (define (print-success-with-colors result out)
+  (define (print-success/colors result out)
     (fmt out (fmt-green (fmt-bold (cat (success-designator) "  ")))))
 
-  (define (print-success-without-colors result out)
+  (define (print-success/nocolors result out)
     (display (conc (success-designator) "  ") out))
 
-  (define (print-failure-with-colors result out)
+  (define (print-failure/colors result out)
     (fmt out (fmt-red (fmt-bold (cat (failure-designator) "  "))))
     (fmt out (fmt-red (verification-failure-message result))))
 
-  (define (print-failure-without-colors result out)
+  (define (print-failure/nocolors result out)
     (display (conc (failure-designator) "  ") out)
     (display (verification-failure-message result) out))