From 434c15d5a407e461a4e9c8a134952ea3210271cc Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Wed, 2 Dec 2009 11:51:47 +0100
Subject: [PATCH] Fix unittests after instance tags addition
---
Ganeti/HTools/QC.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/Ganeti/HTools/QC.hs b/Ganeti/HTools/QC.hs
index 1d831425a..35c4b1e71 100644
--- a/Ganeti/HTools/QC.hs
+++ b/Ganeti/HTools/QC.hs
@@ -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
--
GitLab