Commit 286b7335 authored by Iustin Pop's avatar Iustin Pop
Browse files

Add a simple QA test for gnt-node list-drbd



This will be run only if 'haskell-confd' QA configuration has been
enabled.
Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarAgata Murawska <agatamurawska@google.com>
parent 7acbda7b
......@@ -490,6 +490,8 @@ def RunQa():
snode = qa_config.AcquireNode(exclude=pnode)
try:
instance = RunTest(func, pnode, snode)
RunTestIf("haskell-confd", qa_node.TestNodeListDrbd, pnode)
RunTestIf("haskell-confd", qa_node.TestNodeListDrbd, snode)
RunCommonInstanceTests(instance)
RunGroupListTests()
RunTest(qa_group.TestAssignNodesIncludingSplit,
......
......@@ -95,6 +95,8 @@
"cluster-redist-conf": true,
"cluster-repair-disk-sizes": true,
"haskell-confd": true,
"group-list": true,
"group-rwops": true,
......
#
#
# Copyright (C) 2007, 2011 Google Inc.
# Copyright (C) 2007, 2011, 2012 Google Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
......@@ -417,3 +417,8 @@ def TestNodeList():
def TestNodeListFields():
"""gnt-node list-fields"""
qa_utils.GenericQueryFieldsTest("gnt-node", query.NODE_FIELDS.keys())
def TestNodeListDrbd(node):
"""gnt-node list-drbd"""
AssertCommand(["gnt-node", "list-drbd", node["primary"]])
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