Revision 086ad4cf htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
438 438 
-- be skipped).
439 439 
case_py_compat :: HUnit.Assertion
440 440 
case_py_compat = do
441 
  let num_opcodes = length OpCodes.allOpIDs * 500
441 
  let num_opcodes = length OpCodes.allOpIDs * 100
442 442 
  sample_opcodes <- sample' (vectorOf num_opcodes
443 443 
                             (arbitrary::Gen OpCodes.OpCode))
444 444 
  let opcodes = head sample_opcodes

Also available in: Unified diff