Update opcodes test to include network tags
authorHrvoje Ribicic <riba@google.com>
Thu, 12 Dec 2013 15:33:04 +0000 (16:33 +0100)
committerHrvoje 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

index 494563f..4fe514f 100644 (file)
@@ -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.