Cleanup tests in directory ghci.debugger. Fixes #21009

* Remove wrong comment about panic in `break003.script`.
* Improve test `break008`.
* Add test `break028` to `all.T`
* Fix wrong comments in `print019.script`, `print026.script` and `result001.script`.
* Remove wrong comments from `print024.script` and `print031.script`.
* Replace old module name with current name in `print035.script`.

10 files changed, 11 insertions, 12 deletions

diff --git a/testsuite/tests/ghci.debugger/scripts/all.T b/testsuite/tests/ghci.debugger/scripts/all.T
index 4ed1fc046e..441ebf5ff3 100644
--- a/testsuite/tests/ghci.debugger/scripts/all.T
+++ b/testsuite/tests/ghci.debugger/scripts/all.T
@@ -80,6 +80,7 @@ test('break024', combined_output, ghci_script, ['break024.script'])
 test('break025', normal, ghci_script, ['break025.script'])
 test('break026', normal, ghci_script, ['break026.script'])
 test('break027', extra_files(['../QSort.hs']), ghci_script, ['break027.script'])
+test('break028', normal, ghci_script, ['break028.script'])
 test('dynbrk001', extra_files(['../QSort.hs']), ghci_script, ['dynbrk001.script'])
 test('dynbrk002', extra_files(['../QSort.hs']), ghci_script, ['dynbrk002.script'])
 test('dynbrk003', normal, ghci_script, ['dynbrk003.script'])
diff --git a/testsuite/tests/ghci.debugger/scripts/break003.script b/testsuite/tests/ghci.debugger/scripts/break003.script
index a72c3ac4a3..ccfcd02cd9 100644
--- a/testsuite/tests/ghci.debugger/scripts/break003.script
+++ b/testsuite/tests/ghci.debugger/scripts/break003.script
@@ -3,8 +3,3 @@
 main
 f
 :q
-
--- currently gives:
--- ghc-6.7: panic! (the 'impossible' happened)
---   (GHC version 6.7 for x86_64-unknown-linux):
---         ASSERT failed! file typecheck/TcMType.lhs line 362 t{tv aqh} [tv]
diff --git a/testsuite/tests/ghci.debugger/scripts/break008.script b/testsuite/tests/ghci.debugger/scripts/break008.script
index 700182e9d2..1b79210ae9 100644
--- a/testsuite/tests/ghci.debugger/scripts/break008.script
+++ b/testsuite/tests/ghci.debugger/scripts/break008.script
@@ -1,5 +1,8 @@
 :l Test3
 :b 1
 mymap id []
+:show breaks
 -- second load, should discard the breakpoints without blowing up
 :l Test3.hs
+:show breaks
+mymap id []
diff --git a/testsuite/tests/ghci.debugger/scripts/break008.stdout b/testsuite/tests/ghci.debugger/scripts/break008.stdout
index 8af6ed33c1..6d41d6f4e7 100644
--- a/testsuite/tests/ghci.debugger/scripts/break008.stdout
+++ b/testsuite/tests/ghci.debugger/scripts/break008.stdout
@@ -1,3 +1,6 @@
 Breakpoint 0 activated at Test3.hs:1:14-15
 Stopped in Main.mymap, Test3.hs:1:14-15
 _result :: [a] = _
+[0] Main Test3.hs:1:14-15 enabled
+No active breakpoints.
+[]
diff --git a/testsuite/tests/ghci.debugger/scripts/print019.script b/testsuite/tests/ghci.debugger/scripts/print019.script
index b4a6d2bab8..a3bf1021af 100644
--- a/testsuite/tests/ghci.debugger/scripts/print019.script
+++ b/testsuite/tests/ghci.debugger/scripts/print019.script
@@ -8,4 +8,4 @@ seq _t1 ()
 :p _t1
 :show bindings
 _t2
--- bogus!! _t2 has been resolved to type Char
+-- _t2 cannot be printed, its type is still unknown
diff --git a/testsuite/tests/ghci.debugger/scripts/print024.script b/testsuite/tests/ghci.debugger/scripts/print024.script
index 8b951c65d4..8334e95f0f 100644
--- a/testsuite/tests/ghci.debugger/scripts/print024.script
+++ b/testsuite/tests/ghci.debugger/scripts/print024.script
@@ -7,4 +7,3 @@ let a = MkT (1 :: Integer)
 seq a ()
 :p a
 a
--- Bang! "internal error: stg_ap_p_ret", triggered by the evaluation of a 
diff --git a/testsuite/tests/ghci.debugger/scripts/print026.script b/testsuite/tests/ghci.debugger/scripts/print026.script
index de31983f1d..62136cfeb4 100644
--- a/testsuite/tests/ghci.debugger/scripts/print026.script
+++ b/testsuite/tests/ghci.debugger/scripts/print026.script
@@ -1,4 +1,4 @@
--- test -fno-debug-with-show
+-- test -fprint-evld-with-show
 
 :m +Data.Sequence
 let l = fromList "abc"
diff --git a/testsuite/tests/ghci.debugger/scripts/print031.script b/testsuite/tests/ghci.debugger/scripts/print031.script
index 2e3223e354..d8c9f83aad 100644
--- a/testsuite/tests/ghci.debugger/scripts/print031.script
+++ b/testsuite/tests/ghci.debugger/scripts/print031.script
@@ -3,7 +3,5 @@ let a = MkT2 [Just (Phantom 1)]
 :break f
 a
 f a
--- ghc crashes now when the type for x is recovered
--- and unifyRTTI fails to compute a substitution
 :p x
 :q
diff --git a/testsuite/tests/ghci.debugger/scripts/print035.script b/testsuite/tests/ghci.debugger/scripts/print035.script
index d5d48ddef1..a4511f0908 100644
--- a/testsuite/tests/ghci.debugger/scripts/print035.script
+++ b/testsuite/tests/ghci.debugger/scripts/print035.script
@@ -1,5 +1,5 @@
 -- Unboxed tuples in data constructor arguments need to be
--- handled correctly by RtClosureInspect
+-- handled correctly by GHC.Runtime.Heap.Inspect
 
 :set -XUnboxedTuples -fobject-code
 :l Unboxed
diff --git a/testsuite/tests/ghci.debugger/scripts/result001.script b/testsuite/tests/ghci.debugger/scripts/result001.script
index c5714fe781..555858fbd8 100644
--- a/testsuite/tests/ghci.debugger/scripts/result001.script
+++ b/testsuite/tests/ghci.debugger/scripts/result001.script
@@ -2,4 +2,4 @@
 :l result001
 :b 1 20
 f "abc"
--- _result :: Bool is wrong, should be [a]
+-- _result :: [a]. -- [Char] would be better