Add a regression test for #1091

Previously, this input would crash Haddock.

Add a regression test for #1091
80b8a8a2 · Alec Theriault · 5459ca8a · 80b8a8a2 · 80b8a8a2 · 80b8a8a2
Commit 80b8a8a2 authored 5 years ago by Alec Theriault
--- 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

--- a/hypsrc-test/ref/src/Bug1091.html
+++ b/hypsrc-test/ref/src/Bug1091.html
+<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
--- a/hypsrc-test/src/Bug1091.hs
+++ b/hypsrc-test/src/Bug1091.hs
+{-# LANGUAGE CPP #-}
+module Bug1091 where
+
+#include "Include1For1091.h"
--- a/hypsrc-test/src/Include1For1091.h
+++ b/hypsrc-test/src/Include1For1091.h
+/* Include1For1091.h */
+
+foo :: Int
+foo = 42
+
+#include "Include2For1091.h"
--- a/hypsrc-test/src/Include2For1091.h
+++ b/hypsrc-test/src/Include2For1091.h
+/* Include2For1091.h */
+
+bar :: Int
+bar = 27