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

add prop for 'differentiate'

Browse Source
This commit is contained in:
Don Stewart
2007-09-27 23:19:28 +00:00
parent 29a5256c10
commit bee79c83e6
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tests/Properties.hs
View File

@@ -538,6 +538,10 @@ prop_screens (x :: T) = n `elem` screens x
where where
n = current x n = current x
prop_differentiate xs =
if null xs then differentiate xs == Nothing
else focus (fromJust (differentiate xs)) == head xs
where _ = xs :: [Int]
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- some properties for layouts: -- some properties for layouts:
@@ -669,6 +673,7 @@ main = do
,("floating is reversible" , mytest prop_float_reversible) ,("floating is reversible" , mytest prop_float_reversible)
,("screens includes current", mytest prop_screens) ,("screens includes current", mytest prop_screens)
,("differentiate works", mytest prop_differentiate)
{- {-
,("tile 1 window fullsize", mytest prop_tile_fullscreen) ,("tile 1 window fullsize", mytest prop_tile_fullscreen)