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: Hrvoje Ribicic <riba@google.com>
Reviewed-by: Michele Tartara <mtartara@google.com>

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.