test files

tests/test-foo.p

@@ -1,7 +0,0 @@
-#lang racket/base
-
-;(require "test.pmap")
-(require "test-pmap.p")
-;(require "pollen-lang-test.p")
-
-main

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))