Changeset 39187 in project


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

simple-tests 2.3.1

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

Legend:

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

    r38693 r39187  
    44 (category testing)
    55 (license "BSD")
    6  (version "2.3")
     6 (version "2.3.1")
    77 (author "Juergen Lorenz")
    88 (components (extension simple-tests
  • 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))
  • release/5/simple-tests/tags/2.3.1/tests/run.scm

    r38693 r39187  
    3939
    4040;;; new interface
    41 ;;; define-checks is an alias to do-checks
    4241
     42(newline)
     43(print "check")
     44(print "=====")
    4345(check ((lst '(0 1 2 3)))
    4446  lst
     
    5254  )
    5355
     56;;; define-checks is an alias to do-checks
    5457(do-checks (bar? verbose? n 5)
    5558  (positive? n) #t
  • release/5/simple-tests/trunk/simple-tests.egg

    r38693 r39187  
    44 (category testing)
    55 (license "BSD")
    6  (version "2.3")
     6 (version "2.3.1")
    77 (author "Juergen Lorenz")
    88 (components (extension simple-tests
  • release/5/simple-tests/trunk/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))
  • release/5/simple-tests/trunk/tests/run.scm

    r38693 r39187  
    3939
    4040;;; new interface
    41 ;;; define-checks is an alias to do-checks
    4241
     42(newline)
     43(print "check")
     44(print "=====")
    4345(check ((lst '(0 1 2 3)))
    4446  lst
     
    5254  )
    5355
     56;;; define-checks is an alias to do-checks
    5457(do-checks (bar? verbose? n 5)
    5558  (positive? n) #t
Note: See TracChangeset for help on using the changeset viewer.