From fe1d147187db852d2eeacd3e40d3e81d197180a4 Mon Sep 17 00:00:00 2001 From: Bryan O'Sullivan Date: Mon, 8 Dec 2014 23:12:06 -0800 Subject: DocBook reader: add support for classname --- tests/docbook-reader.docbook | 3 +++ tests/docbook-reader.native | 1 + 2 files changed, 4 insertions(+) (limited to 'tests') diff --git a/tests/docbook-reader.docbook b/tests/docbook-reader.docbook index 8fe2a6ddb..68689645a 100644 --- a/tests/docbook-reader.docbook +++ b/tests/docbook-reader.docbook @@ -709,6 +709,9 @@ These should not be escaped: \$ \\ \> \[ \{ \, \$, <html>. + + More code: Class + This is strikeout. diff --git a/tests/docbook-reader.native b/tests/docbook-reader.native index 7edc15570..2a89c2779 100644 --- a/tests/docbook-reader.native +++ b/tests/docbook-reader.native @@ -185,6 +185,7 @@ Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Spa ,Para [Strong [Emph [Str "This",Space,Str "is",Space,Str "strong",Space,Str "and",Space,Str "em."]]] ,Para [Str "So",Space,Str "is",Space,Strong [Emph [Str "this"]],Space,Str "word."] ,Para [Str "This",Space,Str "is",Space,Str "code:",Space,Code ("",[],[]) ">",Str ",",Space,Code ("",[],[]) "$",Str ",",Space,Code ("",[],[]) "\\",Str ",",Space,Code ("",[],[]) "\\$",Str ",",Space,Code ("",[],[]) "",Str "."] +,Para [Str "More",Space,Str "code:",Space,Str "Class"] ,Para [Strikeout [Str "This",Space,Str "is",Space,Emph [Str "strikeout"],Str "."]] ,Para [Str "Superscripts:",Space,Str "a",Superscript [Str "bc"],Str "d",Space,Str "a",Superscript [Emph [Str "hello"]],Space,Str "a",Superscript [Str "hello\160there"],Str "."] ,Para [Str "Subscripts:",Space,Str "H",Subscript [Str "2"],Str "O,",Space,Str "H",Subscript [Str "23"],Str "O,",Space,Str "H",Subscript [Str "many\160of\160them"],Str "O."] -- cgit v1.2.3