From fb62e0937c29c4a91cfd0fbcb688f62023da6eee Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Tue, 8 May 2012 23:53:55 -0700
Subject: DocBook reader: More test improvements.

---
 tests/docbook-reader.docbook | 2 +-
 tests/docbook-reader.native  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/docbook-reader.docbook b/tests/docbook-reader.docbook
index 6aca2c087..1b195602d 100644
--- a/tests/docbook-reader.docbook
+++ b/tests/docbook-reader.docbook
@@ -848,7 +848,7 @@ These should not be escaped:  \$ \\ \&gt; \[ \{
       <ulink url="/url/with_underscore">with_underscore</ulink>
     </para>
     <para>
-      Email link (<email>nobody@nowhere.net</email>)
+      <email>nobody@nowhere.net</email>
     </para>
     <para>
       <ulink url="">Empty</ulink>.
diff --git a/tests/docbook-reader.native b/tests/docbook-reader.native
index d9ff88599..aa459eff7 100644
--- a/tests/docbook-reader.native
+++ b/tests/docbook-reader.native
@@ -227,7 +227,7 @@ Pandoc (Meta {docTitle = [Str "Pandoc",Space,Str "Test",Space,Str "Suite"], docA
 ,Para [Link [Str "URL",Space,Str "and",Space,Str "title"] ("/url/","")]
 ,Para [Link [Str "URL",Space,Str "and",Space,Str "title"] ("/url/","")]
 ,Para [Link [Str "with_underscore"] ("/url/with_underscore","")]
-,Para [Link [Str "Email",Space,Str "link"] ("mailto:nobody@nowhere.net","")]
+,Para [Link [Code ("",[],[]) "nobody@nowhere.net"] ("mailto:nobody@nowhere.net","")]
 ,Para [Link [Str "Empty"] ("",""),Str "."]
 ,Header 2 [Str "Reference"]
 ,Para [Str "Foo",Space,Link [Str "bar"] ("/url/",""),Str "."]
-- 
cgit v1.2.3