From 33ab68b67ce865cd6447b41eda6d64ed0f65e8d9 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 12 Apr 2008 18:57:23 +0000
Subject: Simplify test suite and add tests I move all tests into one single
 directory to simplify things, and add a test for the last bug that was fixed.

---
 tests/pre-2.0-tests/Hash.hs | 51 ---------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 tests/pre-2.0-tests/Hash.hs

(limited to 'tests/pre-2.0-tests/Hash.hs')

diff --git a/tests/pre-2.0-tests/Hash.hs b/tests/pre-2.0-tests/Hash.hs
deleted file mode 100644
index 7d6506f9..00000000
--- a/tests/pre-2.0-tests/Hash.hs
+++ /dev/null
@@ -1,51 +0,0 @@
-{- |
-  Implementation of fixed-size hash tables, with a type 
-  class for constructing hash values for structured types.
--}
-module Hash (
-  -- * The @HashTable@ type
-  HashTable,
-
-  -- ** Operations on @HashTable@s
-  new, insert, lookup,
-
-  -- * The @Hash@ class
-  Hash(..),
- ) where
-
-import Array
-import Prelude hiding (lookup)
-
--- | A hash table with keys of type @key@ and values of type @val@.
--- The type @key@ should be an instance of 'Eq'.
-data HashTable key val = HashTable Int (Array Int [(key,val)])
-
--- | Builds a new hash table with a given size
-new :: (Eq key, Hash key) => Int -> IO (HashTable key val)
-new = undefined
-
--- | Inserts a new element into the hash table
-insert :: (Eq key, Hash key) => key -> val -> IO ()
-insert = undefined
-
--- | Looks up a key in the hash table, returns @'Just' val@ if the key
--- was found, or 'Nothing' otherwise.
-lookup 	:: Hash key => key -> IO (Maybe val)
-lookup = undefined
-
--- | A class of types which can be hashed.
-class Hash a where
-   -- | hashes the value of type @a@ into an 'Int'
-   hash :: a -> Int
-
-instance Hash Int where
-   hash = id
-
-instance Hash Float where
-   hash = trunc
-
-instance (Hash a, Hash b) => Hash (a,b) where
-   hash (a,b) = hash a `xor` hash b
-
-trunc = undefined
-xor = undefined
-- 
cgit v1.2.3