530 |
530 |
mapM_ (uncurry (HUnit.assertEqual "Different result after encoding/decoding")
|
531 |
531 |
) $ zip decoded instances
|
532 |
532 |
|
|
533 |
-- | Tests that the logical ID is correctly found in a plain disk
|
|
534 |
caseIncludeLogicalIdPlain :: HUnit.Assertion
|
|
535 |
caseIncludeLogicalIdPlain =
|
|
536 |
let vg_name = "xenvg" :: String
|
|
537 |
lv_name = "1234sdf-qwef-2134-asff-asd2-23145d.data" :: String
|
|
538 |
d =
|
|
539 |
Disk (LIDPlain vg_name lv_name) [] "diskname" 1000 DiskRdWr
|
|
540 |
Nothing Nothing "asdfgr-1234-5123-daf3-sdfw-134f43"
|
|
541 |
in
|
|
542 |
HUnit.assertBool "Unable to detect that plain Disk includes logical ID" $
|
|
543 |
includesLogicalId vg_name lv_name d
|
|
544 |
|
|
545 |
-- | Tests that the logical ID is correctly found in a DRBD disk
|
|
546 |
caseIncludeLogicalIdDrbd :: HUnit.Assertion
|
|
547 |
caseIncludeLogicalIdDrbd =
|
|
548 |
let vg_name = "xenvg" :: String
|
|
549 |
lv_name = "1234sdf-qwef-2134-asff-asd2-23145d.data" :: String
|
|
550 |
d =
|
|
551 |
Disk
|
|
552 |
(LIDDrbd8 "node1.example.com" "node2.example.com" 2000 1 5 "secret")
|
|
553 |
[ Disk (LIDPlain "onevg" "onelv") [] "disk1" 1000 DiskRdWr Nothing
|
|
554 |
Nothing "145145-asdf-sdf2-2134-asfd-534g2x"
|
|
555 |
, Disk (LIDPlain vg_name lv_name) [] "disk2" 1000 DiskRdWr Nothing
|
|
556 |
Nothing "6gd3sd-423f-ag2j-563b-dg34-gj3fse"
|
|
557 |
] "diskname" 1000 DiskRdWr Nothing Nothing
|
|
558 |
"asdfgr-1234-5123-daf3-sdfw-134f43"
|
|
559 |
in
|
|
560 |
HUnit.assertBool "Unable to detect that plain Disk includes logical ID" $
|
|
561 |
includesLogicalId vg_name lv_name d
|
|
562 |
|
|
563 |
-- | Tests that the logical ID is correctly NOT found in a plain disk
|
|
564 |
caseNotIncludeLogicalIdPlain :: HUnit.Assertion
|
|
565 |
caseNotIncludeLogicalIdPlain =
|
|
566 |
let vg_name = "xenvg" :: String
|
|
567 |
lv_name = "1234sdf-qwef-2134-asff-asd2-23145d.data" :: String
|
|
568 |
d =
|
|
569 |
Disk (LIDPlain "othervg" "otherlv") [] "diskname" 1000 DiskRdWr
|
|
570 |
Nothing Nothing "asdfgr-1234-5123-daf3-sdfw-134f43"
|
|
571 |
in
|
|
572 |
HUnit.assertBool "Unable to detect that plain Disk includes logical ID" $
|
|
573 |
not (includesLogicalId vg_name lv_name d)
|
|
574 |
|
533 |
575 |
testSuite "Objects"
|
534 |
576 |
[ 'prop_fillDict
|
535 |
577 |
, 'prop_Disk_serialisation
|
... | ... | |
542 |
584 |
, 'casePyCompatInstances
|
543 |
585 |
, 'prop_nextIp4Address
|
544 |
586 |
, 'caseNextIp4Address
|
|
587 |
, 'caseIncludeLogicalIdPlain
|
|
588 |
, 'caseIncludeLogicalIdDrbd
|
|
589 |
, 'caseNotIncludeLogicalIdPlain
|
545 |
590 |
]
|