Move tests from tests/ghc-regress/* to just tests/*

4 files changed, 20 insertions, 0 deletions

diff --git a/testsuite/tests/parser/prog001/Makefile b/testsuite/tests/parser/prog001/Makefile
new file mode 100644
index 0000000000..9101fbd40a
--- /dev/null
+++ b/testsuite/tests/parser/prog001/Makefile
@@ -0,0 +1,3 @@
+TOP=../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/parser/prog001/Read006.hs b/testsuite/tests/parser/prog001/Read006.hs
new file mode 100644
index 0000000000..87546cb550
--- /dev/null
+++ b/testsuite/tests/parser/prog001/Read006.hs
@@ -0,0 +1,5 @@
+-- !!! Testing handling of troublesome constructor name (:::)
+module Read006 (MyList(Empty, (:::))) where
+
+data MyList a =   Empty
+                | (MyList a) ::: (MyList a)
diff --git a/testsuite/tests/parser/prog001/Read007.hs b/testsuite/tests/parser/prog001/Read007.hs
new file mode 100644
index 0000000000..a0c2ec0f44
--- /dev/null
+++ b/testsuite/tests/parser/prog001/Read007.hs
@@ -0,0 +1,8 @@
+module ShouldCompile where
+
+import Read006
+
+myLength :: MyList a -> Int
+myLength Empty = 0
+myLength (x ::: xs) = 1 + myLength xs
+
diff --git a/testsuite/tests/parser/prog001/test.T b/testsuite/tests/parser/prog001/test.T
new file mode 100644
index 0000000000..b667211196
--- /dev/null
+++ b/testsuite/tests/parser/prog001/test.T
@@ -0,0 +1,4 @@
+test('parser.prog001',
+     extra_clean(['Read006.hi', 'Read006.o', 'Read007.hi', 'Read007.o']),
+     multimod_compile,
+     ['Read007.hs', '-v0'])