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

bit more code coverage

Browse Source
This commit is contained in:
Don Stewart 2008-03-07 18:09:05 +00:00
parent 4d9a6c2681
commit d5955b023c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/Properties.hs
View File

@ -355,6 +355,10 @@ prop_focusWindow_local (n :: NonNegative Int) (x::T ) =
i = fromIntegral n `mod` length s i = fromIntegral n `mod` length s
in hidden_spaces (focusWindow (s !! i) x) == hidden_spaces x in hidden_spaces (focusWindow (s !! i) x) == hidden_spaces x
-- On an invalid window, the stackset is unmodified
prop_focusWindow_identity (n :: Char) (x::T ) =
not (n `member` x) ==> focusWindow n x == x
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- member/findTag -- member/findTag
@ -718,6 +722,7 @@ main = do
,("focusWindow is local", mytest prop_focusWindow_local) ,("focusWindow is local", mytest prop_focusWindow_local)
,("focusWindow works" , mytest prop_focusWindow_works) ,("focusWindow works" , mytest prop_focusWindow_works)
,("focusWindow identity", mytest prop_focusWindow_identity)
,("findTag" , mytest prop_findIndex) ,("findTag" , mytest prop_findIndex)
,("allWindows/member" , mytest prop_allWindowsMember) ,("allWindows/member" , mytest prop_allWindowsMember)