From: simonmar <unknown>
Date: Thu, 23 Aug 2001 10:51:20 +0000 (+0000)
Subject: [project @ 2001-08-23 10:51:19 by simonmar]
X-Git-Tag: Approximately_9120_patches~1105
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=db462b2992ee60f8cc3800ecdf2ca25297aa29ed;p=ghc-hetmet.git

[project @ 2001-08-23 10:51:19 by simonmar]
old tests, most of which seem to have been used during development
rather than as regression tests.
---

diff --git a/ghc/tests/etc/Echo.hs b/ghc/tests/etc/Echo.hs
deleted file mode 100644
index 8711420..0000000
--- a/ghc/tests/etc/Echo.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-import MiniPrel
-
-main = (ccall getchar)    `thenU` ( \ ch ->
-	   case ch of
-	     -1# -> (ccall exit 0#)
-	     _   -> (ccall putchar ch) `thenU` ( \ _ ->
-		    main )
-	 )
diff --git a/ghc/tests/etc/dotests b/ghc/tests/etc/dotests
deleted file mode 100644
index 5e2e80b..0000000
--- a/ghc/tests/etc/dotests
+++ /dev/null
@@ -1,27 +0,0 @@
-#! /usr/local/bin/perl
-#
-@Make_args = ();
-@Range_args = ();
-
-while ($_ = $ARGV[0]) {
-    shift;
-    if (/^-/ || /^[A-Z_]+=/) {
-    	push(@Make_args, $_);
-    } else {
-	push(@Range_args,$_);
-    }
-}
-
-if ($#Range_args != 1) {
-    print STDERR "usage: dotest [make-args] from-test to-test\n";
-    exit(1);
-}
-$test = $Range_args[0];
-$last_test = $Range_args[1];
-if ($test gt $last_test) {
-    print STDERR "_from_ test $test _to_ test $last_test?\n";
-}
-while ($test le $last_test) {
-    system("make @Make_args runtest_$test");
-    $test++; # string incr
-}
diff --git a/ghc/tests/etc/naming001.hs b/ghc/tests/etc/naming001.hs
deleted file mode 100644
index 2d23bdc..0000000
--- a/ghc/tests/etc/naming001.hs
+++ /dev/null
@@ -1 +0,0 @@
-Prelude = 42
diff --git a/ghc/tests/etc/naming002.hs b/ghc/tests/etc/naming002.hs
deleted file mode 100644
index 2cd8b3d..0000000
--- a/ghc/tests/etc/naming002.hs
+++ /dev/null
@@ -1 +0,0 @@
-(+) x y = x
diff --git a/ghc/tests/etc/naming003.hs b/ghc/tests/etc/naming003.hs
deleted file mode 100644
index 052d8c8..0000000
--- a/ghc/tests/etc/naming003.hs
+++ /dev/null
@@ -1 +0,0 @@
-x = [1..10] where enumFromTo x y = x
diff --git a/ghc/tests/etc/naming004.hs b/ghc/tests/etc/naming004.hs
deleted file mode 100644
index aa4710e..0000000
--- a/ghc/tests/etc/naming004.hs
+++ /dev/null
@@ -1,2 +0,0 @@
-data Bogus = True | False
-True = (3 == 3)
diff --git a/ghc/tests/etc/naming005.hs b/ghc/tests/etc/naming005.hs
deleted file mode 100644
index a005e60..0000000
--- a/ghc/tests/etc/naming005.hs
+++ /dev/null
@@ -1 +0,0 @@
-x x = x
diff --git a/ghc/tests/etc/testexpr.hs b/ghc/tests/etc/testexpr.hs
deleted file mode 100644
index bcaef3f..0000000
--- a/ghc/tests/etc/testexpr.hs
+++ /dev/null
@@ -1,103 +0,0 @@
--- literal
------
-
-x = 'a'	-- 1
-
------
-
-x = "123"	-- 2
-
------
-
-x = 1	-- 3
-
------
-
-x = 1.2
-
------
-
--- exprs
-
------
-
-x = x	-- 5
-
------
-
-x = True	-- 6
-
------
-
-x = ()	-- 7
-
------
-
-(x:y) = [1,2]	-- 8
-
------
-
-(x:y) = [1,'a']	-- 9
-
------
-
-(x,y) = (1,'a')	-- 10
-
------
-
-(x,y) = (1,2,3)	-- 11
-
------
-
-(x:y) = (1,'a') -- 12
-
------
-
-x = 1+x	-- 13
-
------
-
-x = 1+2	-- 14
-
------
-
-f x = y where y = 2	-- 15
-
------
-
-
-f x = y+2 where y = x+3
-
------
-
-f x = a where a = x:a
-
------
-
-(x:y) = case (if True then True else False) of	-- 18
-         True -> (True,1)
-         False -> (1,True)
-
------
-
-f x = \ (y,z) -> x	-- 19
-         
------
-
-(x:y) = [y+1 | (y,z) <- [(1,2)]]	-- 20
-
------
-
-x = if True then 1 else 2
-
------
-
-(z@(q,w)) = if True then (1,2) else (1,3)
-
------
-
-x = [1..2]
-
------
-
-
diff --git a/ghc/tests/etc/testgrhss.hs b/ghc/tests/etc/testgrhss.hs
deleted file mode 100644
index 73f1901..0000000
--- a/ghc/tests/etc/testgrhss.hs
+++ /dev/null
@@ -1,16 +0,0 @@
--- grhss
------
-
-f x | True = x+1	-- 1
-    | False = True
-
------
-
-x | True = x+1		-- 2
-  | False = x
-
------
-
-
-
-
diff --git a/ghc/tests/etc/testmatches.hs b/ghc/tests/etc/testmatches.hs
deleted file mode 100644
index eb10ad9..0000000
--- a/ghc/tests/etc/testmatches.hs
+++ /dev/null
@@ -1,12 +0,0 @@
--- matches
------
-f x = case x of
-       True -> True
-       False -> x
-
------
-
-f ((x:a),y) = x
-f (a,b) = 2
-
------
diff --git a/ghc/tests/etc/testmonobinds.hs b/ghc/tests/etc/testmonobinds.hs
deleted file mode 100644
index d6dd814..0000000
--- a/ghc/tests/etc/testmonobinds.hs
+++ /dev/null
@@ -1,45 +0,0 @@
--- monobinds
------
-
-a = 1:a
-
------
-
-a = 2
-
-b = 1:a:c
-
-c = 0:b
-
------
-
-a = 1
-
-b = a+a
-
------
-
-f = \ y -> y
- 
-g x = x
-
------
-
-f True = 1
-
-f False = 0
-
------
-
-f (x:y) = x
-
-f z = z
-
------
-
-f (True,x) = x
-
-f (False,y) = y+1
-
------
-
diff --git a/ghc/tests/etc/testmrule.hs b/ghc/tests/etc/testmrule.hs
deleted file mode 100644
index 9d617a0..0000000
--- a/ghc/tests/etc/testmrule.hs
+++ /dev/null
@@ -1,7 +0,0 @@
--- mrule
------
-
-x = \ (y:z) -> z+2
-
------
-
diff --git a/ghc/tests/etc/testpats.hs b/ghc/tests/etc/testpats.hs
deleted file mode 100644
index ba09f21..0000000
--- a/ghc/tests/etc/testpats.hs
+++ /dev/null
@@ -1,26 +0,0 @@
--- pats
------
-
-_ = 2	--
-
------
-
-x = 2	--
-
------
-
-(z@(x:y)) = z 	--
-
------
-
-~(x,y) = x	--
-
------
-
-f True = 1
-
-f False = 0
-
------
-
-
diff --git a/ghc/tests/etc/wdp-array.hs b/ghc/tests/etc/wdp-array.hs
deleted file mode 100644
index f3432c2..0000000
--- a/ghc/tests/etc/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/tests/etc/wdp-otherwise.hs b/ghc/tests/etc/wdp-otherwise.hs
deleted file mode 100644
index c59b949..0000000
--- a/ghc/tests/etc/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/tests/etc/wdp-ppr.hs b/ghc/tests/etc/wdp-ppr.hs
deleted file mode 100644
index 563e752..0000000
--- a/ghc/tests/etc/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/tests/etc/wdp-prel-insts.hs b/ghc/tests/etc/wdp-prel-insts.hs
deleted file mode 100644
index 00a06cb..0000000
--- a/ghc/tests/etc/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