summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/Properties.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/Properties.hs b/tests/Properties.hs
index a850ffe..7a05ecd 100644
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -543,10 +543,12 @@ prop_float_reversible n (x :: T) =
geom = RationalRect 100 100 100 100
-- check rectanges were set
+{-
prop_float_sets_geometry n (x :: T) =
n `member` x ==> let y = float n geom x in M.lookup y (floating x) == Just geom
where
geom = RationalRect 100 100 100 100
+-}
------------------------------------------------------------------------