test `current-metas`

pollen/test/pollen.rkt

@@ -1,8 +1,15 @@
 #lang racket/base
+(require racket/string pollen/core)
 
 ;; This will prevent tests from littering their directory
 ;; with pollen-cache files.
 (module setup racket/base
   (provide (all-defined-out))
   (define compile-cache-active #f)
-  (define render-cache-active #f))
+  (define render-cache-active #f))
+
+(provide test-current-metas)
+(define (test-current-metas)
+  (if (current-metas)
+      (string-join (sort (map symbol->string (hash-keys (current-metas))) string<?) " ")
+      "false"))

pollen/test/test-current-metas-none.rkt

@@ -0,0 +1,3 @@
+#lang racket/base
+(require pollen/core "pollen.rkt" rackunit)
+(check-equal? (test-current-metas) "false")

pollen/test/test-current-metas.rkt

@@ -0,0 +1,5 @@
+#lang pollen
+◊(require rackunit)
+◊(define-meta foo "bar")
+◊(check-equal? ◊(test-current-metas) "foo here-path zim")
+◊(define-meta zim "zam")