From 6a4192fb13b5ef99cffc1e6ed7333e9bb4b77d10 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 19 Feb 2018 14:12:25 -0800
Subject: [PATCH] test `current-metas`

---
 pollen/test/pollen.rkt                  | 9 ++++++++-
 pollen/test/test-current-metas-none.rkt | 3 +++
 pollen/test/test-current-metas.rkt      | 5 +++++
 3 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 pollen/test/test-current-metas-none.rkt
 create mode 100644 pollen/test/test-current-metas.rkt

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