[Git][ghc/ghc][master] Add test for #17669

[Marge Bot]

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


Commits:
c330331a by nineonine at 2020-06-04T04:37:59-04: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/c330331adc0a686f24b94844d0eb3a0711b928d7

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c330331adc0a686f24b94844d0eb3a0711b928d7
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/20200604/1747c651/attachment-0001.html>