Revision df8578fb htest/Test/Ganeti/HTools/Container.hs

b/htest/Test/Ganeti/HTools/Container.hs
63 63 
  forAll (genNode (Just 1) Nothing) $ \node ->
64 64 
  forAll (choose (1, 20)) $ \ cnt ->
65 65 
  forAll (choose (0, cnt - 1)) $ \ fidx ->
66 
  forAll (genUniquesList (cnt * 2)) $ \ allnames ->
66 
  forAll (genUniquesList (cnt * 2) arbitrary) $ \ allnames ->
67 67 
  forAll (arbitrary `suchThat` (`notElem` allnames)) $ \ othername ->
68 68 
  let names = zip (take cnt allnames) (drop cnt allnames)
69 69 
      nl = makeSmallCluster node cnt

Also available in: Unified diff