From 2b01c9e53ded6e44d75b45fe955f00b79f3ef75e Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 24 Sep 2014 13:30:11 +0100
Subject: Parse child implied URLs

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

(limited to 'test')

diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj
index 639c417..5c9984d 100644
--- a/test/microformats/parser_expectations.clj
+++ b/test/microformats/parser_expectations.clj
@@ -169,6 +169,10 @@
                                                 :photo '("http://example.com/me.png")}}] :rels {}}
         (parse "<div class=\"h-card\"><div><img alt=\"Example User\" src=\"http://example.com/me.png\"></div></div>"))
 
+(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-adr"],
            :properties {:street-address '("665 3rd St."),
-- 
cgit 1.4.1