Added first test suite with first test (questionable .cabal though)

2014-04-27 23:49:15 +02:00
parent b3c25a1326
commit f5f1f760cd
3 changed files with 52 additions and 1 deletions
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@ -40,5 +40,5 @@ giveNeighbourhood mp n (a,b) = let ns = giveNeighbours mp (a,b) in
 remdups :: Ord a => [a] -> [a]
 remdups = map head . group . sort

-prop_rd_idempot :: Ord a => [a] -> Bool
+prop_rd_idempot :: [Int] -> Bool
 prop_rd_idempot xs = remdups xs == (remdups . remdups) xs