From 8bfc60aaf991201d3971a2e7d248f729bf2949ae Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Thu, 11 Sep 2014 17:46:50 +0100
Subject: Use class name for property keywords

---
 test/microformats/parser_test.clj | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'test')

diff --git a/test/microformats/parser_test.clj b/test/microformats/parser_test.clj
index 9720ad2..f37906e 100644
--- a/test/microformats/parser_test.clj
+++ b/test/microformats/parser_test.clj
@@ -9,5 +9,10 @@
 
 (deftest parse-p-inner-text
   (testing "Inner text of a p- property should be parsed")
-  (is (= {:items [{:properties {:name "Example User"}}] :rels {}}
-         (parse "<div class=\"h-card\"><p class=\"p-name\">Example User</p></div>"))))
+  (are [ex in] (= ex (parse in))
+       {:items [{:properties {:name "Example User"}}] :rels {}}
+       "<div class=\"h-card\"><p class=\"p-name\">Example User</p></div>"
+
+       {:items [{:properties {:nickname "exuser"}}] :rels {}}
+       "<div class=\"h-card\"><p class=\"p-nickname\">exuser</p></div>"
+       ))
-- 
cgit 1.4.1