diff --git a/pollen/test/pollen.rkt b/pollen/test/pollen.rkt
index 0181b8e..d4b942b 100644
--- a/pollen/test/pollen.rkt
+++ b/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))
\ No newline at end of file
+  (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"))
\ No newline at end of file
diff --git a/pollen/test/test-current-metas-none.rkt b/pollen/test/test-current-metas-none.rkt
new file mode 100644
index 0000000..d37e672
--- /dev/null
+++ b/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")
\ No newline at end of file
diff --git a/pollen/test/test-current-metas.rkt b/pollen/test/test-current-metas.rkt
new file mode 100644
index 0000000..4e1399a
--- /dev/null
+++ b/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")