twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

deleted unused 'mul' definition in 'prop_aspect_fits'.

Browse Source
This commit is contained in:
Keith 2020-05-25 13:03:08 -04:00
parent 40466b2be2
commit 3c6f52a349
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/Properties/Screen.hs
View File

@ -52,13 +52,12 @@ prop_aspect_hint_shrink hint (w,h) = case applyAspectHint hint (w,h) of
-- applyAspectHint does nothing when the supplied (x,y) fits -- applyAspectHint does nothing when the supplied (x,y) fits
-- the desired range -- the desired range
prop_aspect_fits = prop_aspect_fits =
forAll ((,,,) <$> pos <*> pos <*> pos <*> pos) $ \ (x,y,a,b) -> forAll ((,,,) <$> pos <*> pos <*> pos <*> pos) $ \ (x,y,a,b) ->
let f v = applyAspectHint ((x, y+a), (x+b, y)) v let f v = applyAspectHint ((x, y+a), (x+b, y)) v
in and [ noOverflows (*) x (y+a), noOverflows (*) (x+b) y ] in and [ noOverflows (*) x (y+a), noOverflows (*) (x+b) y ]
==> f (x,y) == (x,y) ==> f (x,y) == (x,y)
where pos = choose (0, 65535) where pos = choose (0, 65535)
mul a b = toInteger (a*b) /= toInteger a * toInteger b
prop_point_within r @ (Rectangle x y w h) = prop_point_within r @ (Rectangle x y w h) =
forAll ((,) <$> forAll ((,) <$>