Add a new test for :list

Check that :list keeps working after setCurrentDirectory has been used

testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T

@@ -69,5 +69,6 @@ test('dynbrk009', normal, ghci_script, ['dynbrk009.script'])
 test('result001', expect_broken(1457), ghci_script, ['result001.script'])
 
 test('list001', normal, ghci_script, ['list001.script'])
+test('list002', expect_broken, ghci_script, ['list002.script'])
 
 test('hist001', normal, ghci_script, ['hist001.script'])

testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.hs

+import System.Directory
+
+main = do
+  setCurrentDirectory ".."
+  putStrLn "Hello World"
\ No newline at end of file

testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.script

+:l list002
+:step main
+:step
+:step
\ No newline at end of file

testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.stdout

+Stopped at list002.hs:(3,7)-(5,23)
+_result :: IO () = _
+Stopped at list002.hs:4:2-25
+_result :: IO () = _
+Stopped at list002.hs:5:2-23
+_result :: IO () = _