summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghci/scripts/T1914.script
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/ghci/scripts/T1914.script')
-rw-r--r--testsuite/tests/ghci/scripts/T1914.script9
1 files changed, 4 insertions, 5 deletions
diff --git a/testsuite/tests/ghci/scripts/T1914.script b/testsuite/tests/ghci/scripts/T1914.script
index 5a74350341..85bd74a63c 100644
--- a/testsuite/tests/ghci/scripts/T1914.script
+++ b/testsuite/tests/ghci/scripts/T1914.script
@@ -1,16 +1,15 @@
+:l shell.hs
+:def shell (\s -> do shell s; return "")
+
:set -v1
System.IO.writeFile "T1914A.hs" "module T1914A where { import T1914B; }"
System.IO.writeFile "T1914B.hs" "module T1914B where { type T = Int; }"
--- hack: avoid the need for sleep by using specific timestamps:
-:! touch -t 01010000 T1914A.hs
-:! touch -t 01010000 T1914B.hs
:load T1914A
System.IO.writeFile "T1914A.hs" "module T1914A where { import T1914B; oops }"
-:! touch -t 01010001 T1914A.hs
:reload
-- T1914B should still be loaded
:module *T1914B
System.IO.writeFile "T1914A.hs" "module T1914A where { import T1914B; }"
-:! touch -t 01010002 T1914A.hs
+:shell echo >> T1914A.hs
:reload
-- should not have to reload T1914B