Added first test suite for Mapping

2014-04-28 16:34:13 +02:00
parent f5f1f760cd
commit 07dac9aad1
4 changed files with 26 additions and 25 deletions
--- a/src/Map/Map.hs
+++ b/src/Map/Map.hs
@ -39,6 +39,3 @@ giveNeighbourhood mp n (a,b) = let ns = giveNeighbours mp (a,b) in
 -- removing duplicates in O(n log n), losing order and adding Ord requirement
 remdups :: Ord a => [a] -> [a]
 remdups = map head . group . sort
-
-prop_rd_idempot :: [Int] -> Bool
-prop_rd_idempot xs = remdups xs == (remdups . remdups) xs