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

deeper test for differentiate. back to 100% coverage

Browse Source
This commit is contained in:
Don Stewart
2007-09-30 07:50:18 +00:00
parent 2b6a200ad3
commit 60a40be09e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/Properties.hs
View File

@@ -547,7 +547,7 @@ prop_screens (x :: T) = n `elem` screens x
prop_differentiate xs = prop_differentiate xs =
if null xs then differentiate xs == Nothing if null xs then differentiate xs == Nothing
else focus (fromJust (differentiate xs)) == head xs else (differentiate xs) == Just (Stack (head xs) [] (tail xs))
where _ = xs :: [Int] where _ = xs :: [Int]
-- looking up the tag of the current workspace should always produce a tag. -- looking up the tag of the current workspace should always produce a tag.