Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/83038410d9a9e82baaf71063b96a17838c19d245

>---------------------------------------------------------------

commit 83038410d9a9e82baaf71063b96a17838c19d245
Author: Simon Peyton Jones <[email protected]>
Date:   Mon Mar 5 09:51:35 2012 +0000

    Test Trac #5881

>---------------------------------------------------------------

 tests/polykinds/Makefile  |    8 ++++++++
 tests/polykinds/T5881.hs  |    5 +++++
 tests/polykinds/T5881a.hs |    4 ++++
 tests/polykinds/all.T     |    2 ++
 4 files changed, 19 insertions(+), 0 deletions(-)

diff --git a/tests/polykinds/Makefile b/tests/polykinds/Makefile
index 9a36a1c..0ea3b68 100644
--- a/tests/polykinds/Makefile
+++ b/tests/polykinds/Makefile
@@ -1,3 +1,11 @@
 TOP=../..
 include $(TOP)/mk/boilerplate.mk
 include $(TOP)/mk/test.mk
+
+# T5881 needs a script because it goes wrong only when 
+# the modules are compiled separately, not with --make
+T5881:
+       $(RM) -f T5881.hi T5881.o T5881a.hi T5881a.o
+       '$(TEST_HC)' $(TEST_HC_OPTS) -c T5881a.hs
+       '$(TEST_HC)' $(TEST_HC_OPTS) -c T5881.hs
+
diff --git a/tests/polykinds/T5881.hs b/tests/polykinds/T5881.hs
new file mode 100644
index 0000000..002907e
--- /dev/null
+++ b/tests/polykinds/T5881.hs
@@ -0,0 +1,5 @@
+module T5881 where
+
+import T5881a (T')
+
+type DOne = T'
diff --git a/tests/polykinds/T5881a.hs b/tests/polykinds/T5881a.hs
new file mode 100644
index 0000000..9fb36d6
--- /dev/null
+++ b/tests/polykinds/T5881a.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE DataKinds #-}
+module T5881a where
+data K = T
+type T' = T
diff --git a/tests/polykinds/all.T b/tests/polykinds/all.T
index 55db073..a13ca64 100644
--- a/tests/polykinds/all.T
+++ b/tests/polykinds/all.T
@@ -27,3 +27,5 @@ test('T5771', normal, compile, [''])
 test('T5717', normal, compile, [''])
 test('T5862', normal, compile, [''])
 test('T5912', normal, compile, [''])
+test('T5881', normal, run_command, ['$MAKE -s --no-print-directory T5881'])
+



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to