Ignore:
Timestamp:
11/09/20 17:24:00 (3 months ago)
Author:
juergen
Message:

simple-tests 2.3.1

Location:
release/5/simple-tests/tags/2.3.1
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/simple-tests/tags/2.3.1/simple-tests.scm

    r38693 r39187  
    528528            (let ((fails (,select-failures (reverse tests))))
    529529              (when verbose?
    530                 (print "List of failed test expressions: "
    531                          (map cdr fails))
    532                          )
     530                (print "Failed test expressions:")
     531                (print "------------------------")
     532                (if (null? fails)
     533                  (print "none")
     534                  (for-each print (map cdr fails))))
    533535              (if (null? fails) #t #f)))))
    534536 ))))
     
    562564          (when ,verbose?
    563565            (print "\nIn " ',name ":")
    564             (print* "---"
     566            (print* "===" ;"---"
    565567                    (make-string (string-length
    566                                    (symbol->string ',name)) #\-)
    567                     "-\n")
     568                                   (symbol->string ',name)) #\=) ;#\-)
     569                    "=\n") ;"-\n")
    568570            )
    569571            ((check* ,(chop var-vals 2)
     
    586588    (cond
    587589      ((null? pairs)
    588        (print "\nIn " name ":")
    589        (print "==="
     590       (newline)
     591       (print "Failed tests in " name ":")
     592       (print "================"
    590593              (make-string (string-length (symbol->string name)) #\=)
    591594              "=")
    592        (print* "List of failed tests: "
    593               (map car (reverse failures)))
     595       (if (null? failures)
     596         (print "none")
     597         (for-each print (map car (reverse failures))))
    594598       (if (null? failures)
    595599         (begin (newline) (exit 0))
Note: See TracChangeset for help on using the changeset viewer.