git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: Add tests for adjacent hyperlinks.
commit7a10507dc8c2329f552b518bf7e9a1f044a33968 authorJesse Rosenthal <jrosenthal@jhu.edu> dateTue 2 Feb 2016, 14:53 (11 years ago) parent2ee7752
3 files changed+5
compare with master
unifiedsplit
tests/Tests/Readers/Docx.hs+4 tests/docx/adjacent_links.docx tests/docx/adjacent_links.native+1
tests/Tests/Readers/Docx.hs+4
@@ -110,6 +110,10 @@ tests = [ testGroup "inlines"
110110 "hyperlinks"
111111 "docx/links.docx"
112112 "docx/links.native"
113+ , testCompare
114+ "normalizing adjacent hyperlinks"
115+ "docx/adjacent_links.docx"
116+ "docx/adjacent_links.native"
113117 , testCompare
114118 "inline image"
115119 "docx/image.docx"
tests/docx/adjacent_links.docxnew file

Binary file not shown.

tests/docx/adjacent_links.nativenew file+1
@@ -0,0 +1 @@
1+[Para [Str "Le",Space,Str "plus",Space,Str "int\233ressant",Space,Str "\233tant",Space,Str "sans",Space,Str "doute",Space,Str "le",Space,Str "Marsan,",Space,Str "propos\233",Space,Str "par",Space,Str "Claude",Space,Str "Marsan",Space,Str "en",Space,Str "1976",Space,Str "qui",Space,Str "avait",Space,Str "m\234me",Space,Str "fait",Space,Str "l'objet",Space,Str "d'une",Space,Str "norme,",Space,Str "mais",Space,Str "qui",Space,Str "n'a",Space,Str "pas",Space,Str "du",Space,Str "tout",Space,Str "\233t\233",Space,Str "adopt\233",Space,Str "\224",Space,Str "cause",Space,Str "des",Space,Str "habitudes",Space,Str "trop",Space,Str "ancr\233es",Space,Str "et",Space,Str "qui",Space,Str "a",Space,Str "fini",Space,Str "par",Space,Str "tomber",Space,Str "dans",Space,Str "l'oubli,",Space,Str "gros",Space,Str "clin",Space,Str "d'\339il",Space,Str "\224",Space,Str "cela",Space,Str "d'ailleurs",Space,Str "dans",Space,Str "le",Space,Str "film",Space,Link ("",[],[]) [Emph [Str "\"Le",Space,Str "nom",Space,Str "des",Space,Str "gens\""]] ("http://www.allocine.fr/film/fichefilm_gen_cfilm=172167.html",""),Str ".",Space,Str "D\8217ailleurs",Space,Str "l\8217\233tat,",Space,Str "bien",Space,Str "conscient",Space,Str "que",Space,Str "tous",Space,Str "les",Space,Str "fran\231ais",Space,Str "\233crivent",Space,Str "sur",Space,Str "des",Space,Str "claviers",Space,Str "compl\232tement",Space,Str "inadapt\233s,",Space,Link ("",[],[]) [Emph [Str "tente",Space,Str "encore",Space,Str "une",Space,Str "fois",Space,Str "de",Space,Str "faire",Space,Str "une",Space,Str "norme",Space,Str "en",Space,Str "ce",Space,Str "moment",Space,Str "m\234me"]] ("http://www.appy-geek.com/Web/ArticleWeb.aspx?regionid=2&articleid=56103389&source=messenger",""),Str "."]]