Changeset 39187 in project

Timestamp:

11/09/20 17:24:00 (3 months ago)

Author:

juergen

Message:

simple-tests 2.3.1

Location:

release/5/simple-tests

Files:

• tags/2.3.1 (copied) (copied from release/5/simple-tests/trunk)
• tags/2.3.1/simple-tests.egg (modified) (1 diff)
• tags/2.3.1/simple-tests.scm (modified) (3 diffs)
• tags/2.3.1/tests/run.scm (modified) (2 diffs)
• trunk/simple-tests.egg (modified) (1 diff)
• trunk/simple-tests.scm (modified) (3 diffs)
• trunk/tests/run.scm (modified) (2 diffs)

release/5/simple-tests/tags/2.3.1/simple-tests.egg

@@ -4 +4 @@
  (category testing)
  (license "BSD")
- (version "2.3")
+ (version "2.3.1")
  (author "Juergen Lorenz")
  (components (extension simple-tests

release/5/simple-tests/tags/2.3.1/simple-tests.scm

@@ -528 +528 @@
             (let ((fails (,select-failures (reverse tests))))
               (when verbose?
-                (print "List of failed test expressions: "
-                         (map cdr fails))
-                         )
+                (print "Failed test expressions:")
+                (print "------------------------")
+                (if (null? fails)
+                  (print "none")
+                  (for-each print (map cdr fails))))
               (if (null? fails) #t #f)))))
  ))))
@@ -562 +564 @@
           (when ,verbose?
             (print "\nIn " ',name ":")
-            (print* "---"
+            (print* "===" ;"---"
                     (make-string (string-length
-                                   (symbol->string ',name)) #\-)
-                    "-\n")
+                                   (symbol->string ',name)) #\=) ;#\-)
+                    "=\n") ;"-\n")
             )
             ((check* ,(chop var-vals 2)
@@ -586 +588 @@
     (cond
       ((null? pairs)
-       (print "\nIn " name ":")
-       (print "==="
+       (newline)
+       (print "Failed tests in " name ":")
+       (print "================"
               (make-string (string-length (symbol->string name)) #\=)
               "=")
-       (print* "List of failed tests: "
-              (map car (reverse failures)))
+       (if (null? failures)
+         (print "none")
+         (for-each print (map car (reverse failures))))
        (if (null? failures)
          (begin (newline) (exit 0))

release/5/simple-tests/tags/2.3.1/tests/run.scm

@@ -39 +39 @@
 
 ;;; new interface
-;;; define-checks is an alias to do-checks
 
+(newline)
+(print "check")
+(print "=====")
 (check ((lst '(0 1 2 3)))
   lst
@@ -52 +54 @@
   )
 
+;;; define-checks is an alias to do-checks
 (do-checks (bar? verbose? n 5)
   (positive? n) #t

release/5/simple-tests/trunk/simple-tests.egg

@@ -4 +4 @@
  (category testing)
  (license "BSD")
- (version "2.3")
+ (version "2.3.1")
  (author "Juergen Lorenz")
  (components (extension simple-tests

release/5/simple-tests/trunk/simple-tests.scm

@@ -528 +528 @@
             (let ((fails (,select-failures (reverse tests))))
               (when verbose?
-                (print "List of failed test expressions: "
-                         (map cdr fails))
-                         )
+                (print "Failed test expressions:")
+                (print "------------------------")
+                (if (null? fails)
+                  (print "none")
+                  (for-each print (map cdr fails))))
               (if (null? fails) #t #f)))))
  ))))
@@ -562 +564 @@
           (when ,verbose?
             (print "\nIn " ',name ":")
-            (print* "---"
+            (print* "===" ;"---"
                     (make-string (string-length
-                                   (symbol->string ',name)) #\-)
-                    "-\n")
+                                   (symbol->string ',name)) #\=) ;#\-)
+                    "=\n") ;"-\n")
             )
             ((check* ,(chop var-vals 2)
@@ -586 +588 @@
     (cond
       ((null? pairs)
-       (print "\nIn " name ":")
-       (print "==="
+       (newline)
+       (print "Failed tests in " name ":")
+       (print "================"
               (make-string (string-length (symbol->string name)) #\=)
               "=")
-       (print* "List of failed tests: "
-              (map car (reverse failures)))
+       (if (null? failures)
+         (print "none")
+         (for-each print (map car (reverse failures))))
        (if (null? failures)
          (begin (newline) (exit 0))

release/5/simple-tests/trunk/tests/run.scm

@@ -39 +39 @@
 
 ;;; new interface
-;;; define-checks is an alias to do-checks
 
+(newline)
+(print "check")
+(print "=====")
 (check ((lst '(0 1 2 3)))
   lst
@@ -52 +54 @@
   )
 
+;;; define-checks is an alias to do-checks
 (do-checks (bar? verbose? n 5)
   (positive? n) #t