From 19707a54be5b2b8f0579bd77a59821fc5ccb440d Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 14 Jul 2016 14:30:44 -0400 Subject: [PATCH] syntax/parse: change test to use eval so no error logged when compiled --- pkgs/racket-test/tests/stxparse/info.rkt | 1 - pkgs/racket-test/tests/stxparse/test.rkt | 30 +++++++++++++++--------- 2 files changed, 19 insertions(+), 12 deletions(-) diff --git a/pkgs/racket-test/tests/stxparse/info.rkt b/pkgs/racket-test/tests/stxparse/info.rkt index c4b0542fda..2720fb6a21 100644 --- a/pkgs/racket-test/tests/stxparse/info.rkt +++ b/pkgs/racket-test/tests/stxparse/info.rkt @@ -1,4 +1,3 @@ #lang info (define test-responsibles '((all ryanc))) -(define compile-omit-files '("test.rkt")) diff --git a/pkgs/racket-test/tests/stxparse/test.rkt b/pkgs/racket-test/tests/stxparse/test.rkt index 3204c368f9..82996d97db 100644 --- a/pkgs/racket-test/tests/stxparse/test.rkt +++ b/pkgs/racket-test/tests/stxparse/test.rkt @@ -647,17 +647,25 @@ (tok (1 . (2 3)) (~datum (1 . (2 3))) 'ok) ;; nullable EH pattern raises error on match (rather than diverging) (7/2016) -(tcerr "nullable" - (syntax-parse #'(1 2 3) - [((~seq) ... n:nat ...) 'ok]) - #rx"nullable ellipsis-head pattern|ellipsis-head pattern matched an empty sequence") -(tcerr "nullable (dynamic)" - (let () - (define-splicing-syntax-class empty - (pattern (~seq))) - (syntax-parse #'(1 2 3) - [((~seq e:empty) ... n:nat ...) 'ok])) - #rx"ellipsis-head pattern matched an empty sequence") +(let () + ;; to make drdr happy: use eval because compiling this code currently logs an error + (define ns (make-base-namespace)) + (eval '(require syntax/parse) ns) + (tcerr "nullable" + (eval + '(syntax-parse #'(1 2 3) + [((~seq) ... n:nat ...) 'ok]) + ns) + #rx"nullable ellipsis-head pattern|ellipsis-head pattern matched an empty sequence") + (tcerr "nullable (dynamic)" + (eval + '(let () + (define-splicing-syntax-class empty + (pattern (~seq))) + (syntax-parse #'(1 2 3) + [((~seq e:empty) ... n:nat ...) 'ok])) + ns) + #rx"ellipsis-head pattern matched an empty sequence")) ;; nullable but bounded EH pattern ok (thanks Alex Knauth) (7/2016) (tok (1 2 3) ((~once (~seq)) ... n:nat ...) 'ok)