twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

added new test-suite

Browse Source
This commit is contained in:
Yecine Megdiche
2020-12-07 20:11:24 +01:00
parent 69a2886a8b
commit 7ef0faa986
10 changed files with 377 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/ManageDocks.hs
View File

@@ -1,18 +1,6 @@
module ManageDocks where
import XMonad
import XMonad.Hooks.ManageDocks
import Test.QuickCheck
import Foreign.C.Types
import Properties
instance Arbitrary CLong where
arbitrary = fromIntegral <$> (arbitrary :: Gen Int)
instance Arbitrary RectC where
arbitrary = do
(x,y) <- arbitrary
NonNegative w <- arbitrary
NonNegative h <- arbitrary
return $ RectC (x,y,x+w,y+h)
import XMonad ( Rectangle )
import XMonad.Hooks.ManageDocks
prop_r2c_c2r :: RectC -> Bool
prop_r2c_c2r r = r2c (c2r r) == r