From d97c910b07f487d1b941a3bcb8404e895fdda213 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Fri, 3 Aug 2007 18:09:32 +0000
Subject: [PATCH] Move the datamap001 (our only test) to the containers
 package

---
 tests/Makefile          |    7 -------
 tests/all.T             |    5 -----
 tests/datamap001.hs     |   14 --------------
 tests/datamap001.stdout |    1 -
 4 files changed, 27 deletions(-)
 delete mode 100644 tests/Makefile
 delete mode 100644 tests/all.T
 delete mode 100644 tests/datamap001.hs
 delete mode 100644 tests/datamap001.stdout

diff --git a/tests/Makefile b/tests/Makefile
deleted file mode 100644
index 6a0abcf..0000000
--- a/tests/Makefile
+++ /dev/null
@@ -1,7 +0,0 @@
-# This Makefile runs the tests using GHC's testsuite framework.  It
-# assumes the package is part of a GHC build tree with the testsuite
-# installed in ../../../testsuite.
-
-TOP=../../../testsuite
-include $(TOP)/mk/boilerplate.mk
-include $(TOP)/mk/test.mk
diff --git a/tests/all.T b/tests/all.T
deleted file mode 100644
index b76a634..0000000
--- a/tests/all.T
+++ /dev/null
@@ -1,5 +0,0 @@
-# This is a test script for use with GHC's testsuite framework, see
-# http://darcs.haskell.org/testsuite
-
-test('datamap001', normal, compile_and_run, [''])
-
diff --git a/tests/datamap001.hs b/tests/datamap001.hs
deleted file mode 100644
index 253690a..0000000
--- a/tests/datamap001.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-
-{-
-In the 6.6 era this printed [(5,"x")]; should be [(3,"b"),(5,"a")]
--}
-
-module Main (main) where
-
-import Data.Map
-
-main :: IO ()
-main = do let m = fromList [(3,"b"),(5,"a")]
-              f k a = Just "x"
-              m' = updateAt f 1 m
-          print m'
diff --git a/tests/datamap001.stdout b/tests/datamap001.stdout
deleted file mode 100644
index 3b2a864..0000000
--- a/tests/datamap001.stdout
+++ /dev/null
@@ -1 +0,0 @@
-fromList [(3,"b"),(5,"x")]
-- 
1.7.10.4