Revision 405656b7

b/htest/Test/Ganeti/Network.hs
45 45 
  name <- genName >>= mkNonEmpty
46 46 
  network_type <- genMaybe genNetworkType
47 47 
  mac_prefix <- genMaybe genName
48 
  family <- arbitrary
48 
  fam <- arbitrary
49 49 
  net <- genName >>= mkNonEmpty
50 50 
  net6 <- genMaybe genName
51 51 
  gateway <- genMaybe genName
......
53 53 
  size <- genMaybe genJSValue
54 54 
  res <- liftM Just (genBitString lenBitStr)
55 55 
  ext_res <- liftM Just (genBitString lenBitStr)
56 
  let n = Network name network_type mac_prefix family net net6 gateway
56 
  let n = Network name network_type mac_prefix fam net net6 gateway
57 57 
          gateway6 size res ext_res 0 S.empty
58 58 
  return n
59 59 

  		












Also available in:
  Unified diff