diff options
Diffstat (limited to 'testsuite/tests/ghci/scripts/T1914.script')
-rw-r--r-- | testsuite/tests/ghci/scripts/T1914.script | 9 |
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 |