Remove typecase test

examples/typecase/000/Main.hs

@@ -1,14 +0,0 @@
-import AltData.Dynamic
-import Data.Char
-
-main = putStrLn f
-
-f = let v = toDyn (7 :: Int)
-    in typecase (v) [ 
-            _Bool     --> \(b::Bool)     -> show (not b)++" :: Bool", 
-            _Char     --> \(c::Char)     -> show (toUpper c)++" :: Char", 
-            _Int      --> \(i::Int)      -> show (-i)++" :: Int", 
-            _String   --> \(s::String)   -> show (reverse s)++" :: [Char]", 
-            _IntToInt --> \(f::Int->Int) -> show (f 7) ++":: Int -> Int"
-       ] ("couldn't find a typing")
-

examples/typecase/000/Makefile

@@ -1,2 +0,0 @@
-TOP=../../..
-include ../../eval.mk

examples/typecase/000/expected

@@ -1 +0,0 @@
--7 :: Int