Changeset 39564 in project


Ignore:
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:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/premodules/tags/0.6.1/premodules.egg

    r39538 r39564  
    33((synopsis "Converting a premodule into module, test and doc files")
    44 (category doc-tools)
    5  (version "0.6")
     5 (version "0.6.1")
    66 (license "BSD")
    77 (dependencies simple-tests)
  • release/5/premodules/tags/0.6.1/premodules.scm

    r39538 r39564  
    174174
    175175(define (check-xpr? xpr)
    176   (or (eq? (car xpr) 'define-checker)
     176  (or (eq? (car xpr) 'define-tester)
    177177      (eq? (car xpr) 'define-checks)
    178178      (eq? (car xpr) 'do-checks)))
     
    340340                (if (pair? xpr)
    341341                  (case (car xpr)
    342                     ((define-checker define-checks do-checks)
     342                    ((define-tester define-checks do-checks)
    343343                     (for-each (lambda (p)
    344344                                 (pp (car p))
     
    430430                 (newline)
    431431                 (write-line
    432                    (string-append "(check-all "
     432                   ;(string-append "(check-all "
     433                   (string-append "(test-all "
    433434                   (string-translate (module-name main.lst)
    434435                                     "abcdefghijklmnopqrstuvwxyz"
  • release/5/premodules/trunk/premodules.egg

    r39538 r39564  
    33((synopsis "Converting a premodule into module, test and doc files")
    44 (category doc-tools)
    5  (version "0.6")
     5 (version "0.6.1")
    66 (license "BSD")
    77 (dependencies simple-tests)
  • release/5/premodules/trunk/premodules.scm

    r39538 r39564  
    174174
    175175(define (check-xpr? xpr)
    176   (or (eq? (car xpr) 'define-checker)
     176  (or (eq? (car xpr) 'define-tester)
    177177      (eq? (car xpr) 'define-checks)
    178178      (eq? (car xpr) 'do-checks)))
     
    340340                (if (pair? xpr)
    341341                  (case (car xpr)
    342                     ((define-checker define-checks do-checks)
     342                    ((define-tester define-checks do-checks)
    343343                     (for-each (lambda (p)
    344344                                 (pp (car p))
     
    430430                 (newline)
    431431                 (write-line
    432                    (string-append "(check-all "
     432                   ;(string-append "(check-all "
     433                   (string-append "(test-all "
    433434                   (string-translate (module-name main.lst)
    434435                                     "abcdefghijklmnopqrstuvwxyz"
Note: See TracChangeset for help on using the changeset viewer.