twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 20:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

test geometry setting

Browse Source
This commit is contained in:
Don Stewart
2008-02-27 17:55:54 +00:00
parent 3303c6e05d
commit 87193ff61e
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/Properties.hs
View File

@@ -547,6 +547,12 @@ prop_float_reversible n (x :: T) =
where where
geom = RationalRect 100 100 100 100 geom = RationalRect 100 100 100 100
prop_float_geometry n (x :: T) =
n `member` x ==> let s = float n geom x
in M.lookup n (floating s) == Just geom
where
geom = RationalRect 100 100 100 100
-- check rectanges were set -- check rectanges were set
{- {-
prop_float_sets_geometry n (x :: T) = prop_float_sets_geometry n (x :: T) =
@@ -756,6 +762,7 @@ main = do
,("shiftWin fix current" , mytest prop_shift_win_fix_current) ,("shiftWin fix current" , mytest prop_shift_win_fix_current)
,("floating is reversible" , mytest prop_float_reversible) ,("floating is reversible" , mytest prop_float_reversible)
,("floating sets geometry" , mytest prop_float_geometry)
,("screens includes current", mytest prop_screens) ,("screens includes current", mytest prop_screens)
,("differentiate works", mytest prop_differentiate) ,("differentiate works", mytest prop_differentiate)
,("lookupTagOnScreen", mytest prop_lookup_current) ,("lookupTagOnScreen", mytest prop_lookup_current)