From 83540d1ae6fdf0809f8ba1898d957b23d5fadd99 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 14 Jul 2017 13:27:01 -0400 Subject: [PATCH] fix literal-set test Merge to release branch. --- .../tests/stxparse/test-litset.rkt | 25 +++++++++---------- 1 file changed, 12 insertions(+), 13 deletions(-) diff --git a/pkgs/racket-test/tests/stxparse/test-litset.rkt b/pkgs/racket-test/tests/stxparse/test-litset.rkt index 2938476074..c89bedb335 100644 --- a/pkgs/racket-test/tests/stxparse/test-litset.rkt +++ b/pkgs/racket-test/tests/stxparse/test-litset.rkt @@ -53,19 +53,18 @@ ;; ---- -(tcerr "litset, #:at" - (let () - (define-literal-set lits #:phase 0 - (define lambda)) - (define-syntax-rule (getvar var stx) - (syntax-parse stx #:literal-sets ([lits #:at here]) - [(lambda var _) #'var])) - ;; check that introduced lambda is a literal: - (check-exn exn:fail? (lambda () (getvar x #'(a b c)))) - (check-equal? (syntax->datum (getvar x #'(lambda b c))) - '(b)) - ;; check that passed lambda is not a literal, but a pattern variable: - (check-equal? (syntax->datum (getvar lambda #'(lambda b c)))))) +(test-case "litset, #:at" + (let () + (define-literal-set lits #:phase 0 + (define lambda)) + (define-syntax-rule (getvar var stx) + (syntax-parse stx #:literal-sets ([lits #:at here]) + [(lambda var _) #'var])) + ;; check that introduced lambda is a literal: + (check-exn exn:fail? (lambda () (getvar x #'(a b c)))) + (check-equal? (syntax->datum (getvar x #'(lambda b c))) 'b) + ;; check that passed lambda is not a literal, but a pattern variable: + (check-equal? (syntax->datum (getvar lambda #'(lambda b c))) 'b))) ;; Litset extension