Fix some more written-but-not-cleaned files
authorIan Lynagh <igloo@earth.li>
Sun, 4 Sep 2011 19:13:17 +0000 (20:13 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 4 Sep 2011 19:13:17 +0000 (20:13 +0100)
testsuite/tests/ghci/prog002/A.hs [deleted file]
testsuite/tests/ghci/prog002/prog002.T
testsuite/tests/ghci/prog003/D.hs [deleted file]
testsuite/tests/ghci/prog003/prog003.T
testsuite/tests/ghci/scripts/all.T
testsuite/tests/ghci/scripts/ghci027.hs [deleted file]
testsuite/tests/programs/hs-boot/all.T

diff --git a/testsuite/tests/ghci/prog002/A.hs b/testsuite/tests/ghci/prog002/A.hs
deleted file mode 100644 (file)
index 6dc493a..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-module A where
-
-data T = A Int | B Float deriving Eq
-
-f :: Int -> Int
-f x = x + 3
index ea39005..19b90e4 100644 (file)
@@ -1,2 +1,3 @@
-test('prog002', extra_clean(['A.hi']), ghci_script, ['prog002.script'])
+test('prog002', extra_clean(['A.hs', 'A.hi', 'A.o']),
+     ghci_script, ['prog002.script'])
 
diff --git a/testsuite/tests/ghci/prog003/D.hs b/testsuite/tests/ghci/prog003/D.hs
deleted file mode 100644 (file)
index a53a8c3..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-module D where
-
--- data types and an instance
-data D a = A Int | B Float deriving Eq
-newtype N a = N Double
-type T a = (Int,Double)
-
--- a class
-class C a where c :: a -> Int
-
--- a function
-d :: Float -> Float
-d x = x / 3
index c87bc90..0058116 100644 (file)
@@ -1,6 +1,6 @@
 test('prog003',
-     extra_clean(['D.hi', 'C.hi', 'C.o', 'B.hi', 'B.o', 'A', 'A.hi', 'A.o',
-                  'a.out']),
+     extra_clean(['D.hs', 'D.hi', 'C.hi', 'C.o', 'B.hi', 'B.o',
+                  'A', 'A.hi', 'A.o', 'a.out']),
      ghci_script,
      ['prog003.script'])
 
index 9baf9ed..980cb81 100644 (file)
@@ -43,7 +43,7 @@ test('ghci024',
 test('ghci025', normal, ghci_script, ['ghci025.script'])
 test('ghci026', normal, ghci_script, ['ghci026.script'])
 
-test('ghci027', normal, ghci_script, ['ghci027.script'])
+test('ghci027', extra_clean(['ghci027.hs']), ghci_script, ['ghci027.script'])
 test('ghci028', normal, ghci_script, ['ghci028.script'])
 test('ghci029', normal, ghci_script, ['ghci029.script'])
 test('ghci030', normal, ghci_script, ['ghci030.script'])
diff --git a/testsuite/tests/ghci/scripts/ghci027.hs b/testsuite/tests/ghci/scripts/ghci027.hs
deleted file mode 100644 (file)
index df99d7d..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
--- Test for #1617
-module Main where
-import Prelude ()
---import Control.Monad (mplus)
-import qualified Control.Monad (mplus)
index eb48087..dba7287 100644 (file)
@@ -4,6 +4,6 @@
 test('hs-boot',
      extra_clean(['A.hi', 'A.hi-boot', 'A.o', 'A.o-boot',
                   'B.hi', 'B.o', 'C.hi', 'C.o',
-                  'Main.hi', 'Main.o']),
+                  'Main', 'Main.exe', 'Main.hi', 'Main.o']),
      multimod_compile,
      ['Main -v0', ''])