From 078d97a2f8ca6da814ff0a6d405d5c375f860185 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 24 Sep 2014 18:25:02 +0100
Subject: Concatenate multiple properties with the same name

---
 test/microformats/parser_expectations.clj | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'test')

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"],
-- 
cgit 1.4.1