aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlec Theriault <alec.theriault@gmail.com>2019-10-07 15:13:52 -0400
committerAlec Theriault <alec.theriault@gmail.com>2019-10-07 17:56:13 -0400
commit80b8a8a2525d4e4c60b7c9439a23ac47d9612802 (patch)
tree0f435be1f08bd128fe8e9fec1ad6eabfc98a96a7
parent5459ca8a76825da59ff4c1c11d74812d1931da50 (diff)
Add a regression test for #1091
Previously, this input would crash Haddock.
-rw-r--r--haddock.cabal1
-rw-r--r--hypsrc-test/ref/src/Bug1091.html34
-rw-r--r--hypsrc-test/src/Bug1091.hs4
-rw-r--r--hypsrc-test/src/Include1For1091.h6
-rw-r--r--hypsrc-test/src/Include2For1091.h4
5 files changed, 49 insertions, 0 deletions
diff --git a/haddock.cabal b/haddock.cabal
index 0173fd84..fa87e07e 100644
--- a/haddock.cabal
+++ b/haddock.cabal
@@ -46,6 +46,7 @@ extra-source-files:
html-test/src/*.hs
html-test/ref/*.html
hypsrc-test/src/*.hs
+ hypsrc-test/src/*.h
hypsrc-test/ref/src/*.html
latex-test/src/**/*.hs
latex-test/ref/**/*.tex
diff --git a/hypsrc-test/ref/src/Bug1091.html b/hypsrc-test/ref/src/Bug1091.html
new file mode 100644
index 00000000..730b6e25
--- /dev/null
+++ b/hypsrc-test/ref/src/Bug1091.html
@@ -0,0 +1,34 @@
+<html xmlns="http://www.w3.org/1999/xhtml"
+><head
+ ><link rel="stylesheet" type="text/css" href="style.css"
+ /><script type="text/javascript" src="highlight.js"
+ ></script
+ ></head
+ ><body
+ ><pre
+ ><span class="hs-pragma"
+ >{-# LANGUAGE CPP #-}</span
+ ><span
+ >
+</span
+ ><span id="line-2"
+ ></span
+ ><span class="hs-keyword"
+ >module</span
+ ><span
+ > </span
+ ><span class="hs-identifier"
+ >Bug1091</span
+ ><span
+ > </span
+ ><span class="hs-keyword"
+ >where</span
+ ><span class="hs-cpp"
+ >
+
+#include &quot;Include1For1091.h&quot;
+</span
+ ></pre
+ ></body
+ ></html
+> \ No newline at end of file
diff --git a/hypsrc-test/src/Bug1091.hs b/hypsrc-test/src/Bug1091.hs
new file mode 100644
index 00000000..f0cea033
--- /dev/null
+++ b/hypsrc-test/src/Bug1091.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE CPP #-}
+module Bug1091 where
+
+#include "Include1For1091.h"
diff --git a/hypsrc-test/src/Include1For1091.h b/hypsrc-test/src/Include1For1091.h
new file mode 100644
index 00000000..32854b95
--- /dev/null
+++ b/hypsrc-test/src/Include1For1091.h
@@ -0,0 +1,6 @@
+/* Include1For1091.h */
+
+foo :: Int
+foo = 42
+
+#include "Include2For1091.h"
diff --git a/hypsrc-test/src/Include2For1091.h b/hypsrc-test/src/Include2For1091.h
new file mode 100644
index 00000000..c0848fa9
--- /dev/null
+++ b/hypsrc-test/src/Include2For1091.h
@@ -0,0 +1,4 @@
+/* Include2For1091.h */
+
+bar :: Int
+bar = 27