summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/parser/prog001
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/ghc-regress/parser/prog001')
-rw-r--r--testsuite/tests/ghc-regress/parser/prog001/Makefile3
-rw-r--r--testsuite/tests/ghc-regress/parser/prog001/Read006.hs5
-rw-r--r--testsuite/tests/ghc-regress/parser/prog001/Read007.hs8
-rw-r--r--testsuite/tests/ghc-regress/parser/prog001/test.T4
4 files changed, 0 insertions, 20 deletions
diff --git a/testsuite/tests/ghc-regress/parser/prog001/Makefile b/testsuite/tests/ghc-regress/parser/prog001/Makefile
deleted file mode 100644
index 1c39d1c1fe..0000000000
--- a/testsuite/tests/ghc-regress/parser/prog001/Makefile
+++ /dev/null
@@ -1,3 +0,0 @@
-TOP=../../../..
-include $(TOP)/mk/boilerplate.mk
-include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/ghc-regress/parser/prog001/Read006.hs b/testsuite/tests/ghc-regress/parser/prog001/Read006.hs
deleted file mode 100644
index 87546cb550..0000000000
--- a/testsuite/tests/ghc-regress/parser/prog001/Read006.hs
+++ /dev/null
@@ -1,5 +0,0 @@
--- !!! Testing handling of troublesome constructor name (:::)
-module Read006 (MyList(Empty, (:::))) where
-
-data MyList a = Empty
- | (MyList a) ::: (MyList a)
diff --git a/testsuite/tests/ghc-regress/parser/prog001/Read007.hs b/testsuite/tests/ghc-regress/parser/prog001/Read007.hs
deleted file mode 100644
index a0c2ec0f44..0000000000
--- a/testsuite/tests/ghc-regress/parser/prog001/Read007.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-module ShouldCompile where
-
-import Read006
-
-myLength :: MyList a -> Int
-myLength Empty = 0
-myLength (x ::: xs) = 1 + myLength xs
-
diff --git a/testsuite/tests/ghc-regress/parser/prog001/test.T b/testsuite/tests/ghc-regress/parser/prog001/test.T
deleted file mode 100644
index b667211196..0000000000
--- a/testsuite/tests/ghc-regress/parser/prog001/test.T
+++ /dev/null
@@ -1,4 +0,0 @@
-test('parser.prog001',
- extra_clean(['Read006.hi', 'Read006.o', 'Read007.hi', 'Read007.o']),
- multimod_compile,
- ['Read007.hs', '-v0'])