From 0ad0d560637fdadfef9e818c2433edbe83cfffd8 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Wed, 25 Apr 2012 08:57:14 +0100 Subject: [PATCH] Test Trac #5867 --- testsuite/tests/rename/should_compile/T5867.hs | 5 +++++ testsuite/tests/rename/should_compile/T5867.stderr | 8 ++++++++ testsuite/tests/rename/should_compile/T5867a.hs | 4 ++++ testsuite/tests/rename/should_compile/all.T | 3 +++ 4 files changed, 20 insertions(+) create mode 100644 testsuite/tests/rename/should_compile/T5867.hs create mode 100644 testsuite/tests/rename/should_compile/T5867.stderr create mode 100644 testsuite/tests/rename/should_compile/T5867a.hs diff --git a/testsuite/tests/rename/should_compile/T5867.hs b/testsuite/tests/rename/should_compile/T5867.hs new file mode 100644 index 0000000000..6bf337fea9 --- /dev/null +++ b/testsuite/tests/rename/should_compile/T5867.hs @@ -0,0 +1,5 @@ +module T5867( f ) where +import T5867a + +boo = f +bar = f diff --git a/testsuite/tests/rename/should_compile/T5867.stderr b/testsuite/tests/rename/should_compile/T5867.stderr new file mode 100644 index 0000000000..35941c8417 --- /dev/null +++ b/testsuite/tests/rename/should_compile/T5867.stderr @@ -0,0 +1,8 @@ + +T5867.hs:4:7: Warning: + In the use of `f' (imported from T5867a): + Deprecated: "Don't use f!" + +T5867.hs:5:7: Warning: + In the use of `f' (imported from T5867a): + Deprecated: "Don't use f!" diff --git a/testsuite/tests/rename/should_compile/T5867a.hs b/testsuite/tests/rename/should_compile/T5867a.hs new file mode 100644 index 0000000000..e27937461c --- /dev/null +++ b/testsuite/tests/rename/should_compile/T5867a.hs @@ -0,0 +1,4 @@ +module T5867a where + +{-# DEPRECATED f "Don't use f!" #-} +f x = x diff --git a/testsuite/tests/rename/should_compile/all.T b/testsuite/tests/rename/should_compile/all.T index 3ed2a1fb0f..c4450305ad 100644 --- a/testsuite/tests/rename/should_compile/all.T +++ b/testsuite/tests/rename/should_compile/all.T @@ -186,3 +186,6 @@ test('T5592', extra_clean(['T5592a.hi', 'T5592a.o'])], multimod_compile_and_run, ['T5592', '-v0']) +test('T5867', + extra_clean(['T5867a.hi', 'T5867a.o']), + multimod_compile, ['T5867', '-v0']) -- GitLab