Improvements to RST reader:

+ Allow field lists to be indented.
+ Parse the contents of field lists instead of treating them as
  raw strings.
+ Represent field lists as definition lists rather than blockquotes.
+ Fixed bug in which metadata would be overridden if the document
  contained more than one field list.
+ Parse fields associated with ..image: blocks, and use the 'alt'
  field, if present, for image alt text and title.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1050 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 26 insertions, 3 deletions

diff --git a/tests/rst-reader.native b/tests/rst-reader.native
index bbd139776..8536a2874 100644
--- a/tests/rst-reader.native
+++ b/tests/rst-reader.native
@@ -1,7 +1,8 @@
 Pandoc (Meta [Str "Pandoc",Space,Str "Test",Space,Str "Suite",Str ":",Space,Str "Subtitle"] ["John MacFarlane","Anonymous"] "July 17, 2006")
-[ BlockQuote
-  [ Para [Strong [Str "Revision"],Str ":",Space,Str "3"] ]
-
+[ DefinitionList
+  [  ([Str "Revision"],
+     [ Plain [Str "3"] ]
+    ) ]
 , Header 1 [Str "Level",Space,Str "one",Space,Str "header"]
 , Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "set",Space,Str "of",Space,Str "tests",Space,Str "for",Space,Str "pandoc.",Space,Str "Most",Space,Str "of",Space,Str "them",Space,Str "are",Space,Str "adapted",Space,Str "from",Space,Str "John",Space,Str "Gruber's",Space,Str "markdown",Space,Str "test",Space,Str "suite."]
 , Header 2 [Str "Level",Space,Str "two",Space,Str "header"]
@@ -156,6 +157,27 @@ Pandoc (Meta [Str "Pandoc",Space,Str "Test",Space,Str "Suite",Str ":",Space,Str
     ([Str "term",Space,Str "with",Space,Emph [Str "emphasis"]],
      [ Para [Str "Definition",Space,Str "3."] ]
     ) ]
+, Header 1 [Str "Field",Space,Str "Lists"]
+, DefinitionList
+  [  ([Str "address"],
+     [ Plain [Str "61",Space,Str "Main",Space,Str "St."] ]
+    ),
+    ([Str "city"],
+     [ Plain [Emph [Str "Nowhere"],Str ",",Space,Str "MA,",Space,Str "USA"] ]
+    ),
+    ([Str "phone"],
+     [ Plain [Str "123",Str "-",Str "4567"] ]
+    ) ]
+, DefinitionList
+  [  ([Str "address"],
+     [ Plain [Str "61",Space,Str "Main",Space,Str "St."] ]
+    ),
+    ([Str "city"],
+     [ Plain [Emph [Str "Nowhere"],Str ",",Space,Str "MA,",Space,Str "USA"] ]
+    ),
+    ([Str "phone"],
+     [ Plain [Str "123",Str "-",Str "4567"] ]
+    ) ]
 , Header 1 [Str "HTML",Space,Str "Blocks"]
 , Para [Str "Simple",Space,Str "block",Space,Str "on",Space,Str "one",Space,Str "line",Str ":"]
 , RawHtml "<div>foo</div>\n"
@@ -207,5 +229,6 @@ Pandoc (Meta [Str "Pandoc",Space,Str "Test",Space,Str "Suite",Str ":",Space,Str
 , Header 1 [Str "Images"]
 , Para [Str "From",Space,Str "\"Voyage",Space,Str "dans",Space,Str "la",Space,Str "Lune\"",Space,Str "by",Space,Str "Georges",Space,Str "Melies",Space,Str "(1902)",Str ":"]
 , Plain [Image [Str "image"] ("lalune.jpg","")]
+, Plain [Image [Str "Voyage dans la Lune"] ("lalune.jpg","Voyage dans la Lune")]
 , Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "movie",Space,Image [Str "movie"] ("movie.jpg",""),Space,Str "icon."] ]