show success rate in statistics

2014-06-28 22:02:09 +09:00 · 2014-06-28 22:02:09 +09:00 · 5c3e5b116e
parent 2615ce11bd
commit 5c3e5b116e
1 changed files with 3 additions and 0 deletions
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@ -54,6 +54,9 @@
  (write (- counter failure-counter))
  (display " / ")
  (write counter)
+  (display " (")
+  (write (* (/ (- counter failure-counter) counter) 100))
+  (display "%)")
  (display " [PASS/TOTAL]")
  (display "[0;39m")
  (newline))