mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
86522a27b0
Entirely unnecessary for the current version of `cycleWindowSets`, but if anyone ever wants to use `greedyView`, this shows that it's not at all complicated to adapt `unView` to that.
25 lines
587 B
Haskell
25 lines
587 B
Haskell
{-# OPTIONS_GHC -Wall #-}
|
|
module CycleRecentWS where
|
|
|
|
import Test.Hspec
|
|
import Test.Hspec.QuickCheck
|
|
import Test.QuickCheck
|
|
|
|
import XMonad.Actions.CycleRecentWS (unView)
|
|
import XMonad.StackSet (view, greedyView, mapLayout)
|
|
|
|
import Instances
|
|
import Utils (tags)
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
prop "prop_unView" $ prop_unView
|
|
|
|
prop_unView :: T -> Property
|
|
prop_unView ss = conjoin
|
|
[ counterexample desc (unView ss (state (v t ss)) === state ss)
|
|
| t <- tags ss
|
|
, (desc, v) <- [("view " <> show t, view), ("greedyView " <> show t, greedyView)] ]
|
|
where
|
|
state = mapLayout succ
|