Synnefo » snf-ganeti

testFile :: String -> DRBDStatus -> Assertion

testFile fileName expectedContent = do

    fileContent <- readTestData fileName

        Left msg -> assertFailure $ "Parsing failed: " ++ msg

        Right obtained -> assertEqual fileName expectedContent obtained

          Nothing Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 65657 135 0 0 135)

      UnconfiguredDevice 1,

      UnconfiguredDevice 2,

      UnconfiguredDevice 5,

          (Just 'b') (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 1 Connected (LocalRemote Secondary Primary)

        (LocalRemote UpToDate UpToDate) 'C' "r---"

          (Just 0))

        Nothing

        Nothing

        Nothing,

      UnconfiguredDevice 2,

      DeviceInfo 3 SyncSource (LocalRemote Primary Secondary)

        (Just $ SyncStatus 2.4 14996 15360 MegaByte (Time 0 4 8) 61736 Nothing

          KiloByte Second)

        Nothing

        Nothing,

      DeviceInfo 4 WFConnection (LocalRemote Primary Unknown)

        (LocalRemote UpToDate DUnknown) 'C' "r----"

        Nothing

        Nothing

        Nothing

    ]

-- | Test a DRBD 8.3 file with an ongoing synchronization.

          (Just 'b') (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 1 Connected (LocalRemote Secondary Primary)

        (LocalRemote UpToDate UpToDate) 'C' "r---"

          (Just 0))

        Nothing

        Nothing

        Nothing,

      UnconfiguredDevice 2,

      DeviceInfo 3 SyncTarget (LocalRemote Primary Secondary)

        (Just $ SyncStatus 34.9 346112 524288 MegaByte (Time 0 0 5) 59392

          Nothing KiloByte Second)

        Nothing

        Nothing,

      DeviceInfo 4 WFConnection (LocalRemote Primary Unknown)

        (LocalRemote UpToDate DUnknown) 'C' "r----"

        Nothing

        Nothing

        Nothing

    ]

-- | Test a DRBD 8.3 file not from git sources, with an ongoing synchronization

        (Just $ SyncStatus 44.4 588416 1048576 KiloByte (Time 0 0 8) 65736

          (Just 61440) KiloByte Second)

        Nothing

        Nothing,

      UnconfiguredDevice 1,

      UnconfiguredDevice 2,

          (Just 'b') (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 1 Connected (LocalRemote Secondary Primary)

        (LocalRemote UpToDate UpToDate) 'C' "r---"

          (Just 0))

        Nothing

        Nothing

        Nothing,

      UnconfiguredDevice 2,

      DeviceInfo 4 WFConnection (LocalRemote Primary Unknown)

          (Just 'b') (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 5 Connected (LocalRemote Primary Secondary)

        (LocalRemote UpToDate Diskless) 'C' "r----"

          (Just 'b') (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 6 Connected (LocalRemote Secondary Primary)

        (LocalRemote Diskless UpToDate) 'C' "r---"

          (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 7 WFConnection (LocalRemote Secondary Unknown)

        (LocalRemote UpToDate DUnknown) 'C' "r---"

          (Just 0))

        Nothing

        Nothing

        Nothing,

      DeviceInfo 8 StandAlone (LocalRemote Secondary Unknown)

        (LocalRemote UpToDate DUnknown) ' ' "r---"

        Nothing

        Nothing

        Nothing

    ]

-- | Test a DRBD 8.0 file with a missing device.

          Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 0 0 0 0 0)

      DeviceInfo 1 Connected (LocalRemote Secondary Primary)

        (LocalRemote UpToDate UpToDate) 'C' "r---"

        (PerfIndicators 738320 0 738320 554400 67 0 0 0 0 0 Nothing

          Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 0 0 0 0 0)

      UnconfiguredDevice 2,

      DeviceInfo 4 WFConnection (LocalRemote Primary Unknown)

        (LocalRemote UpToDate DUnknown) 'C' "r---"

          Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 0 0 0 0 0)

      DeviceInfo 5 Connected (LocalRemote Primary Secondary)

        (LocalRemote UpToDate Diskless) 'C' "r---"

        (PerfIndicators 4375581 0 4446283 674 1069 69 0 0 0 0 Nothing

          Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 0 0 0 0 0)

      DeviceInfo 6 Connected (LocalRemote Secondary Primary)

        (LocalRemote Diskless UpToDate) 'C'  "r---"

        (PerfIndicators 0 4375581 5186925 327 75 214 0 0 0 0 Nothing

          Nothing Nothing)

        Nothing

        Nothing

        Nothing,

      DeviceInfo 7 WFConnection (LocalRemote Secondary Unknown)

        (LocalRemote UpToDate DUnknown) 'C' "r---"

        (PerfIndicators 0 0 0 0 0 0 0 0 0 0 Nothing Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 0 0 0 0 0)

      DeviceInfo 8 StandAlone (LocalRemote Secondary Unknown)

        (LocalRemote UpToDate DUnknown) ' ' "r---"

        (PerfIndicators 0 0 0 0 0 0 0 0 0 0 Nothing Nothing Nothing)

        Nothing

        (Just $ AdditionalInfo 0 61 0 0 0 0 0)

        (Just $ AdditionalInfo 0 257 0 0 0 0 0)

    ]

-- | Function for splitting a list in chunks of a given size.