projects
/
ganeti-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
36ccc66
)
Update opcodes test to include network tags
author
Hrvoje Ribicic
<riba@google.com>
Thu, 12 Dec 2013 15:33:04 +0000
(16:33 +0100)
committer
Hrvoje Ribicic
<riba@google.com>
Mon, 16 Dec 2013 15:31:37 +0000
(16:31 +0100)
This patch adds the network tags to the list of all other tag types
that can be tried in QuickCheck tests.
Signed-off-by: Hrvoje Ribicic <riba@google.com>
Reviewed-by: Michele Tartara <mtartara@google.com>
test/hs/Test/Ganeti/OpCodes.hs
patch
|
blob
|
history
diff --git
a/test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs
index
494563f
..
4fe514f
100644
(file)
--- a/
test/hs/Test/Ganeti/OpCodes.hs
+++ b/
test/hs/Test/Ganeti/OpCodes.hs
@@
-62,6
+62,7
@@
instance Arbitrary OpCodes.TagObject where
arbitrary = oneof [ OpCodes.TagInstance <$> genFQDN
, OpCodes.TagNode <$> genFQDN
, OpCodes.TagGroup <$> genFQDN
+ , OpCodes.TagNetwork <$> genFQDN
, pure OpCodes.TagCluster
]
@@
-538,6
+539,7
@@
case_TagObject_fail =
, (TagTypeInstance, J.JSNull)
, (TagTypeNode, J.JSNull)
, (TagTypeGroup, J.JSNull)
+ , (TagTypeNetwork, J.JSNull)
]
-- | Tests wrong (negative) disk index.