From 3fcc8dc945a78f30bf2f38c52ec3282de3795c44 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Jul 2012 09:49:39 -0600
Subject: [PATCH] more submodule repairs for `raco exe'

original commit: a605183a0aae9f07141e204ca40100b3035add8d
---
 collects/tests/racket/embed-me17.rkt             | 2 ++
 collects/tests/racket/embed-me17a.rkt            | 9 +++++++++
 collects/tests/racket/embed-me18a.rkt            | 9 +++++++++
 collects/tests/racket/embed-planet-1/dyn-sub.rkt | 8 ++++++++
 collects/tests/racket/embed-planet-1/has-sub.rkt | 5 ++++-
 collects/tests/racket/embed.rktl                 | 4 ++++
 6 files changed, 36 insertions(+), 1 deletion(-)
 create mode 100644 collects/tests/racket/embed-me17.rkt
 create mode 100644 collects/tests/racket/embed-me17a.rkt
 create mode 100644 collects/tests/racket/embed-me18a.rkt
 create mode 100644 collects/tests/racket/embed-planet-1/dyn-sub.rkt

diff --git a/collects/tests/racket/embed-me17.rkt b/collects/tests/racket/embed-me17.rkt
new file mode 100644
index 0000000000..ecac985e4a
--- /dev/null
+++ b/collects/tests/racket/embed-me17.rkt
@@ -0,0 +1,2 @@
+#lang racket/base
+(require (submod "embed-me17a.rkt" sub))
diff --git a/collects/tests/racket/embed-me17a.rkt b/collects/tests/racket/embed-me17a.rkt
new file mode 100644
index 0000000000..a6826d7597
--- /dev/null
+++ b/collects/tests/racket/embed-me17a.rkt
@@ -0,0 +1,9 @@
+#lang racket
+
+(define print-17
+  (lambda () (printf "This is 17.\n")))
+
+(module+ sub
+  (with-output-to-file "stdout"
+    print-17
+    #:exists 'append))
diff --git a/collects/tests/racket/embed-me18a.rkt b/collects/tests/racket/embed-me18a.rkt
new file mode 100644
index 0000000000..107e3fedd2
--- /dev/null
+++ b/collects/tests/racket/embed-me18a.rkt
@@ -0,0 +1,9 @@
+#lang racket/base
+(module sub racket/base
+  (provide print-18)
+  (define (print-18)
+    (printf "This is 18.\n")))
+
+
+
+  
\ No newline at end of file
diff --git a/collects/tests/racket/embed-planet-1/dyn-sub.rkt b/collects/tests/racket/embed-planet-1/dyn-sub.rkt
new file mode 100644
index 0000000000..081b7ffd4e
--- /dev/null
+++ b/collects/tests/racket/embed-planet-1/dyn-sub.rkt
@@ -0,0 +1,8 @@
+#lang racket/base
+(require (submod (planet racket-tester/p1/has-sub) the-sub))
+
+(with-output-to-file "stdout"
+  #:exists 'append
+  (lambda () (displayln (dynamic-require
+                         '(submod (planet racket-tester/p1/has-sub) the-sub)
+                         'out))))
diff --git a/collects/tests/racket/embed-planet-1/has-sub.rkt b/collects/tests/racket/embed-planet-1/has-sub.rkt
index e9a5a07112..e2f1bb7de1 100644
--- a/collects/tests/racket/embed-planet-1/has-sub.rkt
+++ b/collects/tests/racket/embed-planet-1/has-sub.rkt
@@ -1,3 +1,6 @@
 #lang racket/base
 
-(module+ the-sub)
+(module+ the-sub
+  (provide out)
+  (define out 'out))
+
diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl
index 1ccbc1bafd..9f95f62cf1 100644
--- a/collects/tests/racket/embed.rktl
+++ b/collects/tests/racket/embed.rktl
@@ -224,6 +224,8 @@
   (one-mz-test "embed-me13.rkt" "This is 14\n" #f)
   (one-mz-test "embed-me14.rkt" "This is 14\n" #f)
   (one-mz-test "embed-me15.rkt" "This is 15.\n" #f)
+  (one-mz-test "embed-me17.rkt" "This is 17.\n" #f)
+  (one-mz-test "embed-me18.rkt" "This is 18.\n" #f)
 
   ;; Try unicode expr and cmdline:
   (prepare dest "unicode")
@@ -501,6 +503,8 @@
     (go '(planet "private/sub.ss" ("racket-tester" "p2.plt" 2 0)) "two\nsub\n")
     (go '(planet "main.ss" ("racket-tester" "p2.plt" 2 0)) "two\n")
 
+    (go '(planet racket-tester/p1/dyn-sub) "out\n")
+
     (void))
   
   (system* planet "unlink" "racket-tester" "p1.plt" "1" "0")