summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorZubin Duggal <zubin.duggal@gmail.com>2021-07-13 18:12:36 +0530
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-08-04 16:38:02 -0400
commit477bc2dd6d506ece1c5c030f79f3934ff1922a5f (patch)
treea1a30c9cacf30c845857c864b15dde322fbeeac3 /testsuite
parentce7eeda5e30ce3cc037bbfc8dac26a91bbc5bc7d (diff)
downloadhaskell-477bc2dd6d506ece1c5c030f79f3934ff1922a5f.tar.gz
Fix GHCi completion (#20101)
Updates haskeline submodule
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/tests/ghci/scripts/T10576a.stdout4
-rw-r--r--testsuite/tests/ghci/scripts/T10576b.stdout4
-rw-r--r--testsuite/tests/ghci/scripts/T20101.script4
-rw-r--r--testsuite/tests/ghci/scripts/T20101.stdout9
-rwxr-xr-xtestsuite/tests/ghci/scripts/all.T1
5 files changed, 18 insertions, 4 deletions
diff --git a/testsuite/tests/ghci/scripts/T10576a.stdout b/testsuite/tests/ghci/scripts/T10576a.stdout
index 1069c6ac77..db5ac98b93 100644
--- a/testsuite/tests/ghci/scripts/T10576a.stdout
+++ b/testsuite/tests/ghci/scripts/T10576a.stdout
@@ -1,2 +1,2 @@
-1 1 ""
-"\9728\9728" \ No newline at end of file
+1 1 "x1"
+"\9728\9728"
diff --git a/testsuite/tests/ghci/scripts/T10576b.stdout b/testsuite/tests/ghci/scripts/T10576b.stdout
index 5a000606dc..23ea0cab6c 100644
--- a/testsuite/tests/ghci/scripts/T10576b.stdout
+++ b/testsuite/tests/ghci/scripts/T10576b.stdout
@@ -1,3 +1,3 @@
-2 2 ""
+2 2 "x1\9728\9728"
"x1"
-"x2" \ No newline at end of file
+"x2"
diff --git a/testsuite/tests/ghci/scripts/T20101.script b/testsuite/tests/ghci/scripts/T20101.script
new file mode 100644
index 0000000000..5328f96507
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T20101.script
@@ -0,0 +1,4 @@
+:complete repl "let x = y++b"
+:complete repl "let x = y+"
+:complete repl "let x = y ++"
+:complete repl "let x = b"
diff --git a/testsuite/tests/ghci/scripts/T20101.stdout b/testsuite/tests/ghci/scripts/T20101.stdout
new file mode 100644
index 0000000000..6fc1442275
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T20101.stdout
@@ -0,0 +1,9 @@
+1 1 "let x = y++"
+"break"
+2 2 "let x = y"
+"+"
+"++"
+1 1 "let x = y "
+"++"
+1 1 "let x = "
+"break"
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 3856dde227..b75ac178a9 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -343,3 +343,4 @@ test('T19650',
ghci_script,
['T19650.script'])
test('T20019', normal, ghci_script, ['T20019.script'])
+test('T20101', normal, ghci_script, ['T20101.script'])