[Git][ghc/ghc][wip/splice-imports-2024] some test fies

Matthew Pickering (@mpickering) gitlab at gitlab.haskell.org
Tue Oct 15 09:30:23 UTC 2024



Matthew Pickering pushed to branch wip/splice-imports-2024 at Glasgow Haskell Compiler / GHC


Commits:
00bc8de1 by Matthew Pickering at 2024-10-15T10:26:41+01:00
some test fies

- - - - -


4 changed files:

- testsuite/tests/splice-imports/SI02.hs
- testsuite/tests/splice-imports/SI09.hs
- testsuite/tests/splice-imports/SI10.hs
- testsuite/tests/splice-imports/all.T


Changes:

=====================================
testsuite/tests/splice-imports/SI02.hs
=====================================
@@ -4,6 +4,7 @@
 module SI02 where
 
 import splice Prelude
+import Prelude
 
 main :: IO ()
 main = $(id [| pure () |])


=====================================
testsuite/tests/splice-imports/SI09.hs
=====================================
@@ -4,6 +4,9 @@ module SI09 where
 
 import splice InstanceA ()
 import splice ClassA
+import splice Prelude
+-- Why is implicit prelude import broken?
+import Prelude
 
 e :: IO ()
 -- Uses a non-splice imported instance


=====================================
testsuite/tests/splice-imports/SI10.hs
=====================================
@@ -4,6 +4,8 @@ module SI09 where
 
 import InstanceA ()
 import splice ClassA
+import ClassA
+import splice Prelude
 
 e :: X
 -- Uses a non-splice imported instance


=====================================
testsuite/tests/splice-imports/all.T
=====================================
@@ -14,7 +14,7 @@ test('SI07', [extra_files(["SI05A.hs"])], multimod_compile, ['SI07', '-fwrite-in
 test('SI08', [extra_files(["ClassA.hs", "InstanceA.hs"])], multimod_compile_fail, ['SI08', '-v0'])
 test('SI09', [extra_files(["ClassA.hs", "InstanceA.hs"])], multimod_compile, ['SI09', '-v0'])
 test('SI10', [extra_files(["ClassA.hs", "InstanceA.hs"])], multimod_compile, ['SI10', '-v0'])
-test('SI11', normal,  compile, [''])
-test('SI12', normal,  compile, [''])
+test('SI11', normal,  compile_fail, [''])
+test('SI12', normal,  compile_fail, [''])
 test('SI13', normal,  compile, [''])
 



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/00bc8de1e1eb200265825e449e9e614009100176

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/00bc8de1e1eb200265825e449e9e614009100176
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/20241015/3f2e5e6e/attachment-0001.html>


More information about the ghc-commits mailing list