Changeset 39187 in project
- Timestamp:
- 11/09/20 17:24:00 (3 months ago)
- 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 4 4 (category testing) 5 5 (license "BSD") 6 (version "2.3 ")6 (version "2.3.1") 7 7 (author "Juergen Lorenz") 8 8 (components (extension simple-tests -
release/5/simple-tests/tags/2.3.1/simple-tests.scm
r38693 r39187 528 528 (let ((fails (,select-failures (reverse tests)))) 529 529 (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)))) 533 535 (if (null? fails) #t #f))))) 534 536 )))) … … 562 564 (when ,verbose? 563 565 (print "\nIn " ',name ":") 564 (print* " ---"566 (print* "===" ;"---" 565 567 (make-string (string-length 566 (symbol->string ',name)) #\ -)567 " -\n")568 (symbol->string ',name)) #\=) ;#\-) 569 "=\n") ;"-\n") 568 570 ) 569 571 ((check* ,(chop var-vals 2) … … 586 588 (cond 587 589 ((null? pairs) 588 (print "\nIn " name ":") 589 (print "===" 590 (newline) 591 (print "Failed tests in " name ":") 592 (print "================" 590 593 (make-string (string-length (symbol->string name)) #\=) 591 594 "=") 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)))) 594 598 (if (null? failures) 595 599 (begin (newline) (exit 0)) -
release/5/simple-tests/tags/2.3.1/tests/run.scm
r38693 r39187 39 39 40 40 ;;; new interface 41 ;;; define-checks is an alias to do-checks42 41 42 (newline) 43 (print "check") 44 (print "=====") 43 45 (check ((lst '(0 1 2 3))) 44 46 lst … … 52 54 ) 53 55 56 ;;; define-checks is an alias to do-checks 54 57 (do-checks (bar? verbose? n 5) 55 58 (positive? n) #t -
release/5/simple-tests/trunk/simple-tests.egg
r38693 r39187 4 4 (category testing) 5 5 (license "BSD") 6 (version "2.3 ")6 (version "2.3.1") 7 7 (author "Juergen Lorenz") 8 8 (components (extension simple-tests -
release/5/simple-tests/trunk/simple-tests.scm
r38693 r39187 528 528 (let ((fails (,select-failures (reverse tests)))) 529 529 (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)))) 533 535 (if (null? fails) #t #f))))) 534 536 )))) … … 562 564 (when ,verbose? 563 565 (print "\nIn " ',name ":") 564 (print* " ---"566 (print* "===" ;"---" 565 567 (make-string (string-length 566 (symbol->string ',name)) #\ -)567 " -\n")568 (symbol->string ',name)) #\=) ;#\-) 569 "=\n") ;"-\n") 568 570 ) 569 571 ((check* ,(chop var-vals 2) … … 586 588 (cond 587 589 ((null? pairs) 588 (print "\nIn " name ":") 589 (print "===" 590 (newline) 591 (print "Failed tests in " name ":") 592 (print "================" 590 593 (make-string (string-length (symbol->string name)) #\=) 591 594 "=") 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)))) 594 598 (if (null? failures) 595 599 (begin (newline) (exit 0)) -
release/5/simple-tests/trunk/tests/run.scm
r38693 r39187 39 39 40 40 ;;; new interface 41 ;;; define-checks is an alias to do-checks42 41 42 (newline) 43 (print "check") 44 (print "=====") 43 45 (check ((lst '(0 1 2 3))) 44 46 lst … … 52 54 ) 53 55 56 ;;; define-checks is an alias to do-checks 54 57 (do-checks (bar? verbose? n 5) 55 58 (positive? n) #t
Note: See TracChangeset
for help on using the changeset viewer.