From c5f86b872a4a57fb8b983789eddf0b5baf3d7a44 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 20 Jul 2016 14:39:21 -0700 Subject: [PATCH] add a test for remote meta submodule access --- pollen/private/ts.rktd | 2 +- pollen/test/data/metas/metatest.html.pm | 3 +++ pollen/test/test-submodule.rkt | 5 +++++ 3 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 pollen/test/data/metas/metatest.html.pm create mode 100644 pollen/test/test-submodule.rkt diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f928839..810f39d 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1469050349 +1469050761 diff --git a/pollen/test/data/metas/metatest.html.pm b/pollen/test/data/metas/metatest.html.pm new file mode 100644 index 0000000..6df58e3 --- /dev/null +++ b/pollen/test/data/metas/metatest.html.pm @@ -0,0 +1,3 @@ +#lang pollen +◊(define-meta foo 42) +Zut Alors \ No newline at end of file diff --git a/pollen/test/test-submodule.rkt b/pollen/test/test-submodule.rkt new file mode 100644 index 0000000..a25217d --- /dev/null +++ b/pollen/test/test-submodule.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(require rackunit racket/runtime-path) +(define-runtime-path meta-test "data/metas/metatest.html.pm") +(define metas (dynamic-require `(submod ,meta-test metas) 'metas)) +(check-equal? (hash-ref metas 'foo) 42) \ No newline at end of file