suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactored to move test cases into a separate file(s)

Browse Source
This commit is contained in:
John Clements 2011-06-29 12:42:18 -07:00
parent b1d791a02e
commit 3f50dc7f2c
3 changed files with 2182 additions and 2136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/stepper/test-abbrev.rkt
View File

@ -1,15 +1,15 @@
#lang scheme #lang racket
(require (for-syntax scheme/mpair)) (require (for-syntax scheme/mpair))
(provide tt) (provide t)
;; tt : eli's convenient short-cut syntactic form for defining tests. ;; t : eli's convenient short-cut syntactic form for defining tests.
;; here's an example of how you might use it: ;; here's an example of how you might use it:
#;(let* ([defs1 `((define (a x) (+ x 5)) (define b a))] #;(let* ([defs1 `((define (a x) (+ x 5)) (define b a))]
[defs2 (append defs1 `((define c a)))]) [defs2 (append defs1 `((define c a)))])
(tt 'top-ref4 m:intermediate (t 'top-ref4 m:intermediate
,@defs1 (define c b) (c 3) ,@defs1 (define c b) (c 3)
:: ,@defs1 (define c {b}) :: ,@defs1 (define c {b})
-> ,@defs1 (define c {a}) -> ,@defs1 (define c {a})
@ -21,7 +21,7 @@
(define-syntax (tt stx) (define-syntax (t stx)
(define (maybe-mlist->list r) (define (maybe-mlist->list r)
(if (mpair? r) (if (mpair? r)
(mlist->list r) (mlist->list r)

2162
collects/tests/stepper/test-cases.rkt Normal file
View File

File diff suppressed because it is too large Load Diff

2146
collects/tests/stepper/through-tests.rkt
View File

File diff suppressed because it is too large Load Diff