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