Commit 95e00de7 authored by Hrvoje Ribicic's avatar Hrvoje Ribicic

Update opcodes test to include network tags

This patch adds the network tags to the list of all other tag types
that can be tried in QuickCheck tests.
Signed-off-by: default avatarHrvoje Ribicic <riba@google.com>
Reviewed-by: default avatarMichele Tartara <mtartara@google.com>
parent 36ccc662
...@@ -62,6 +62,7 @@ instance Arbitrary OpCodes.TagObject where ...@@ -62,6 +62,7 @@ instance Arbitrary OpCodes.TagObject where
arbitrary = oneof [ OpCodes.TagInstance <$> genFQDN arbitrary = oneof [ OpCodes.TagInstance <$> genFQDN
, OpCodes.TagNode <$> genFQDN , OpCodes.TagNode <$> genFQDN
, OpCodes.TagGroup <$> genFQDN , OpCodes.TagGroup <$> genFQDN
, OpCodes.TagNetwork <$> genFQDN
, pure OpCodes.TagCluster , pure OpCodes.TagCluster
] ]
...@@ -538,6 +539,7 @@ case_TagObject_fail = ...@@ -538,6 +539,7 @@ case_TagObject_fail =
, (TagTypeInstance, J.JSNull) , (TagTypeInstance, J.JSNull)
, (TagTypeNode, J.JSNull) , (TagTypeNode, J.JSNull)
, (TagTypeGroup, J.JSNull) , (TagTypeGroup, J.JSNull)
, (TagTypeNetwork, J.JSNull)
] ]
-- | Tests wrong (negative) disk index. -- | Tests wrong (negative) disk index.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment