mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
24786c6d04
Scary looking code better be tested. :-) (For the record, the test did find an issue that is already fixed in the previous commit.)
21 lines
432 B
Haskell
21 lines
432 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)
|
|
|
|
import Instances
|
|
import Utils (tags)
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
prop "prop_unView" $ prop_unView
|
|
|
|
prop_unView :: T -> Property
|
|
prop_unView ss = conjoin
|
|
[ counterexample (show t) (unView ss (view t ss) === ss) | t <- tags ss ]
|