From 46d8526af589558b7ed1a2537e96953245c08720 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 23 Sep 2014 19:05:47 +0100
Subject: Add basic implied URL parsing

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

(limited to 'test')

diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj
index 2fc8a19..bf39778 100644
--- a/test/microformats/parser_expectations.clj
+++ b/test/microformats/parser_expectations.clj
@@ -130,6 +130,9 @@
 (expect {:items [{:type ["h-card"] :properties {:name '("Example User")}}] :rels {}}
         (parse "<p class=\"h-card\">Example User</p>"))
 
+(expect {:items [{:type ["h-card"] :properties {:name '("Example User") :url '("http://example.com")}}] :rels {}}
+        (parse "<a class=\"h-card\" href=\"http://example.com\">Example User</a>"))
+
 (expect
  {:items [{:type ["h-adr"],
            :properties {:street-address '("665 3rd St."),
-- 
cgit 1.4.1