Add a simple test suite

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/pre-2.0-tests/Bug8.hs b/tests/pre-2.0-tests/Bug8.hs
new file mode 100644
index 00000000..0f279c29
--- /dev/null
+++ b/tests/pre-2.0-tests/Bug8.hs
@@ -0,0 +1,17 @@
+{- Note that declarations without type signatures are not included in the
+   documentation. They could be, but that's a missing feature. -}
+
+module Bug8 where
+
+infix -->
+infix --->
+
+data Typ = Type (String,[Typ])
+         | TFree (String, [String])
+
+x --> y = Type("fun",[s,t])
+(--->) = flip $ foldr (-->)
+
+s = undefined
+t = undefined
+main = undefined