From 40d71e4f6718d7ff0172ca43ecdda79813e8d16e Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 15 Aug 2013 17:18:12 -0700
Subject: [PATCH] test files

---
 tests/test-foo.p      |  7 -------
 tests/test-requirer.p | 13 +++++++++++++
 2 files changed, 13 insertions(+), 7 deletions(-)
 delete mode 100644 tests/test-foo.p
 create mode 100644 tests/test-requirer.p

diff --git a/tests/test-foo.p b/tests/test-foo.p
deleted file mode 100644
index 9c93f1a..0000000
--- a/tests/test-foo.p
+++ /dev/null
@@ -1,7 +0,0 @@
-#lang racket/base
-
-;(require "test.pmap")
-(require "test-pmap.p")
-;(require "pollen-lang-test.p")
-
-main
\ No newline at end of file
diff --git a/tests/test-requirer.p b/tests/test-requirer.p
new file mode 100644
index 0000000..09b85a1
--- /dev/null
+++ b/tests/test-requirer.p
@@ -0,0 +1,13 @@
+#lang racket/base
+
+(require (planet mb/pollen/map))
+
+;
+;(require "test-pmap.p")
+;(require "pollen-lang-test.p")
+
+(let ([left (make-page-sequence (main->tree (dynamic-require "test.pmap" 'main)))]
+      [right (make-page-sequence (main->tree (dynamic-require "test-pmap.p" 'main)))])
+  (print left)
+  (print right)
+  (andmap (λ(l r) (equal? l r)) left right))
\ No newline at end of file