[Git][ghc/ghc][wip/T17669-test] Add test for #17669

[Alex D]

Alex D pushed to branch wip/T17669-test at Glasgow Haskell Compiler / GHC


Commits:
d143e803 by nineonine at 2020-05-30T22:10:42-07:00
Add test for #17669

- - - - -


3 changed files:

- + testsuite/tests/ghci/scripts/T17669.script
- + testsuite/tests/ghci/scripts/T17669.stdout
- testsuite/tests/ghci/scripts/all.T


Changes:

=====================================
testsuite/tests/ghci/scripts/T17669.script
=====================================
@@ -0,0 +1,7 @@
+:set -v1
+System.IO.writeFile "T17669.hs" "module T17669 where main :: IO ();main = putStrLn \"this\""
+:load T17669.hs
+:main
+System.IO.writeFile "T17669.hs" "module T17669 where main :: IO ();main = putStrLn \"that\""
+:reload
+:main


=====================================
testsuite/tests/ghci/scripts/T17669.stdout
=====================================
@@ -0,0 +1,6 @@
+[1 of 1] Compiling T17669           ( T17669.hs, T17669.o )
+Ok, one module loaded.
+this
+[1 of 1] Compiling T17669           ( T17669.hs, T17669.o )
+Ok, one module loaded.
+that


=====================================
testsuite/tests/ghci/scripts/all.T
=====================================
@@ -314,3 +314,4 @@ test('T17384', normal, ghci_script, ['T17384.script'])
 test('T17403', normal, ghci_script, ['T17403.script'])
 test('T17431', normal, ghci_script, ['T17431.script'])
 test('T17549', normal, ghci_script, ['T17549.script'])
+test('T17669', [extra_run_opts('-fexternal-interpreter -fobject-code'), expect_broken(17669)], ghci_script, ['T17669.script'])



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d143e80303d454babfa2184f5d804a7a61222233
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/20200531/ce41bd33/attachment.html>