diff options
Diffstat (limited to 'testsuite/tests/rename/prog001')
| -rw-r--r-- | testsuite/tests/rename/prog001/Makefile | 3 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog001/Rn037Help.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog001/rn037.hs | 9 | ||||
| -rw-r--r-- | testsuite/tests/rename/prog001/test.T | 4 |
4 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/rename/prog001/Makefile b/testsuite/tests/rename/prog001/Makefile new file mode 100644 index 0000000000..9101fbd40a --- /dev/null +++ b/testsuite/tests/rename/prog001/Makefile @@ -0,0 +1,3 @@ +TOP=../../.. +include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/test.mk diff --git a/testsuite/tests/rename/prog001/Rn037Help.hs b/testsuite/tests/rename/prog001/Rn037Help.hs new file mode 100644 index 0000000000..64d1224f49 --- /dev/null +++ b/testsuite/tests/rename/prog001/Rn037Help.hs @@ -0,0 +1,3 @@ +module Rn037Help( T(C) ) where + +data T = C diff --git a/testsuite/tests/rename/prog001/rn037.hs b/testsuite/tests/rename/prog001/rn037.hs new file mode 100644 index 0000000000..544de2fdd9 --- /dev/null +++ b/testsuite/tests/rename/prog001/rn037.hs @@ -0,0 +1,9 @@ +-- !!! 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 + +-- we should still be able to refer to the type constructor, though +type Foo = T diff --git a/testsuite/tests/rename/prog001/test.T b/testsuite/tests/rename/prog001/test.T new file mode 100644 index 0000000000..ad1a5fef70 --- /dev/null +++ b/testsuite/tests/rename/prog001/test.T @@ -0,0 +1,4 @@ +test('rename.prog001', + extra_clean(['Rn037Help.hi', 'Rn037Help.o', 'rn037.hi', 'rn037.o']), + multimod_compile, + ['rn037', '-v0']) |