Revision 95e00de7

b/test/hs/Test/Ganeti/OpCodes.hs
62 62 
  arbitrary = oneof [ OpCodes.TagInstance <$> genFQDN
63 63 
                    , OpCodes.TagNode     <$> genFQDN
64 64 
                    , OpCodes.TagGroup    <$> genFQDN
65 
                    , OpCodes.TagNetwork  <$> genFQDN
65 66 
                    , pure OpCodes.TagCluster
66 67 
                    ]
67 68 

  		





  ......




  538
  539
  
    
    , (TagTypeInstance, J.JSNull)


  		





  539
  540
  
    
    , (TagTypeNode,     J.JSNull)


  		





  540
  541
  
    
    , (TagTypeGroup,    J.JSNull)


  		





  
  542
  
    
    , (TagTypeNetwork,  J.JSNull)


  		





  541
  543
  
    
    ]


  		





  542
  544
  
    

  		





  543
  545
  
    
-- | Tests wrong (negative) disk index.


  		












Also available in:
  Unified diff