Constructed a test related to PR 13982.

2013-09-02 19:35:17 -04:00 · 2013-09-02 19:35:17 -04:00 · 10bce2b472
commit 10bce2b472
parent aa4b31ef3f
1 changed files with 12 additions and 0 deletions
--- a/pkgs/racket-pkgs/racket-test/tests/generic/syntax-errors.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/generic/syntax-errors.rkt
@ -166,3 +166,15 @@
      (define stream-first  first)
      (define stream-rest   rest)
      (define stream-empty? empty?)])))
+
+(check-good-syntax
+  (module gen racket
+    (require racket/generic)
+    (provide gen:foo (rename-out [*bar bar]))
+    (define-generics foo (bar foo))
+    (define *bar bar))
+  (module impl racket
+    (require racket/generic (submod ".." gen))
+    (struct thing []
+      #:methods gen:foo
+      [(define/generic gbar bar)])))