twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-26 09:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

view n . shift n . view i . shift i) x == x --> shift + view is invertible

Browse Source
This commit is contained in:
Don Stewart
2007-04-30 06:29:01 +00:00
parent 17f70344ec
commit 4d9fa8bc98
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/Properties.hs
View File

@@ -142,10 +142,12 @@ prop_view_idem (x :: T) r =
sz = size x
in view i (view i x) == (view i x)
prop_shiftshift r x =
let n = current x
in shift n (shift r x) == x
where _ = x :: T
prop_shift_reversible r (x :: T) =
let i = fromIntegral $ r `mod` sz
sz = size x
n = current x
in height n x > 0 ==> (view n . shift n . view i . shift i) x == x
prop_fullcache x = cached == allvals where
cached = sort . keys $ cache x
@@ -323,6 +325,8 @@ main = do
,("view/view ", mytest prop_viewview)
,("view idem ", mytest prop_view_idem)
,("shift reversible ", mytest prop_shift_reversible)
,("fullcache ", mytest prop_fullcache)
,("currentwsvisible ", mytest prop_currentwsvisible)
,("ws screen mapping", mytest prop_ws2screen_screen2ws)