From 77983153f9e891f1199c8faa16dcb2a0e8bcbbb9 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Wed, 7 May 2014 04:49:30 +0200
Subject: make the check for overflow cleaner

Ignore-this: c12448f9219c8a29f2707526691acfda

darcs-hash:20140507024930-1499c-52860fb59794c3f370f27158b0936f845fce6ded.gz
---
 tests/Properties/Layout/Tall.hs |  8 ++++----
 tests/Properties/Screen.hs      | 11 +++++------
 2 files changed, 9 insertions(+), 10 deletions(-)

(limited to 'tests/Properties')

diff --git a/tests/Properties/Layout/Tall.hs b/tests/Properties/Layout/Tall.hs
index 7464184..2f836ef 100644
--- a/tests/Properties/Layout/Tall.hs
+++ b/tests/Properties/Layout/Tall.hs
@@ -28,7 +28,8 @@ prop_tile_non_overlap rect windows nmaster = noOverlaps (tile pct rect nmaster w
         pct = 3 % 100
 
 -- splitting horizontally yields sensible results
-prop_split_hoziontal (NonNegative n) x =
+prop_split_horizontal (NonNegative n) x =
+      (noOverflows (+) (rect_x x) (rect_width x)) ==>
         sum (map rect_width xs) == rect_width x
      &&
         all (== rect_height x) (map rect_height xs)
@@ -38,9 +39,8 @@ prop_split_hoziontal (NonNegative n) x =
     where
         xs = splitHorizontally n x
 
--- splitting horizontally yields sensible results
-prop_splitVertically (r :: Rational) x =
-
+-- splitting vertically yields sensible results
+prop_split_vertical (r :: Rational) x =
         rect_x x == rect_x a && rect_x x == rect_x b
       &&
         rect_width x == rect_width a && rect_width x == rect_width b
diff --git a/tests/Properties/Screen.hs b/tests/Properties/Screen.hs
index ed9d12b..cf76252 100644
--- a/tests/Properties/Screen.hs
+++ b/tests/Properties/Screen.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 module Properties.Screen where
 
+import Utils
 import Test.QuickCheck
 import Instances
 
@@ -53,8 +54,8 @@ prop_aspect_hint_shrink hint (w,h) = case applyAspectHint hint (w,h) of
 prop_aspect_fits =
     forAll ((,,,) <$> pos <*> pos <*> pos <*> pos) $ \ (x,y,a,b) -> 
     let f v = applyAspectHint ((x, y+a), (x+b, y)) v
-        overflow = or [ mul x (y+a), mul (x+b) y ]
-    in  not overflow ==> f (x,y) == (x,y)
+    in  and [ noOverflows (*) x (y+a), noOverflows (*) (x+b) y ]
+            ==> f (x,y) == (x,y)
 
   where pos = choose (0, 65535)
         mul a b = toInteger (a*b) /= toInteger a * toInteger b
@@ -65,10 +66,8 @@ prop_point_within r @ (Rectangle x y w h) =
               choose (0, fromIntegral h - 1)) $
         \(dx,dy) ->
     and [ dx > 0, dy > 0,
-         noOverflow x w,
-         noOverflow y h ]
+         noOverflows (\ a b -> a + abs b) x w,
+         noOverflows (\ a b -> a + abs b) y h ]
       ==> pointWithin (x+dx) (y+dy) r
-  where
-    noOverflow a b = (a + fromIntegral (abs b)) > a
 
 prop_point_within_mirror r (x,y) = pointWithin x y r == pointWithin y x (mirrorRect r)
-- 
cgit v1.2.3