- Timestamp:
- 04/24/20 11:57:20 (9 months ago)
- Location:
- release/5/simple-tests
- Files:
-
- 3 edited
- 4 copied
Legend:
- Unmodified
- Added
- Removed
-
release/5/simple-tests/tags/2.1/simple-tests.egg
r38612 r38640 4 4 (category testing) 5 5 (license "BSD") 6 (version "2. 0.3")6 (version "2.1") 7 7 (author "Juergen Lorenz") 8 8 (components (extension simple-tests -
release/5/simple-tests/tags/2.1/simple-tests.scm
r38612 r38640 60 60 == 61 61 define-checks 62 do-checks 62 63 (check-all check-all-proc) 63 64 ) … … 90 91 (== x) 91 92 (== type? type-equal?) 92 (define-checks (name? verbose? {arg val} ...) {xpr expected} ....) 93 (do-checks (name? verbose? :arg val: ...) :xpr expected: ....) 94 (define-checks (name? verbose? :arg val: ...) :xpr expected: ....) 93 95 (check-all name check-xpr ....))) 94 96 ) … … 357 359 ))) 358 360 359 ;;; (d efine-checks (name? verbose? {arg val} ...) {xpr expect}....)361 ;;; (do-checks (name? verbose? :arg val: ...) :xpr expect: ....) 360 362 ;;; ---------------------------------------------------------------- 361 363 ;;; returns a unary predicate, name?, comparing xpr with expect .... 362 364 ;;; and using arg val ... within this checks 363 (define-syntax d efine-checks365 (define-syntax do-checks 364 366 (er-macro-transformer 365 367 (lambda (form rename compare?) … … 445 447 )))) 446 448 449 ;;; (define-checks (name? verbose? :arg val: ...) :xpr expect: ....) 450 ;;; ---------------------------------------------------------------- 451 ;;; returns a unary predicate, name?, comparing xpr with expect .... 452 ;;; and using arg val ... within this checks 453 ;;; Alias to do-checks 454 (define-syntax define-checks 455 (syntax-rules () 456 ((_(name? verbose? . arg-val-pairs) xpr expect . xpr-expect-pairs) 457 (do-checks (name? verbose? . arg-val-pairs) 458 xpr expect . xpr-expect-pairs)))) 459 447 460 (define (check-all-proc name . test-name-pairs) ; internal to check-all 448 461 ; used internally in check-all, must be exported within check-all -
release/5/simple-tests/tags/2.1/tests/run.scm
r38612 r38640 39 39 40 40 ;;; new interface 41 ;;; define-checks is an alias to do-checks 41 42 42 (d efine-checks (bar? verbose? n 5)43 (do-checks (bar? verbose? n 5) 43 44 (positive? n) #t 44 45 (even? n) #f) … … 56 57 (*? #f) #t) 57 58 58 (d efine-checks (baz? verbose?)59 (do-checks (baz? verbose?) 59 60 (and? #t #t #t) #t 60 61 (and?) #t -
release/5/simple-tests/trunk/simple-tests.egg
r38612 r38640 4 4 (category testing) 5 5 (license "BSD") 6 (version "2. 0.3")6 (version "2.1") 7 7 (author "Juergen Lorenz") 8 8 (components (extension simple-tests -
release/5/simple-tests/trunk/simple-tests.scm
r38612 r38640 60 60 == 61 61 define-checks 62 do-checks 62 63 (check-all check-all-proc) 63 64 ) … … 90 91 (== x) 91 92 (== type? type-equal?) 92 (define-checks (name? verbose? {arg val} ...) {xpr expected} ....) 93 (do-checks (name? verbose? :arg val: ...) :xpr expected: ....) 94 (define-checks (name? verbose? :arg val: ...) :xpr expected: ....) 93 95 (check-all name check-xpr ....))) 94 96 ) … … 357 359 ))) 358 360 359 ;;; (d efine-checks (name? verbose? {arg val} ...) {xpr expect}....)361 ;;; (do-checks (name? verbose? :arg val: ...) :xpr expect: ....) 360 362 ;;; ---------------------------------------------------------------- 361 363 ;;; returns a unary predicate, name?, comparing xpr with expect .... 362 364 ;;; and using arg val ... within this checks 363 (define-syntax d efine-checks365 (define-syntax do-checks 364 366 (er-macro-transformer 365 367 (lambda (form rename compare?) … … 445 447 )))) 446 448 449 ;;; (define-checks (name? verbose? :arg val: ...) :xpr expect: ....) 450 ;;; ---------------------------------------------------------------- 451 ;;; returns a unary predicate, name?, comparing xpr with expect .... 452 ;;; and using arg val ... within this checks 453 ;;; Alias to do-checks 454 (define-syntax define-checks 455 (syntax-rules () 456 ((_(name? verbose? . arg-val-pairs) xpr expect . xpr-expect-pairs) 457 (do-checks (name? verbose? . arg-val-pairs) 458 xpr expect . xpr-expect-pairs)))) 459 447 460 (define (check-all-proc name . test-name-pairs) ; internal to check-all 448 461 ; used internally in check-all, must be exported within check-all -
release/5/simple-tests/trunk/tests/run.scm
r38612 r38640 39 39 40 40 ;;; new interface 41 ;;; define-checks is an alias to do-checks 41 42 42 (d efine-checks (bar? verbose? n 5)43 (do-checks (bar? verbose? n 5) 43 44 (positive? n) #t 44 45 (even? n) #f) … … 56 57 (*? #f) #t) 57 58 58 (d efine-checks (baz? verbose?)59 (do-checks (baz? verbose?) 59 60 (and? #t #t #t) #t 60 61 (and?) #t
Note: See TracChangeset
for help on using the changeset viewer.