diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2014-05-03 04:11:03 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2014-05-03 04:11:03 +0200 |
commit | 81a2d0bb75740bf79f6446d38a2aaf6c2e7834f6 (patch) | |
tree | 90d04d1ea35e6cd900bbc2daea83d401675a2663 /tests/Instances.hs | |
parent | f39af6224f5e3974dbe7d1d5f754ff97ecabaaa2 (diff) | |
download | xmonad-81a2d0bb75740bf79f6446d38a2aaf6c2e7834f6.tar.gz xmonad-81a2d0bb75740bf79f6446d38a2aaf6c2e7834f6.tar.xz xmonad-81a2d0bb75740bf79f6446d38a2aaf6c2e7834f6.zip |
run more tests (and add a couple)
Ignore-this: 7b76bd48a7c7d6998505d0503b9d58a1
darcs-hash:20140503021103-1499c-c4f74fe49e61fced376890057daf51609bf6b24b.gz
Diffstat (limited to 'tests/Instances.hs')
-rw-r--r-- | tests/Instances.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/Instances.hs b/tests/Instances.hs index 2f087f8..e52c5ec 100644 --- a/tests/Instances.hs +++ b/tests/Instances.hs @@ -11,6 +11,9 @@ import Data.List (nub, genericLength) import Debug.Trace +import Graphics.X11 (Rectangle(Rectangle)) +import Control.Applicative + -- -- The all important Arbitrary instance for StackSet. -- @@ -79,6 +82,8 @@ instance Arbitrary NonEmptyWindowsStackSet where arbitrary = NonEmptyWindowsStackSet `fmap` (arbitrary `suchThat` (not . null . allWindows)) +instance Arbitrary Rectangle where + arbitrary = Rectangle <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary newtype SizedPositive = SizedPositive Int |