mbutterick
/
sugar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

consolidate untyped tests

Browse Source
pull/3/head
Matthew Butterick 10 years ago
parent fa148d6055
commit 2737fff0b4
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File

16
sugar/test/main.rkt
Unescape Escape View File

@ -4,22 +4,17 @@
(define-syntax (eval-as-untyped stx) (define-syntax (eval-as-untyped stx)
(syntax-case stx () (syntax-case stx ()
[(_ exprs ...) [(_ exprs ...)
(with-syntax ([sym (generate-temporary)]) (with-syntax ([sym (generate-temporary)]
[sym2 (generate-temporary)])
#'(begin #'(begin
(module sym racket (module sym racket
(require rackunit "../main.rkt" net/url) (require rackunit "../main.rkt" net/url)
exprs ...) exprs ...)
(require 'sym)))])) (require 'sym)
(module sym2 racket
(define-syntax (eval-as-untyped-safe stx)
(syntax-case stx ()
[(_ exprs ...)
(with-syntax ([sym (generate-temporary)])
#'(begin
(module sym racket
(require rackunit (submod "../main.rkt" safe) net/url) (require rackunit (submod "../main.rkt" safe) net/url)
exprs ...) exprs ...)
(require 'sym)))])) (require 'sym2)))]))
(define-syntax (eval-as-typed stx) (define-syntax (eval-as-typed stx)
(syntax-case stx () (syntax-case stx ()
@ -34,7 +29,6 @@
(define-syntax-rule (eval-as-typed-and-untyped exprs ...) (define-syntax-rule (eval-as-typed-and-untyped exprs ...)
(begin (begin
(eval-as-untyped exprs ...) (eval-as-untyped exprs ...)
(eval-as-untyped-safe exprs ...)
(eval-as-typed exprs ...))) (eval-as-typed exprs ...)))

Write Preview
Loading…
Cancel
Save