Revision eb62691c test/hs/Test/Ganeti/Block/Drbd/Types.hs

b/test/hs/Test/Ganeti/Block/Drbd/Types.hs
84 84 
  ep <- genMaybe natural
85 85 
  wo <- genMaybe wOrderFlag
86 86 
  oos <- genMaybe natural
87 
  inst <- genMaybe arbitrary
87 88 
  let obtained =
88 89 
          showJSON $
89 90 
            DeviceInfo minor state (LocalRemote locRole remRole)
......
91 92 
              Nothing
92 93 
              Nothing
93 94 
              Nothing
95 
              inst
94 96 
      perfInd =
95 97 
        PerfIndicators ns nr dw dr al bm lc pe ua ap ep wo oos
96 98 
      expected =
......
104 106 
          , ("replicationProtocol", showJSON alg)
105 107 
          , ("ioFlags", showJSON "r----")
106 108 
          , ("perfIndicators", showJSON perfInd)
109 
          , ("instance", maybe JSNull showJSON inst)
107 110 
          ]
108 111 
  obtained ==? expected
109 112 

  		












Also available in:
  Unified diff