From 2bf7f18a47beb329f6dcd3776a819d6541cff166 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 23 Sep 2014 19:10:40 +0100
Subject: Add basic img property inferring

---
 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 bf39778..c903165 100644
--- a/test/microformats/parser_expectations.clj
+++ b/test/microformats/parser_expectations.clj
@@ -133,6 +133,9 @@
 (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-card"] :properties {:name '("Example User")
+                                                :photo '("http://example.com/me.png")}}] :rels {}}
+        (parse "<img class=\"h-card\" alt=\"Example User\" src=\"http://example.com/me.png\"></img>"))
 (expect
  {:items [{:type ["h-adr"],
            :properties {:street-address '("665 3rd St."),
-- 
cgit 1.4.1