mirror of
https://github.com/xmonad/xmonad.git
synced 2025-05-19 08:30:21 -07:00
8863761d66
* use quickcheck2 * run them using cabal's test-suite field * split up Properties into separate files
45 lines
1.4 KiB
Haskell
45 lines
1.4 KiB
Haskell
{-# LANGUAGE ScopedTypeVariables #-}
|
|
module Properties.GreedyView where
|
|
|
|
import Test.QuickCheck
|
|
import Instances
|
|
import Utils
|
|
|
|
import XMonad.StackSet hiding (filter)
|
|
|
|
import Data.List (sortBy)
|
|
|
|
-- ---------------------------------------------------------------------
|
|
-- greedyViewing workspaces
|
|
|
|
-- greedyView sets the current workspace to 'n'
|
|
prop_greedyView_current (x :: T) = do
|
|
n <- arbitraryTag x
|
|
return $ currentTag (greedyView n x) == n
|
|
|
|
-- greedyView leaves things unchanged for invalid workspaces
|
|
prop_greedyView_current_id (x :: T) = do
|
|
n <- arbitrary `suchThat` \n' -> not $ n' `tagMember` x
|
|
return $ currentTag (greedyView n x) == currentTag x
|
|
|
|
-- greedyView *only* sets the current workspace, and touches Xinerama.
|
|
-- no workspace contents will be changed.
|
|
prop_greedyView_local (x :: T) = do
|
|
n <- arbitraryTag x
|
|
return $ workspaces x == workspaces (greedyView n x)
|
|
where
|
|
workspaces a = sortBy (\s t -> tag s `compare` tag t) $
|
|
workspace (current a)
|
|
: map workspace (visible a) ++ hidden a
|
|
|
|
-- greedyView is idempotent
|
|
prop_greedyView_idem (x :: T) = do
|
|
n <- arbitraryTag x
|
|
return $ greedyView n (greedyView n x) == (greedyView n x)
|
|
|
|
-- greedyView is reversible, though shuffles the order of hidden/visible
|
|
prop_greedyView_reversible (x :: T) = do
|
|
n <- arbitraryTag x
|
|
return $ normal (greedyView n' (greedyView n x)) == normal x
|
|
where n' = currentTag x
|