summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/Properties.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/Properties.hs b/tests/Properties.hs
index 34b6388..3013985 100644
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -103,6 +103,7 @@ hidden_spaces x = map workspace (visible x) ++ hidden x
invariant (s :: T) = and
-- no duplicates
[ noDuplicates
+ , accurateSize
-- all this xinerama stuff says we don't have the right structure
-- , validScreens
@@ -115,6 +116,8 @@ invariant (s :: T) = and
| w <- workspace (current s) : map workspace (visible s) ++ hidden s
, let t = stack w, t /= Empty ] :: [Char]
noDuplicates = nub ws == ws
+ calculatedSize = length (visible s) + length (hidden s) + 1 -- +1 is for current
+ accurateSize = calculatedSize == size s
-- validScreens = monotonic . sort . M. . (W.current s : W.visible : W$ s