From 58552fe2b3d5953b8bcc6a97fb87dc44bda4f180 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Mon, 22 Sep 2014 21:02:04 +0100 Subject: Test + implement multi-child property parsing --- test/microformats/parser_expectations.clj | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'test') diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj index 93a21b0..2fc8a19 100644 --- a/test/microformats/parser_expectations.clj +++ b/test/microformats/parser_expectations.clj @@ -129,3 +129,22 @@ (expect {:items [{:type ["h-card"] :properties {:name '("Example User")}}] :rels {}} (parse "

Example User

")) + +(expect + {:items [{:type ["h-adr"], + :properties {:street-address '("665 3rd St."), + :extended-address '("Suite 207"), + :locality '("San Francisco"), + :region '("CA"), + :postal-code '("94107"), + :country-name '("U.S.A."), + :name '("665 3rd St. Suite 207 San Francisco, CA 94107 U.S.A.")}}] + :rels {}} + (parse "

+665 3rd St. +Suite 207 +San Francisco, +CA +94107 +U.S.A. +

")) -- cgit 1.4.1