[project @ 1997-08-14 18:33:23 by sof]

Moved to tests/etc

diff --git a/ghc/compiler/tests/wdp-array.hs b/ghc/compiler/tests/wdp-array.hs
deleted file mode 100644 (file)
index f3432c2..0000000
--- a/ghc/compiler/tests/wdp-array.hs
+++ /dev/null
@@ -1,4 +0,0 @@
-import MiniPrel
-
-a :: Array Int Int
-a = array (1,100) ((1 := 1) : [i := i * a!(i-1) | i <- [2..100]])

diff --git a/ghc/compiler/tests/wdp-otherwise.hs b/ghc/compiler/tests/wdp-otherwise.hs
deleted file mode 100644 (file)
index c59b949..0000000
--- a/ghc/compiler/tests/wdp-otherwise.hs
+++ /dev/null
@@ -1,11 +0,0 @@
--- this is legal, I think (WDP)
-
-module Confused where
-
-import Prelude hiding (otherwise)
-
-otherwise = False
-
-f x | otherwise = 1
-
-g otherwise | otherwise = 2

diff --git a/ghc/compiler/tests/wdp-ppr.hs b/ghc/compiler/tests/wdp-ppr.hs
deleted file mode 100644 (file)
index 563e752..0000000
--- a/ghc/compiler/tests/wdp-ppr.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-{-
-From: Kubiak Ryszard <fozzie>
-To: partain
-Subject: You may test the new pretty-printer on the following text:
-Date: Wed, 2 Oct 91 18:06:05 BST
--}
-
-data LList alpha = Nill | Conss alpha (LList alpha) 
-
-append :: LList a -> LList a -> LList a
-append xs ys  = case xs of
-                  Nill -> ys
-                  (Conss z zs)  -> Conss z (append zs ys)

diff --git a/ghc/compiler/tests/wdp-prel-insts.hs b/ghc/compiler/tests/wdp-prel-insts.hs
deleted file mode 100644 (file)
index 00a06cb..0000000
--- a/ghc/compiler/tests/wdp-prel-insts.hs
+++ /dev/null
@@ -1,8 +0,0 @@
--- what error do you get if you redefined PreludeCore instances?
-
-module Test where
-
-f x@(a,b) y@(c,d) = x == y
-
-instance Eq (a,b) where
-    (m,n) == (o,p) = m == o