From 21830ef89ee29c4dfbaa4340601ef837ffb53159 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 22 Sep 2014 20:02:22 +0100
Subject: Output lists of values according to spec

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

(limited to 'test')

diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj
index 53f9ca5..498d8e1 100644
--- a/test/microformats/parser_expectations.clj
+++ b/test/microformats/parser_expectations.clj
@@ -16,91 +16,91 @@
 (expect "Foo <strong>bar</strong>"
         (apply str (#'microformats.parser/node-to-html '("Foo " {:tag :strong, :attrs nil, :content ("bar")}))))
 
-(expect {:name "Name"}
+(expect {:name '("Name")}
         (parse-p (snippet "<p class=\"p-name\"><span class=\"value\">Name</span></p>")))
 
-(expect {:name "Name Endname"}
+(expect {:name '("Name Endname")}
         (parse-p (snippet "<p class=\"p-name\"><span class=\"value\">Name</span> (this should not be included) <span class=\"value\">Endname</span></p>")))
 
-(expect {:name "Example User"}
+(expect {:name '("Example User")}
         (parse-p (snippet "<p class=\"p-name\">Example User</p>")))
 
-(expect {:nickname "exuser"}
+(expect {:nickname '("exuser")}
         (parse-p (snippet "<p class=\"p-nickname\">exuser</p>")))
 
-(expect {:name "Example User"}
+(expect {:name '("Example User")}
         (parse-p (snippet "<img class=\"p-name\" alt=\"Example User\">")))
 
-(expect {:name "Example User"}
+(expect {:name '("Example User")}
         (parse-p (snippet "<abbr class=\"p-name\" title=\"Example User\">@example</abbr>")))
 
-(expect {:name "@example"}
+(expect {:name '("@example")}
         (parse-p (snippet "<abbr class=\"p-name\">@example</abbr>")))
 
-(expect {:name "Example User"}
+(expect {:name '("Example User")}
         (parse-p (snippet "<data class=\"p-name\" value=\"Example User\"></data>")))
 
-(expect {:name "Example User"}
+(expect {:name '("Example User")}
         (parse-p (snippet "<data class=\"p-name\">Example User</data>")))
 
-(expect {:name ""}
+(expect {:name '("")}
         (parse-p (snippet "<br class=\"p-name\"/>")))
 
-(expect {:name ""}
+(expect {:name '("")}
         (parse-p (snippet "<hr class=\"p-name\"/>")))
 
-(expect {:url "http://example.com"}
+(expect {:url '("http://example.com")}
         (parse-u (snippet "<a class=\"u-url\" href=\"http://example.com\">Awesome example website</a>")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<img class=\"u-photo\" src=\"http://example.com/someimage.png\">")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<area class=\"u-photo\" href=\"http://example.com/someimage.png\"></area>")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<object class=\"u-photo\" data=\"http://example.com/someimage.png\"></object>")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<abbr class=\"u-photo\" title=\"http://example.com/someimage.png\"></abbr>")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<abbr class=\"u-photo\">http://example.com/someimage.png</abbr>")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<data class=\"u-photo\" value=\"http://example.com/someimage.png\"></data>")))
 
-(expect {:photo "http://example.com/someimage.png"}
+(expect {:photo '("http://example.com/someimage.png")}
         (parse-u (snippet "<data class=\"u-photo\">http://example.com/someimage.png</data>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<time class=\"dt-start\" datetime=\"2012-08-05T14:50\"></time>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<time class=\"dt-start\">2012-08-05T14:50</time>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<ins class=\"dt-start\" datetime=\"2012-08-05T14:50\"></ins>")))
 
-(expect {:end "2012-08-05T18:00"}
+(expect {:end '("2012-08-05T18:00")}
         (parse-dt (snippet "<del class=\"dt-end\" datetime=\"2012-08-05T18:00\"></del>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<abbr class=\"dt-start\" title=\"2012-08-05T14:50\"></abbr>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<abbr class=\"dt-start\">2012-08-05T14:50</abbr>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<data class=\"dt-start\" value=\"2012-08-05T14:50\"></data>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<data class=\"dt-start\">2012-08-05T14:50</data>")))
 
-(expect {:start "2012-08-05T14:50"}
+(expect {:start '("2012-08-05T14:50")}
         (parse-dt (snippet "<input class=\"dt-start\" value=\"2012-08-05T14:50\">")))
 
-(expect {:content {:html "Here is a load of <strong>embedded markup</strong>" :value "Here is a load of embedded markup"}}
+(expect {:content '({:html "Here is a load of <strong>embedded markup</strong>" :value "Here is a load of embedded markup"})}
         (parse-e (snippet "<div class=\"e-content\">Here is a load of <strong>embedded markup</strong></div>")))
 
 (expect {:author ["http://example.com/a"]}
@@ -113,8 +113,8 @@
 (expect {:items [] :rels {}}
         (parse ""))
 
-(expect {:items [{:properties {:name "Example User"} :type ["h-card"]}] :rels {}}
+(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 [{:type ["h-card"] :properties {:name "Example User"}}] :rels {}}
+(expect {:items [{:type ["h-card"] :properties {:name '("Example User")}}] :rels {}}
         (parse "<p class=\"h-card\">Example User</p>"))
-- 
cgit 1.4.1