Revision f361a6ee test/hs/Test/Ganeti/HTools/Types.hs
b/test/hs/Test/Ganeti/HTools/Types.hs | ||
---|---|---|
41 | 41 |
import Test.HUnit |
42 | 42 |
|
43 | 43 |
import Control.Applicative |
44 |
import Data.List (sort) |
|
45 | 44 |
import Control.Monad (replicateM) |
46 | 45 |
|
47 | 46 |
import Test.Ganeti.TestHelper |
... | ... | |
51 | 50 |
|
52 | 51 |
import Ganeti.BasicTypes |
53 | 52 |
import qualified Ganeti.Constants as C |
53 |
import Ganeti.ConstantUtils |
|
54 | 54 |
import qualified Ganeti.HTools.Types as Types |
55 | 55 |
|
56 | 56 |
{-# ANN module "HLint: ignore Use camelCase" #-} |
... | ... | |
185 | 185 |
, Types.ArFailover |
186 | 186 |
, Types.ArReinstall |
187 | 187 |
] |
188 |
all_hs_raw = map Types.autoRepairTypeToRaw [minBound..maxBound] |
|
188 |
all_hs_raw = mkSet $ map Types.autoRepairTypeToRaw [minBound..maxBound]
|
|
189 | 189 |
assertEqual "Haskell order" expected [minBound..maxBound] |
190 | 190 |
assertEqual "consistent with Python" C.autoRepairAllTypes all_hs_raw |
191 | 191 |
|
192 | 192 |
-- | Test 'AutoRepairResult' type is equivalent with Python codebase. |
193 | 193 |
case_AutoRepairResult_pyequiv :: Assertion |
194 | 194 |
case_AutoRepairResult_pyequiv = do |
195 |
let all_py_results = sort C.autoRepairAllResults
|
|
196 |
all_hs_results = sort $
|
|
195 |
let all_py_results = C.autoRepairAllResults |
|
196 |
all_hs_results = mkSet $
|
|
197 | 197 |
map Types.autoRepairResultToRaw [minBound..maxBound] |
198 | 198 |
assertEqual "for AutoRepairResult equivalence" all_py_results all_hs_results |
199 | 199 |
|
Also available in: Unified diff