Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
https://github.com/ghc/testsuite/commit/fb634335659a0589f460415c85a01ef7c73654be >--------------------------------------------------------------- commit fb634335659a0589f460415c85a01ef7c73654be Author: Simon Peyton Jones <[email protected]> Date: Wed May 15 16:02:42 2013 +0100 Test Trac #7906 >--------------------------------------------------------------- tests/rename/should_fail/T7906.hs | 5 +++++ tests/rename/should_fail/T7906.stderr | 4 ++++ tests/rename/should_fail/all.T | 1 + 3 files changed, 10 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T7906.hs b/tests/rename/should_fail/T7906.hs new file mode 100644 index 0000000..eeb0c89 --- /dev/null +++ b/tests/rename/should_fail/T7906.hs @@ -0,0 +1,5 @@ +module T7906 where + +class Foo f where + foo :: f +{-# INLINEABLE foo #-} diff --git a/tests/rename/should_fail/T7906.stderr b/tests/rename/should_fail/T7906.stderr new file mode 100644 index 0000000..30ccbed --- /dev/null +++ b/tests/rename/should_fail/T7906.stderr @@ -0,0 +1,4 @@ + +T7906.hs:5:16: + The INLINABLE pragma for âfooâ lacks an accompanying binding + (You cannot give a INLINABLE pragma for a record selector or class method) diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index c05662b..c1fbfac 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -107,3 +107,4 @@ test('T7164', normal, compile_fail, ['']) test('T7338', normal, compile_fail, ['']) test('T7338a', normal, compile_fail, ['']) test('T7454', normal, compile, ['']) +test('T7906', normal, compile_fail, [''])
_______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
