[commit: testsuite] master: Add test-case for #8172 (d4ef6c3)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d4ef6c38b4b8badcfc198f5c25f05ea1fc8a9ebf/testsuite

>---------------------------------------------------------------

commit d4ef6c38b4b8badcfc198f5c25f05ea1fc8a9ebf
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Tue Aug 27 23:12:28 2013 +0200

    Add test-case for #8172
    
    Signed-off-by: Herbert Valerio Riedel <hvr at gnu.org>


>---------------------------------------------------------------

d4ef6c38b4b8badcfc198f5c25f05ea1fc8a9ebf
 tests/ghci/scripts/T8172.script |    7 +++++++
 tests/ghci/scripts/T8172.stdout |   11 +++++++++++
 tests/ghci/scripts/all.T        |    1 +
 3 files changed, 19 insertions(+)

diff --git a/tests/ghci/scripts/T8172.script b/tests/ghci/scripts/T8172.script
new file mode 100644
index 0000000..60fc45c
--- /dev/null
+++ b/tests/ghci/scripts/T8172.script
@@ -0,0 +1,7 @@
+-- there's not much that can be done here in a test-env independent way
+:cd /
+:show paths
+:set -i
+:show paths
+:set -i/
+:show paths
diff --git a/tests/ghci/scripts/T8172.stdout b/tests/ghci/scripts/T8172.stdout
new file mode 100644
index 0000000..947376f
--- /dev/null
+++ b/tests/ghci/scripts/T8172.stdout
@@ -0,0 +1,11 @@
+current working directory: 
+  /
+module import search paths:
+  .
+current working directory: 
+  /
+module import search paths: none
+current working directory: 
+  /
+module import search paths:
+  /
diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
index 1577a63..dd8a02e 100755
--- a/tests/ghci/scripts/all.T
+++ b/tests/ghci/scripts/all.T
@@ -153,3 +153,4 @@ test('T7939', normal, ghci_script, ['T7939.script'])
 test('T7894', normal, ghci_script, ['T7894.script'])
 test('T8116', normal, ghci_script, ['T8116.script'])
 test('T8113', normal, ghci_script, ['T8113.script'])
+test('T8172', normal, ghci_script, ['T8172.script'])