Commit 434c15d5 authored by Iustin Pop's avatar Iustin Pop
Browse files

Fix unittests after instance tags addition

parent 70c708fc
......@@ -69,7 +69,7 @@ instance Arbitrary Instance.Instance where
pn <- arbitrary
sn <- arbitrary
vcpus <- arbitrary
return $ Instance.create name mem dsk vcpus run_st pn sn
return $ Instance.create name mem dsk vcpus run_st [] pn sn
-- and a random node
instance Arbitrary Node.Node where
......@@ -199,8 +199,9 @@ prop_Text_Load_Instance name mem dsk vcpus status pnode snode pdx sdx =
then sdx + 1
else sdx
ndx = [(pnode, pdx), (rsnode, rsdx)]
tags = ""
inst = Text.loadInst ndx
[name, mem_s, dsk_s, vcpus_s, status, pnode, rsnode]::
[name, mem_s, dsk_s, vcpus_s, status, pnode, rsnode, tags]::
Maybe (String, Instance.Instance)
_types = ( name::String, mem::Int, dsk::Int
, vcpus::Int, status::String
......
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