summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/ghci/prog009/ghci.prog009.script
blob: 6005727d44d5ec14c1453c6555995cd6bbf1e2f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
:! cp A1.hs A.hs
import Data.List
:load A
-- Data.List should still be in scope:
:t nub
:module +B
yan
:! sleep 1
:! cp A3.hs A.hs
:reload
-- error, context drops to Prelude,Data.List
-- Data.List should still be in scope:
:t nub
:! sleep 1
:! cp A1.hs A.hs
:reload
-- ok again, B should be back in the context
yan
-- Data.List should still be in scope:
:t nub
:! sleep 1
:! cp A2.hs A.hs
:reload
:show modules
yan -- error

-- Now testing for bug #2049
:! cp A3.hs A.hs
:load A.hs
-- should fail
-- Data.List should still be in scope:
:type nub
:! sleep 1
:! cp A1.hs A.hs
:reload
yan