summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/prog002
diff options
context:
space:
mode:
authorDavid Terei <davidterei@gmail.com>2011-07-20 11:09:03 -0700
committerDavid Terei <davidterei@gmail.com>2011-07-20 11:26:35 -0700
commit16514f272fb42af6e9c7674a9bd6c9dce369231f (patch)
treee4f332b45fe65e2a7a2451be5674f887b42bf199 /testsuite/tests/rename/prog002
parentebd422aed41048476aa61dd4c520d43becd78682 (diff)
downloadhaskell-16514f272fb42af6e9c7674a9bd6c9dce369231f.tar.gz
Move tests from tests/ghc-regress/* to just tests/*
Diffstat (limited to 'testsuite/tests/rename/prog002')
-rw-r--r--testsuite/tests/rename/prog002/Makefile3
-rw-r--r--testsuite/tests/rename/prog002/Rn037Help.hs3
-rw-r--r--testsuite/tests/rename/prog002/rename.prog002.stderr2
-rw-r--r--testsuite/tests/rename/prog002/rename.prog002.stderr-hugs1
-rw-r--r--testsuite/tests/rename/prog002/rnfail037.hs8
-rw-r--r--testsuite/tests/rename/prog002/test.T4
6 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/rename/prog002/Makefile b/testsuite/tests/rename/prog002/Makefile
new file mode 100644
index 0000000000..9101fbd40a
--- /dev/null
+++ b/testsuite/tests/rename/prog002/Makefile
@@ -0,0 +1,3 @@
+TOP=../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/rename/prog002/Rn037Help.hs b/testsuite/tests/rename/prog002/Rn037Help.hs
new file mode 100644
index 0000000000..64d1224f49
--- /dev/null
+++ b/testsuite/tests/rename/prog002/Rn037Help.hs
@@ -0,0 +1,3 @@
+module Rn037Help( T(C) ) where
+
+data T = C
diff --git a/testsuite/tests/rename/prog002/rename.prog002.stderr b/testsuite/tests/rename/prog002/rename.prog002.stderr
new file mode 100644
index 0000000000..31b672b539
--- /dev/null
+++ b/testsuite/tests/rename/prog002/rename.prog002.stderr
@@ -0,0 +1,2 @@
+
+rnfail037.hs:8:7: Not in scope: data constructor `Rn037Help.C'
diff --git a/testsuite/tests/rename/prog002/rename.prog002.stderr-hugs b/testsuite/tests/rename/prog002/rename.prog002.stderr-hugs
new file mode 100644
index 0000000000..cc2a587de2
--- /dev/null
+++ b/testsuite/tests/rename/prog002/rename.prog002.stderr-hugs
@@ -0,0 +1 @@
+ERROR "rnfail037.hs":8 - Undefined data constructor "Rn037Help.C"
diff --git a/testsuite/tests/rename/prog002/rnfail037.hs b/testsuite/tests/rename/prog002/rnfail037.hs
new file mode 100644
index 0000000000..0a2935c5ad
--- /dev/null
+++ b/testsuite/tests/rename/prog002/rnfail037.hs
@@ -0,0 +1,8 @@
+-- !!! Checking that you can hide a constructor
+module ShouldCompile where
+
+import Rn037Help hiding( C )
+ -- C is the constructor, but we should
+ -- still be able to hide it
+
+f x = Rn037Help.C
diff --git a/testsuite/tests/rename/prog002/test.T b/testsuite/tests/rename/prog002/test.T
new file mode 100644
index 0000000000..0aa4c39057
--- /dev/null
+++ b/testsuite/tests/rename/prog002/test.T
@@ -0,0 +1,4 @@
+test('rename.prog002',
+ extra_clean(['Rn037Help.hi', 'Rn037Help.o']),
+ multimod_compile_fail,
+ ['rnfail037', '-v0'])