Changeset 38296 in project


Ignore:
Timestamp:
03/17/20 13:11:17 (2 weeks ago)
Author:
juergen
Message:

simple-tests 2.0.1 with simplyfied test-predicates

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

Legend:

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

    r38279 r38296  
    44 (category testing)
    55 (license "BSD")
    6  (version "2.0")
     6 (version "2.0.1")
    77 (author "Juergen Lorenz")
    88 (components (extension simple-tests)))
  • release/5/simple-tests/tags/2.0.1/simple-tests.scm

    r38279 r38296  
    393393            (%symbol->string (rename 'symbol->string))
    394394            (%when (rename 'when))
     395            (%case-lambda (rename 'case-lambda))
    395396            (select-failures
    396397              (lambda (pairs)
     
    402403                     (cons (car pairs) (loop (cdr pairs))))))))
    403404            )
    404 `(,%define (,name ,verbose?)
    405    (,%let ,(chop args* 2)
    406      (,%when ,verbose?
    407        (,%print "In " ',name ":")
    408        (,%print* "---"
    409                  (,%make-string (,%string-length
    410                                   (,%symbol->string ',name)) #\-)
    411                  "-")
    412        )
    413      (,%let ((,%tests '()))
    414        ,@(map (lambda (p)
    415                 `(,%begin
    416                    (,%when ,verbose?
    417                      (,%print "\ntesting " ',(car p) " ...")
    418                      ;;(,%writeln 'computed ,(car p))
    419                      (,%print* "computed: ") (,%writeln ,(car p))
    420                      ;;(,%writeln 'expected ,(cadr p))
    421                      (,%print* "expected: ") (,%writeln ,(cadr p))
    422                      )
    423                    (,%set! ,%tests
    424                            ;(,%cons (,%cons ,(cons %equal? p) ',(car p)) ; ok
    425                            (,%cons (,%cons ((,%== ,(car p)) ,(cadr p)) ',(car p))
    426                                    ,%tests))
    427                    ))
    428               (chop pairs* 2))
    429        (,%let ((,%fails (,select-failures (,%reverse ,%tests))))
    430          (,%when ,verbose?
    431            (,%print "\nList of failed test expressions: "
    432                     (,%map ,%cdr ,%fails) "\n")
    433                     ;(,%apply ,%append (,%map ,%cdr ,%fails)))
    434                     )
    435          (,%if (,%null? ,%fails) #t #f)))))
     405;`(,%define (,name ,verbose?)
     406`(,%define ,name
     407   (,%case-lambda
     408     (()
     409      (,name #t))
     410     ((,verbose?)
     411      (,%let ,(chop args* 2)
     412        (,%when ,verbose?
     413          (,%print "\nIn " ',name ":")
     414          (,%print* "---"
     415                    (,%make-string (,%string-length
     416                                     (,%symbol->string ',name)) #\-)
     417                    "-\n")
     418          )
     419        (,%let ((,%tests '()))
     420          ,@(map (lambda (p)
     421                   `(,%begin
     422                      (,%when ,verbose?
     423                        (,%print "testing " ',(car p) " ...")
     424                        ;;(,%writeln 'computed ,(car p))
     425                        (,%print* "computed: ") (,%writeln ,(car p))
     426                        ;;(,%writeln 'expected ,(cadr p))
     427                        (,%print* "expected: ") (,%writeln ,(cadr p))
     428                        )
     429                      (,%set! ,%tests
     430                              ;(,%cons (,%cons ,(cons %equal? p) ',(car p)) ; ok
     431                              (,%cons (,%cons ((,%== ,(car p)) ,(cadr p)) ',(car p))
     432                                      ,%tests))
     433                      ))
     434                 (chop pairs* 2))
     435          (,%let ((,%fails (,select-failures (,%reverse ,%tests))))
     436            (,%when ,verbose?
     437              (,%print "List of failed test expressions: "
     438                       (,%map ,%cdr ,%fails))
     439                       ;(,%apply ,%append (,%map ,%cdr ,%fails)))
     440                       )
     441            (,%if (,%null? ,%fails) #t #f)))))))
    436442 ))))
    437443
     
    441447    (cond
    442448      ((null? pairs)
    443        (print "In " name ":")
     449       (print "\nIn " name ":")
    444450       (print "==="
    445451              (make-string (string-length (symbol->string name)) #\=)
     
    471477                                        checks)))))))
    472478 ) ; simple-tests
    473 
    474 ;(import simple-tests)
  • release/5/simple-tests/tags/2.0.1/tests/run.scm

    r38279 r38296  
    7373  )
    7474
    75 (check-all SIMPLE (bar? #t) (*? #t) (+? #t) (arithmetic? #t) (baz? #t)
    76            (qux? #t))
     75(check-all SIMPLE (bar?) (*?) (+?) (arithmetic?) (baz?) (qux?))
  • release/5/simple-tests/trunk/simple-tests.egg

    r38279 r38296  
    44 (category testing)
    55 (license "BSD")
    6  (version "2.0")
     6 (version "2.0.1")
    77 (author "Juergen Lorenz")
    88 (components (extension simple-tests)))
  • release/5/simple-tests/trunk/simple-tests.scm

    r38279 r38296  
    393393            (%symbol->string (rename 'symbol->string))
    394394            (%when (rename 'when))
     395            (%case-lambda (rename 'case-lambda))
    395396            (select-failures
    396397              (lambda (pairs)
     
    402403                     (cons (car pairs) (loop (cdr pairs))))))))
    403404            )
    404 `(,%define (,name ,verbose?)
    405    (,%let ,(chop args* 2)
    406      (,%when ,verbose?
    407        (,%print "In " ',name ":")
    408        (,%print* "---"
    409                  (,%make-string (,%string-length
    410                                   (,%symbol->string ',name)) #\-)
    411                  "-")
    412        )
    413      (,%let ((,%tests '()))
    414        ,@(map (lambda (p)
    415                 `(,%begin
    416                    (,%when ,verbose?
    417                      (,%print "\ntesting " ',(car p) " ...")
    418                      ;;(,%writeln 'computed ,(car p))
    419                      (,%print* "computed: ") (,%writeln ,(car p))
    420                      ;;(,%writeln 'expected ,(cadr p))
    421                      (,%print* "expected: ") (,%writeln ,(cadr p))
    422                      )
    423                    (,%set! ,%tests
    424                            ;(,%cons (,%cons ,(cons %equal? p) ',(car p)) ; ok
    425                            (,%cons (,%cons ((,%== ,(car p)) ,(cadr p)) ',(car p))
    426                                    ,%tests))
    427                    ))
    428               (chop pairs* 2))
    429        (,%let ((,%fails (,select-failures (,%reverse ,%tests))))
    430          (,%when ,verbose?
    431            (,%print "\nList of failed test expressions: "
    432                     (,%map ,%cdr ,%fails) "\n")
    433                     ;(,%apply ,%append (,%map ,%cdr ,%fails)))
    434                     )
    435          (,%if (,%null? ,%fails) #t #f)))))
     405;`(,%define (,name ,verbose?)
     406`(,%define ,name
     407   (,%case-lambda
     408     (()
     409      (,name #t))
     410     ((,verbose?)
     411      (,%let ,(chop args* 2)
     412        (,%when ,verbose?
     413          (,%print "\nIn " ',name ":")
     414          (,%print* "---"
     415                    (,%make-string (,%string-length
     416                                     (,%symbol->string ',name)) #\-)
     417                    "-\n")
     418          )
     419        (,%let ((,%tests '()))
     420          ,@(map (lambda (p)
     421                   `(,%begin
     422                      (,%when ,verbose?
     423                        (,%print "testing " ',(car p) " ...")
     424                        ;;(,%writeln 'computed ,(car p))
     425                        (,%print* "computed: ") (,%writeln ,(car p))
     426                        ;;(,%writeln 'expected ,(cadr p))
     427                        (,%print* "expected: ") (,%writeln ,(cadr p))
     428                        )
     429                      (,%set! ,%tests
     430                              ;(,%cons (,%cons ,(cons %equal? p) ',(car p)) ; ok
     431                              (,%cons (,%cons ((,%== ,(car p)) ,(cadr p)) ',(car p))
     432                                      ,%tests))
     433                      ))
     434                 (chop pairs* 2))
     435          (,%let ((,%fails (,select-failures (,%reverse ,%tests))))
     436            (,%when ,verbose?
     437              (,%print "List of failed test expressions: "
     438                       (,%map ,%cdr ,%fails))
     439                       ;(,%apply ,%append (,%map ,%cdr ,%fails)))
     440                       )
     441            (,%if (,%null? ,%fails) #t #f)))))))
    436442 ))))
    437443
     
    441447    (cond
    442448      ((null? pairs)
    443        (print "In " name ":")
     449       (print "\nIn " name ":")
    444450       (print "==="
    445451              (make-string (string-length (symbol->string name)) #\=)
     
    471477                                        checks)))))))
    472478 ) ; simple-tests
    473 
    474 ;(import simple-tests)
  • release/5/simple-tests/trunk/tests/run.scm

    r38279 r38296  
    7373  )
    7474
    75 (check-all SIMPLE (bar? #t) (*? #t) (+? #t) (arithmetic? #t) (baz? #t)
    76            (qux? #t))
     75(check-all SIMPLE (bar?) (*?) (+?) (arithmetic?) (baz?) (qux?))
Note: See TracChangeset for help on using the changeset viewer.