Parse multiple types of properties on a single element

1 files changed, 4 insertions, 0 deletions

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