[Git][ghc/ghc][master] Add testcase for error GHC-00711 to testsuite

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
80a0b099 by David Binder at 2023-06-13T09:47:49-04:00
Add testcase for error GHC-00711 to testsuite

- - - - -


4 changed files:

- compiler/GHC/Tc/Errors/Types.hs
- testsuite/tests/rename/should_fail/all.T
- + testsuite/tests/rename/should_fail/rnfail058.hs
- + testsuite/tests/rename/should_fail/rnfail058.stderr


Changes:

=====================================
compiler/GHC/Tc/Errors/Types.hs
=====================================
@@ -523,10 +523,13 @@ data TcRnMessage where
       a warning is declared twice.
 
       Examples(s):
-        None.
+        {-# DEPRECATED foo "Don't use me" #-}
+        {-# DEPRECATED foo "Don't use me" #-}
+        foo :: Int
+        foo = 2
 
      Test cases:
-        None.
+        rename/should_fail/rnfail058
   -}
   TcRnDuplicateWarningDecls :: !(LocatedN RdrName) -> !RdrName -> TcRnMessage
 


=====================================
testsuite/tests/rename/should_fail/all.T
=====================================
@@ -58,6 +58,7 @@ test('rnfail054', normal, compile_fail, [''])
 test('rnfail055', [extra_files(['RnFail055.hs', 'RnFail055.hs-boot', 'RnFail055_aux.hs'])], multimod_compile_fail, ['RnFail055', '-v0'])
 test('rnfail056', normal, compile_fail, [''])
 test('rnfail057', normal, compile_fail, [''])
+test('rnfail058', normal, compile_fail, [''])
 
 test('rn_dup', normal, compile_fail, [''])
 test('T495', normal, compile_fail, [''])


=====================================
testsuite/tests/rename/should_fail/rnfail058.hs
=====================================
@@ -0,0 +1,6 @@
+module MultipleWarnings where
+
+{-# DEPRECATED foo "Don't use me" #-}
+{-# DEPRECATED foo "Don't use me" #-}
+foo :: Int
+foo = 2
\ No newline at end of file


=====================================
testsuite/tests/rename/should_fail/rnfail058.stderr
=====================================
@@ -0,0 +1,4 @@
+
+rnfail058.hs:4:16: error: [GHC-00711]
+    Multiple warning declarations for ‘foo’
+    also at  rnfail058.hs:3:16-18



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/80a0b0992bdf9d8c056341795c36aff9499515bf

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/80a0b0992bdf9d8c056341795c36aff9499515bf
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230613/b52350f6/attachment-0001.html>