Concatenate multiple properties with the same name

1 files changed, 9 insertions, 0 deletions

diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj
index 5c9984d..893872c 100644
--- a/test/microformats/parser_expectations.clj
+++ b/test/microformats/parser_expectations.clj
@@ -172,6 +172,15 @@
 (expect {:items [{:type ["h-card"] :properties {:name '("Example User") :url '("http://example.com")}}] :rels {}}
         (parse "<div class=\"h-card\"><a href=\"http://example.com\">Example User</a></div>"))
 
+(expect {:items [{:type ["h-card"] :properties {:name '("Example")
+                                                :url '("http://example.com"
+                                                       "http://myblog.com")}}]
+         :rels {}}
+        (parse "<div class=\"h-card\">
+<p class=\"u-name\">Example</p>
+<a class=\"u-url\" href=\"http://example.com\">My Website</a>
+<a class=\"u-url\" href=\"http://myblog.com\">My Blog</a>
+</div>"))
 
 (expect
  {:items [{:type ["h-adr"],