Changeset 39564 in project

Timestamp:

01/30/21 17:04:26 (4 weeks ago)

Author:

juergen

Message:

premodules 0.6.1 with support for define-tester and test-all

Location:

release/5/premodules

Files:

• tags/0.6.1 (copied) (copied from release/5/premodules/trunk)
• tags/0.6.1/premodules.egg (modified) (1 diff)
• tags/0.6.1/premodules.scm (modified) (3 diffs)
• trunk/premodules.egg (modified) (1 diff)
• trunk/premodules.scm (modified) (3 diffs)

release/5/premodules/tags/0.6.1/premodules.egg

@@ -3 +3 @@
 ((synopsis "Converting a premodule into module, test and doc files")
  (category doc-tools)
- (version "0.6")
+ (version "0.6.1")
  (license "BSD")
  (dependencies simple-tests)

release/5/premodules/tags/0.6.1/premodules.scm

@@ -174 +174 @@
 
 (define (check-xpr? xpr)
-  (or (eq? (car xpr) 'define-checker)
+  (or (eq? (car xpr) 'define-tester)
       (eq? (car xpr) 'define-checks)
       (eq? (car xpr) 'do-checks)))
@@ -340 +340 @@
                 (if (pair? xpr)
                   (case (car xpr)
-                    ((define-checker define-checks do-checks)
+                    ((define-tester define-checks do-checks)
                      (for-each (lambda (p)
                                  (pp (car p))
@@ -430 +430 @@
                  (newline)
                  (write-line
-                   (string-append "(check-all "
+                   ;(string-append "(check-all "
+                   (string-append "(test-all "
                    (string-translate (module-name main.lst)
                                      "abcdefghijklmnopqrstuvwxyz"

release/5/premodules/trunk/premodules.egg

@@ -3 +3 @@
 ((synopsis "Converting a premodule into module, test and doc files")
  (category doc-tools)
- (version "0.6")
+ (version "0.6.1")
  (license "BSD")
  (dependencies simple-tests)

release/5/premodules/trunk/premodules.scm

@@ -174 +174 @@
 
 (define (check-xpr? xpr)
-  (or (eq? (car xpr) 'define-checker)
+  (or (eq? (car xpr) 'define-tester)
       (eq? (car xpr) 'define-checks)
       (eq? (car xpr) 'do-checks)))
@@ -340 +340 @@
                 (if (pair? xpr)
                   (case (car xpr)
-                    ((define-checker define-checks do-checks)
+                    ((define-tester define-checks do-checks)
                      (for-each (lambda (p)
                                  (pp (car p))
@@ -430 +430 @@
                  (newline)
                  (write-line
-                   (string-append "(check-all "
+                   ;(string-append "(check-all "
+                   (string-append "(test-all "
                    (string-translate (module-name main.lst)
                                      "abcdefghijklmnopqrstuvwxyz"