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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6a120e701e3dc4f2c96252fabb0ec73e08eda074

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

commit 6a120e701e3dc4f2c96252fabb0ec73e08eda074
Author: Simon Peyton Jones <[email protected]>
Date:   Wed Apr 25 08:57:14 2012 +0100

    Test Trac #5867

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

 tests/rename/should_compile/T5867.hs     |    5 +++++
 tests/rename/should_compile/T5867.stderr |    8 ++++++++
 tests/rename/should_compile/T5867a.hs    |    4 ++++
 tests/rename/should_compile/all.T        |    3 +++
 4 files changed, 20 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_compile/T5867.hs 
b/tests/rename/should_compile/T5867.hs
new file mode 100644
index 0000000..6bf337f
--- /dev/null
+++ b/tests/rename/should_compile/T5867.hs
@@ -0,0 +1,5 @@
+module T5867( f ) where
+import T5867a
+
+boo = f
+bar = f
diff --git a/tests/rename/should_compile/T5867.stderr 
b/tests/rename/should_compile/T5867.stderr
new file mode 100644
index 0000000..35941c8
--- /dev/null
+++ b/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/tests/rename/should_compile/T5867a.hs 
b/tests/rename/should_compile/T5867a.hs
new file mode 100644
index 0000000..e279374
--- /dev/null
+++ b/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/tests/rename/should_compile/all.T 
b/tests/rename/should_compile/all.T
index 3ed2a1f..c445030 100644
--- a/tests/rename/should_compile/all.T
+++ b/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'])



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

Reply via email to