mirror of
https://github.com/xmonad/xmonad.git
synced 2025-08-01 04:31:53 -07:00
8863761d66
* use quickcheck2 * run them using cabal's test-suite field * split up Properties into separate files
27 lines
853 B
Haskell
27 lines
853 B
Haskell
module Properties.Failure where
|
|
|
|
import XMonad.StackSet hiding (filter)
|
|
|
|
import qualified Control.Exception.Extensible as C
|
|
import System.IO.Unsafe
|
|
|
|
-- ---------------------------------------------------------------------
|
|
-- testing for failure
|
|
|
|
-- and help out hpc
|
|
prop_abort x = unsafePerformIO $ C.catch (abort "fail")
|
|
(\(C.SomeException e) -> return $ show e == "xmonad: StackSet: fail" )
|
|
where
|
|
_ = x :: Int
|
|
|
|
-- new should fail with an abort
|
|
prop_new_abort x = unsafePerformIO $ C.catch f
|
|
(\(C.SomeException e) -> return $ show e == "xmonad: StackSet: non-positive argument to StackSet.new" )
|
|
where
|
|
f = new undefined{-layout-} [] [] `seq` return False
|
|
|
|
_ = x :: Int
|
|
|
|
-- TODO: Fix this?
|
|
-- prop_view_should_fail = view {- with some bogus data -}
|