[commit: testsuite] master: Test Trac #7050 (f2bbb8d)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master http://hackage.haskell.org/trac/ghc/changeset/f2bbb8dc0f8fba1ecc598cf033088b021f1d7cb7 >--------------------------------------------------------------- commit f2bbb8dc0f8fba1ecc598cf033088b021f1d7cb7 Author: Simon Peyton Jones <[email protected]> Date: Thu Oct 4 17:49:47 2012 +0100 Test Trac #7050 >--------------------------------------------------------------- tests/typecheck/should_compile/T7050.hs | 3 +++ .../T3966.stderr => should_compile/T7050.stderr} | 5 +---- tests/typecheck/should_compile/all.T | 1 + 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/tests/typecheck/should_compile/T7050.hs b/tests/typecheck/should_compile/T7050.hs new file mode 100644 index 0000000..2e8c1eb --- /dev/null +++ b/tests/typecheck/should_compile/T7050.hs @@ -0,0 +1,3 @@ +module T7050 where + +data Foo a = Foo {-# UNPACK #-} !(Foo a) diff --git a/tests/typecheck/should_fail/T3966.stderr b/tests/typecheck/should_compile/T7050.stderr similarity index 68% copy from tests/typecheck/should_fail/T3966.stderr copy to tests/typecheck/should_compile/T7050.stderr index ccbe467..e7330ce 100644 --- a/tests/typecheck/should_fail/T3966.stderr +++ b/tests/typecheck/should_compile/T7050.stderr @@ -1,8 +1,5 @@ -T3966.hs:5:16: Warning: +T7050.hs:3:14: Warning: Ignoring unusable UNPACK pragma on the first argument of `Foo' In the definition of data constructor `Foo' In the data declaration for `Foo' - -<no location info>: -Failing due to -Werror. diff --git a/tests/typecheck/should_compile/all.T b/tests/typecheck/should_compile/all.T index d5bedae..8907143 100644 --- a/tests/typecheck/should_compile/all.T +++ b/tests/typecheck/should_compile/all.T @@ -386,3 +386,4 @@ test('T7171',normal,run_command, ['$MAKE -s --no-print-directory T7171']) test('T7173', normal, compile, ['']) test('T7196', normal, compile, ['']) +test('T7050', normal, compile, [''])