diff options
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/ghci/scripts/Makefile | 5 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T9367-raw.stdout | 6 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T9367.hs | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T9367.script | 4 | ||||
-rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 4 |
5 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/Makefile b/testsuite/tests/ghci/scripts/Makefile index 73f62036d7..873de43d09 100644 --- a/testsuite/tests/ghci/scripts/Makefile +++ b/testsuite/tests/ghci/scripts/Makefile @@ -39,3 +39,8 @@ ghci056_setup: T6106_prep: '$(TEST_HC)' $(TEST_HC_OPTS) -v0 --make T6106_preproc +.PHONY: T9367 +T9367: + '$(TEST_HC)' $(TEST_HC_OPTS) --interactive -v0 -ignore-dot-ghci < T9367.script > T9367-raw.run.stdout + cmp T9367-raw.run.stdout T9367-raw.stdout + diff --git a/testsuite/tests/ghci/scripts/T9367-raw.stdout b/testsuite/tests/ghci/scripts/T9367-raw.stdout new file mode 100644 index 0000000000..69da032d83 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T9367-raw.stdout @@ -0,0 +1,6 @@ +Breakpoint 0 activated at T9367.hs:1:5-9
+"Stopped at T9367.hs:1:5-9
+_result :: [Char] = _
+1 x = "abc"
+ ^^^^^
+2 main = print x
diff --git a/testsuite/tests/ghci/scripts/T9367.hs b/testsuite/tests/ghci/scripts/T9367.hs new file mode 100644 index 0000000000..0f24fa497a --- /dev/null +++ b/testsuite/tests/ghci/scripts/T9367.hs @@ -0,0 +1,2 @@ +x = "abc"
+main = print x
diff --git a/testsuite/tests/ghci/scripts/T9367.script b/testsuite/tests/ghci/scripts/T9367.script new file mode 100644 index 0000000000..afc89a8fe0 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T9367.script @@ -0,0 +1,4 @@ +:l T9367 +:b 1 +:main +:list diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index ede9807d00..624f4310c1 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -43,6 +43,10 @@ test('ghci024', when(fast(), skip), run_command, ['$MAKE -s --no-print-directory ghci024']) +test('T9367', + when(fast() or config.os != 'mingw32', skip), + run_command, + ['$MAKE -s --no-print-directory T9367']) test('ghci025', normal, ghci_script, ['ghci025.script']) test('ghci026', normal, ghci_script, ['ghci026.script']) |