Commit e3ae9508 authored by Iustin Pop's avatar Iustin Pop
Browse files

Fix some warnings in unittests

parent 4886952e
......@@ -643,8 +643,8 @@ prop_ClusterCanTieredAlloc node inst =
il = Container.empty
in case Cluster.tieredAlloc nl il inst rqnodes [] of
Types.Bad _ -> False
Types.Ok (_, _, il, ixes) -> not (null ixes) &&
IntMap.size il == length ixes
Types.Ok (_, _, il', ixes) -> not (null ixes) &&
IntMap.size il' == length ixes
-- | Checks that on a 4-8 node cluster, once we allocate an instance,
-- we can also evacuate it
......@@ -687,7 +687,7 @@ prop_ClusterAllocBalance node =
i_templ = createInstance Types.unitMem Types.unitDsk Types.unitCpu
in case Cluster.iterateAlloc nl' il i_templ rqnodes [] of
Types.Bad _ -> False
Types.Ok (_, xnl, il', insts) ->
Types.Ok (_, xnl, il', _) ->
let ynl = Container.add (Node.idx hnode) hnode xnl
cv = Cluster.compCV ynl
tbl = Cluster.Table ynl il' cv []
......
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