tests/qmp-cmd-test.c

   1 /*
   2  * QMP command test cases
   3  *
   4  * Copyright (c) 2017 Red Hat Inc.
   5  *
   6  * Authors:
   7  *  Markus Armbruster <armbru@redhat.com>
   8  *
   9  * This work is licensed under the terms of the GNU GPL, version 2 or later.
  10  * See the COPYING file in the top-level directory.
  11  */
  12
  13 #include "qemu/osdep.h"
  14 #include "libqtest.h"
  15 #include "qapi/error.h"
  16 #include "qapi/qapi-visit-introspect.h"
  17 #include "qapi/qmp/qdict.h"
  18 #include "qapi/qobject-input-visitor.h"
  19
  20 const char common_args[] = "-nodefaults -machine none";
  21
  22 /* Query smoke tests */
  23
  24 static int query_error_class(const char *cmd)
  25 {
  26     static struct {
  27         const char *cmd;
  28         int err_class;
  29     } fails[] = {
  30         /* Success depends on build configuration: */
  31 #ifndef CONFIG_SPICE
  32         { "query-spice", ERROR_CLASS_COMMAND_NOT_FOUND },
  33 #endif
  34 #ifndef CONFIG_VNC
  35         { "query-vnc", ERROR_CLASS_GENERIC_ERROR },
  36         { "query-vnc-servers", ERROR_CLASS_GENERIC_ERROR },
  37 #endif
  38 #ifndef CONFIG_REPLICATION
  39         { "query-xen-replication-status", ERROR_CLASS_COMMAND_NOT_FOUND },
  40 #endif
  41         /* Likewise, and require special QEMU command-line arguments: */
  42         { "query-acpi-ospm-status", ERROR_CLASS_GENERIC_ERROR },
  43         { "query-balloon", ERROR_CLASS_DEVICE_NOT_ACTIVE },
  44         { "query-hotpluggable-cpus", ERROR_CLASS_GENERIC_ERROR },
  45         { "query-vm-generation-id", ERROR_CLASS_GENERIC_ERROR },
  46         { NULL, -1 }
  47     };
  48     int i;
  49
  50     for (i = 0; fails[i].cmd; i++) {
  51         if (!strcmp(cmd, fails[i].cmd)) {
  52             return fails[i].err_class;
  53         }
  54     }
  55     return -1;
  56 }
  57
  58 static void test_query(const void *data)
  59 {
  60     const char *cmd = data;
  61     int expected_error_class = query_error_class(cmd);
  62     QDict *resp, *error;
  63     const char *error_class;
  64     QTestState *qts;
  65
  66     qts = qtest_init(common_args);
  67
  68     resp = qtest_qmp(qts, "{ 'execute': %s }", cmd);
  69     error = qdict_get_qdict(resp, "error");
  70     error_class = error ? qdict_get_str(error, "class") : NULL;
  71
  72     if (expected_error_class < 0) {
  73         g_assert(qdict_haskey(resp, "return"));
  74     } else {
  75         g_assert(error);
  76         g_assert_cmpint(qapi_enum_parse(&QapiErrorClass_lookup, error_class,
  77                                         -1, &error_abort),
  78                         ==, expected_error_class);
  79     }
  80     qobject_unref(resp);
  81
  82     qtest_quit(qts);
  83 }
  84
  85 static bool query_is_blacklisted(const char *cmd)
  86 {
  87     const char *blacklist[] = {
  88         /* Not actually queries: */
  89         "add-fd",
  90         /* Success depends on target arch: */
  91         "query-cpu-definitions",  /* arm, i386, ppc, s390x */
  92         "query-gic-capabilities", /* arm */
  93         /* Success depends on target-specific build configuration: */
  94         "query-pci",              /* CONFIG_PCI */
  95         /* Success depends on launching SEV guest */
  96         "query-sev-launch-measure",
  97         /* Success depends on Host or Hypervisor SEV support */
  98         "query-sev",
  99         "query-sev-capabilities",
 100         NULL
 101     };
 102     int i;
 103
 104     for (i = 0; blacklist[i]; i++) {
 105         if (!strcmp(cmd, blacklist[i])) {
 106             return true;
 107         }
 108     }
 109     return false;
 110 }
 111
 112 typedef struct {
 113     SchemaInfoList *list;
 114     GHashTable *hash;
 115 } QmpSchema;
 116
 117 static void qmp_schema_init(QmpSchema *schema)
 118 {
 119     QDict *resp;
 120     Visitor *qiv;
 121     SchemaInfoList *tail;
 122     QTestState *qts;
 123
 124     qts = qtest_init(common_args);
 125
 126     resp = qtest_qmp(qts, "{ 'execute': 'query-qmp-schema' }");
 127
 128     qiv = qobject_input_visitor_new(qdict_get(resp, "return"));
 129     visit_type_SchemaInfoList(qiv, NULL, &schema->list, &error_abort);
 130     visit_free(qiv);
 131
 132     qobject_unref(resp);
 133     qtest_quit(qts);
 134
 135     schema->hash = g_hash_table_new(g_str_hash, g_str_equal);
 136
 137     /* Build @schema: hash table mapping entity name to SchemaInfo */
 138     for (tail = schema->list; tail; tail = tail->next) {
 139         g_hash_table_insert(schema->hash, tail->value->name, tail->value);
 140     }
 141 }
 142
 143 static SchemaInfo *qmp_schema_lookup(QmpSchema *schema, const char *name)
 144 {
 145     return g_hash_table_lookup(schema->hash, name);
 146 }
 147
 148 static void qmp_schema_cleanup(QmpSchema *schema)
 149 {
 150     qapi_free_SchemaInfoList(schema->list);
 151     g_hash_table_destroy(schema->hash);
 152 }
 153
 154 static bool object_type_has_mandatory_members(SchemaInfo *type)
 155 {
 156     SchemaInfoObjectMemberList *tail;
 157
 158     g_assert(type->meta_type == SCHEMA_META_TYPE_OBJECT);
 159
 160     for (tail = type->u.object.members; tail; tail = tail->next) {
 161         if (!tail->value->has_q_default) {
 162             return true;
 163         }
 164     }
 165
 166     return false;
 167 }
 168
 169 static void add_query_tests(QmpSchema *schema)
 170 {
 171     SchemaInfoList *tail;
 172     SchemaInfo *si, *arg_type, *ret_type;
 173     char *test_name;
 174
 175     /* Test the query-like commands */
 176     for (tail = schema->list; tail; tail = tail->next) {
 177         si = tail->value;
 178         if (si->meta_type != SCHEMA_META_TYPE_COMMAND) {
 179             continue;
 180         }
 181
 182         if (query_is_blacklisted(si->name)) {
 183             continue;
 184         }
 185
 186         arg_type = qmp_schema_lookup(schema, si->u.command.arg_type);
 187         if (object_type_has_mandatory_members(arg_type)) {
 188             continue;
 189         }
 190
 191         ret_type = qmp_schema_lookup(schema, si->u.command.ret_type);
 192         if (ret_type->meta_type == SCHEMA_META_TYPE_OBJECT
 193             && !ret_type->u.object.members) {
 194             continue;
 195         }
 196
 197         test_name = g_strdup_printf("qmp/%s", si->name);
 198         qtest_add_data_func(test_name, si->name, test_query);
 199         g_free(test_name);
 200     }
 201 }
 202
 203 static void test_object_add_without_props(void)
 204 {
 205     QTestState *qts;
 206     QDict *resp;
 207
 208     qts = qtest_init(common_args);
 209     resp = qtest_qmp(qts, "{'execute': 'object-add', 'arguments':"
 210                     " {'qom-type': 'memory-backend-ram', 'id': 'ram1' } }");
 211     g_assert_nonnull(resp);
 212     qmp_assert_error_class(resp, "GenericError");
 213     qtest_quit(qts);
 214 }
 215
 216 int main(int argc, char *argv[])
 217 {
 218     QmpSchema schema;
 219     int ret;
 220
 221     g_test_init(&argc, &argv, NULL);
 222
 223     qmp_schema_init(&schema);
 224     add_query_tests(&schema);
 225
 226     qtest_add_func("qmp/object-add-without-props",
 227                    test_object_add_without_props);
 228     /* TODO: add coverage of generic object-add failure modes */
 229
 230     ret = g_test_run();
 231
 232     qmp_schema_cleanup(&schema);
 233     return ret;
 234 }