From 45d615c1a0968b1060315760c332fb26dd3b5300 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 20 May 2015 11:08:13 -0700 Subject: [PATCH] add separate test run for untyped unsafe --- txexpr/tests.rkt | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/txexpr/tests.rkt b/txexpr/tests.rkt index 2ad76a9..906855e 100644 --- a/txexpr/tests.rkt +++ b/txexpr/tests.rkt @@ -2,6 +2,16 @@ (require (for-syntax racket/base racket/syntax)) (define-syntax (eval-as-untyped stx) + (syntax-case stx () + [(_ exprs ...) + (with-syntax ([sym (generate-temporary)]) + #'(begin + (module sym racket + (require rackunit txexpr) + exprs ...) + (require 'sym)))])) + +(define-syntax (eval-as-untyped-safe stx) (syntax-case stx () [(_ exprs ...) (with-syntax ([sym (generate-temporary)]) @@ -24,7 +34,8 @@ (define-syntax-rule (eval-as-typed-and-untyped exprs ...) (begin (eval-as-typed exprs ...) - (eval-as-untyped exprs ...))) + (eval-as-untyped exprs ...) + (eval-as-untyped-safe exprs ...))) (eval-as-typed-and-untyped