From ce6eab6f8e14dfbb39ec7f48868e1acd2132f155 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 23 Nov 2011 10:50:56 -0700
Subject: [PATCH] Showing that 10546 is fixed

---
 collects/tests/web-server/pr/10546.rkt | 55 ++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 collects/tests/web-server/pr/10546.rkt

diff --git a/collects/tests/web-server/pr/10546.rkt b/collects/tests/web-server/pr/10546.rkt
new file mode 100644
index 0000000000..fb4a77939c
--- /dev/null
+++ b/collects/tests/web-server/pr/10546.rkt
@@ -0,0 +1,55 @@
+#lang racket
+
+(define here (current-directory))
+(define txt (build-path here "some.txt"))
+
+(with-output-to-file txt
+  #:exists 'replace
+  (lambda ()
+    (display #<<END
+Here is some text that looks at @this
+END
+  )))
+
+(with-output-to-file "relative.rkt"
+  #:exists 'replace
+  (lambda ()
+    (display #<<END
+#lang racket
+(require web-server/templates)
+(provide ans)
+
+(define this 5)
+(define ans (include-template "some.txt"))
+END
+  )))
+
+(with-output-to-file "absolute.rkt"
+  #:exists 'replace
+  (lambda ()
+    (display #<<END
+#lang racket
+(require web-server/templates)
+(provide ans)
+
+(define this 5)
+(define ans (include-template (file "
+END
+  )
+
+ (display (path->string txt))
+
+(display #<<END
+")))
+END
+)))
+
+(require tests/eli-tester)
+(define rel (dynamic-require "relative.rkt" 'ans))
+(define abs (dynamic-require "absolute.rkt" 'ans))
+(test
+  rel => abs
+  rel => "Here is some text that looks at 5")
+
+
+