diff options
Diffstat (limited to 'testsuite/tests/rename/prog002')
| -rw-r--r-- | testsuite/tests/rename/prog002/Makefile | 3 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog002/Rn037Help.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog002/rename.prog002.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog002/rename.prog002.stderr-hugs | 1 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog002/rnfail037.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog002/test.T | 4 |
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']) |