Commit 095d7ac0 authored by Iustin Pop's avatar Iustin Pop
Browse files

A simple test for Container.addTwo

parent 7bc82927
...@@ -18,7 +18,7 @@ import qualified Ganeti.HTools.Utils as Utils ...@@ -18,7 +18,7 @@ import qualified Ganeti.HTools.Utils as Utils
-- copied from the introduction to quickcheck -- copied from the introduction to quickcheck
instance Arbitrary Char where instance Arbitrary Char where
arbitrary = choose ('\32', '\128') arbitrary = choose ('\32', '\128')
-- let's generate a random instance -- let's generate a random instance
instance Arbitrary Instance.Instance where instance Arbitrary Instance.Instance where
...@@ -81,6 +81,17 @@ prop_PeerMap_maxElem pmap = ...@@ -81,6 +81,17 @@ prop_PeerMap_maxElem pmap =
where _types = pmap::PeerMap.PeerMap where _types = pmap::PeerMap.PeerMap
puniq = PeerMap.accumArray const pmap puniq = PeerMap.accumArray const pmap
-- Container tests
prop_Container_addTwo cdata i1 i2 =
fn i1 i2 cont == fn i2 i1 cont &&
fn i1 i2 cont == fn i1 i2 (fn i1 i2 cont)
where _types = (cdata::[Int],
i1::Int, i2::Int)
cont = foldl (\c x -> Container.add x x c) Container.empty cdata
fn x1 x2 = Container.addTwo x1 x1 x2 x2
-- Simple instance tests, we only have setter/getters -- Simple instance tests, we only have setter/getters
prop_Instance_setIdx inst idx = prop_Instance_setIdx inst idx =
......
...@@ -21,6 +21,9 @@ main = do ...@@ -21,6 +21,9 @@ main = do
, run prop_PeerMap_findMissing , run prop_PeerMap_findMissing
] ]
runTests "Container" options
[ run prop_Container_addTwo ]
runTests "Instance" options runTests "Instance" options
[ run prop_Instance_setIdx [ run prop_Instance_setIdx
, run prop_Instance_setName , run prop_Instance_setName
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment