From 61a50fbf93d3979cdb6137275a59452d3e18864a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 23 May 2018 14:54:35 -0600
Subject: [PATCH] fix test case

The test committed previously wasn't the intended test.
---
 pkgs/racket-test-core/tests/racket/module.rktl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl
index 6d0ff8f051..70d7774469 100644
--- a/pkgs/racket-test-core/tests/racket/module.rktl
+++ b/pkgs/racket-test-core/tests/racket/module.rktl
@@ -2611,11 +2611,14 @@ case of module-leve bindings; it doesn't cover local bindings.
        (define-syntax (module-begin stx)
          (syntax-case stx ()
            [(_ a b)
-            #'(#%module-begin b)])))
+            (begin
+              (local-expand #'(#%module-begin a) 'module-begin null)
+              #'(#%module-begin b))])))
 
      (module use (submod ".." mb)
        (module* m racket/base)
-       (require (submod "." m ".."))))))
+       (require (submod "." m "..")))))
+ exn:fail?)
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;