diff options
| author | nineonine <mail4chemik@gmail.com> | 2021-05-08 23:43:23 -0700 |
|---|---|---|
| committer | Alex D <mail4chemik@gmail.com> | 2022-01-05 18:07:18 +0000 |
| commit | e59bd46a6915c79e89d376aa22b0ae6def440e0a (patch) | |
| tree | 469183888be93936cd4edcdadbdd356ef4e00c0a | |
| parent | 1de94daaf3d9bd03b1a641cc28678de224662738 (diff) | |
| download | haskell-e59bd46a6915c79e89d376aa22b0ae6def440e0a.tar.gz | |
Add regression test (#13997)
| -rw-r--r-- | testsuite/tests/ghci/scripts/T13997.script | 8 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T13997.stdout | 8 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T13997.script b/testsuite/tests/ghci/scripts/T13997.script new file mode 100644 index 0000000000..6f4bc32ece --- /dev/null +++ b/testsuite/tests/ghci/scripts/T13997.script @@ -0,0 +1,8 @@ +:set -v1 +System.IO.writeFile "Bug.hs" "module Bug where import Bug2; bug = bug2" +System.IO.writeFile "Bug2.hs" "module Bug2 where bug2 = False" +:load Bug +System.IO.writeFile "New.hs" "module New where newFn = True" +System.IO.writeFile "Bug2.hs" "module Bug2 where import New; bug2 = newFn; bug22 = ()" +:reload +bug diff --git a/testsuite/tests/ghci/scripts/T13997.stdout b/testsuite/tests/ghci/scripts/T13997.stdout new file mode 100644 index 0000000000..4df5e29535 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T13997.stdout @@ -0,0 +1,8 @@ +[1 of 2] Compiling Bug2 ( Bug2.hs, Bug2.o ) +[2 of 2] Compiling Bug ( Bug.hs, Bug.o ) +Ok, two modules loaded. +[1 of 3] Compiling New ( New.hs, New.o ) +[2 of 3] Compiling Bug2 ( Bug2.hs, Bug2.o ) [Source file changed] +[3 of 3] Compiling Bug ( Bug.hs, Bug.o ) [Bug2 changed] +Ok, three modules loaded. +True diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 32e9cad7fc..5cdbd8a21c 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -273,6 +273,7 @@ test('GhciCurDir', normal, ghci_script, ['GhciCurDir.script']) test('T13591', expect_broken(13591), ghci_script, ['T13591.script']) test('T13699', normal, ghci_script, ['T13699.script']) test('T13988', normal, ghci_script, ['T13988.script']) +test('T13997', [extra_run_opts('-fobject-code')], ghci_script, ['T13997.script']) test('T13407', normal, ghci_script, ['T13407.script']) test('T13795', normal, ghci_script, ['T13795.script']) test('T13963', normal, ghci_script, ['T13963.script']) |