[commit: testsuite] master: Test Trac #7151 (cc2852d)

Simon Peyton Jones simonpj at microsoft.com
Wed Aug 15 17:03:03 CEST 2012


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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/cc2852db8873d5299da86a230f214e9a59b8f403

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

commit cc2852db8873d5299da86a230f214e9a59b8f403
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Aug 15 16:02:46 2012 +0100

    Test Trac #7151

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

 tests/polykinds/T7151.hs                           |    3 +++
 .../T5472.stdout => polykinds/T7151.stderr}        |    0 
 tests/polykinds/all.T                              |    1 +
 3 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/tests/polykinds/T7151.hs b/tests/polykinds/T7151.hs
new file mode 100644
index 0000000..3179dae
--- /dev/null
+++ b/tests/polykinds/T7151.hs
@@ -0,0 +1,3 @@
+module T7151 where
+
+type Foo = [Int, String]
diff --git a/tests/deSugar/should_run/T5472.stdout b/tests/polykinds/T7151.stderr
similarity index 100%
copy from tests/deSugar/should_run/T5472.stdout
copy to tests/polykinds/T7151.stderr
diff --git a/tests/polykinds/all.T b/tests/polykinds/all.T
index 2d7f64f..bab6ae3 100644
--- a/tests/polykinds/all.T
+++ b/tests/polykinds/all.T
@@ -60,4 +60,5 @@ test('T7020', normal, compile,[''])
 test('T7022', normal, run_command, ['$MAKE -s --no-print-directory T7022'])
 test('T7073', normal, compile,[''])
 test('T7128', normal, compile,[''])
+test('T7151', normal, compile_fail,[''])
 





More information about the Cvs-ghc mailing list