diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/ghci/prog002')
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/A.hs | 6 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/A1.hs | 6 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/A2.hs | 6 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/B.hs | 7 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/C.hs | 5 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/D.hs | 5 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/Makefile | 3 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/prog002.T | 2 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/prog002.script | 45 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/ghci/prog002/prog002.stdout | 12 |
10 files changed, 0 insertions, 97 deletions
diff --git a/testsuite/tests/ghc-regress/ghci/prog002/A.hs b/testsuite/tests/ghc-regress/ghci/prog002/A.hs deleted file mode 100644 index 6dc493aaa2..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/A.hs +++ /dev/null @@ -1,6 +0,0 @@ -module A where - -data T = A Int | B Float deriving Eq - -f :: Int -> Int -f x = x + 3 diff --git a/testsuite/tests/ghc-regress/ghci/prog002/A1.hs b/testsuite/tests/ghc-regress/ghci/prog002/A1.hs deleted file mode 100644 index 069e8ef07a..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/A1.hs +++ /dev/null @@ -1,6 +0,0 @@ -module A where - -data T = A Int | B Float deriving Eq - -f :: Double -> Double -f x = x + x diff --git a/testsuite/tests/ghc-regress/ghci/prog002/A2.hs b/testsuite/tests/ghc-regress/ghci/prog002/A2.hs deleted file mode 100644 index 6dc493aaa2..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/A2.hs +++ /dev/null @@ -1,6 +0,0 @@ -module A where - -data T = A Int | B Float deriving Eq - -f :: Int -> Int -f x = x + 3 diff --git a/testsuite/tests/ghc-regress/ghci/prog002/B.hs b/testsuite/tests/ghc-regress/ghci/prog002/B.hs deleted file mode 100644 index 6aced23415..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/B.hs +++ /dev/null @@ -1,7 +0,0 @@ -module B (f, g, h) where - -import A - -g x = f x + 1 - -h x = x `div` 2 diff --git a/testsuite/tests/ghc-regress/ghci/prog002/C.hs b/testsuite/tests/ghc-regress/ghci/prog002/C.hs deleted file mode 100644 index b3baac2979..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/C.hs +++ /dev/null @@ -1,5 +0,0 @@ -module C (module B, module C) where - -import B - -k x = x `mod` 11 diff --git a/testsuite/tests/ghc-regress/ghci/prog002/D.hs b/testsuite/tests/ghc-regress/ghci/prog002/D.hs deleted file mode 100644 index 35672bd88c..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/D.hs +++ /dev/null @@ -1,5 +0,0 @@ -module Main where - -import C - -main = print ("hello world" ++ show (f 42)) diff --git a/testsuite/tests/ghc-regress/ghci/prog002/Makefile b/testsuite/tests/ghc-regress/ghci/prog002/Makefile deleted file mode 100644 index 1c39d1c1fe..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -TOP=../../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk diff --git a/testsuite/tests/ghc-regress/ghci/prog002/prog002.T b/testsuite/tests/ghc-regress/ghci/prog002/prog002.T deleted file mode 100644 index ea39005f6f..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/prog002.T +++ /dev/null @@ -1,2 +0,0 @@ -test('prog002', extra_clean(['A.hi']), ghci_script, ['prog002.script']) - diff --git a/testsuite/tests/ghc-regress/ghci/prog002/prog002.script b/testsuite/tests/ghc-regress/ghci/prog002/prog002.script deleted file mode 100644 index cecbe4091a..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/prog002.script +++ /dev/null @@ -1,45 +0,0 @@ -:unset +s -:unset +t - -:l ../shell.hs -:def shell (\s -> do shell s; return "") - --- first, clean up: -:shell rm -f *.hi *.o *~ -:shell cp A1.hs A.hs - -:load D.hs - --- compile A & reload -:shell "$HC" $HC_OPTS -fforce-recomp -c A.hs -:reload - -B.g 42 -B.g 42 -B.g 42 - --- swap A2 for A, compile & reload -:shell sleep 1 -:shell cp A2.hs A.hs -:shell "$HC" $HC_OPTS -fforce-recomp -c A.hs -:reload --- the system should ignore the compiled version and compile its own. - -B.g 42 -B.g 42 -B.g 42 - --- pick up newly compiled A -:load D.hs - -B.g 42 -B.g 42 -B.g 42 - --- remove A.o: system should recompile A -:shell rm A.o -:reload - -B.g 42 -B.g 42 -B.g 42 diff --git a/testsuite/tests/ghc-regress/ghci/prog002/prog002.stdout b/testsuite/tests/ghc-regress/ghci/prog002/prog002.stdout deleted file mode 100644 index aece15514e..0000000000 --- a/testsuite/tests/ghc-regress/ghci/prog002/prog002.stdout +++ /dev/null @@ -1,12 +0,0 @@ -85.0 -85.0 -85.0 -46 -46 -46 -46 -46 -46 -46 -46 -46 |