1 /* Copyright (c) 2007-2016. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
7 #include "simgrid/simdag.h"
9 XBT_LOG_NEW_DEFAULT_CATEGORY(test, "Property test");
11 int main(int argc, char **argv)
13 xbt_dict_cursor_t cursor = NULL;
15 char noexist[] = "NoProp";
19 /* SD initialization */
21 xbt_assert(argc > 1, "Usage: %s platform_file\n\tExample: %s ../../platforms/prop.xml", argv[0], argv[0]);
23 SD_create_environment(argv[1]);
25 /* init of platform elements */
26 sg_host_t h1 = sg_host_by_name("host1");
27 sg_host_t h2 = sg_host_by_name("host2");
28 const char *name1 = sg_host_get_name(h1);
29 const char *name2 = sg_host_get_name(h2);
31 /* Get the property list of 'host1' */
32 XBT_INFO("Property list for host %s", name1);
33 xbt_dict_t props = sg_host_get_properties(h1);
35 /* Trying to set a new property */
36 xbt_dict_set(props, "NewProp", strdup("newValue"), xbt_free_f);
38 /* Print the properties of 'host1' */
39 xbt_dict_foreach(props, cursor, key, data) {
40 XBT_INFO("\tProperty: %s has value: %s", key, data);
43 /* Try to get a property that does not exist */
44 value = sg_host_get_property_value(h1, noexist);
45 XBT_INFO("\tProperty: %s has value: %s", noexist, value?value:"Undefined (NULL)");
47 /* Get the property list of 'host2' */
48 XBT_INFO("Property list for host %s", name2);
49 props = sg_host_get_properties(h2);
51 /* Print the properties of 'host2' */
52 xbt_dict_foreach(props, cursor, key, data) {
53 XBT_INFO("\tProperty: %s on host: %s", key, data);
56 /* Modify an existing property test. First check it exists */
57 XBT_INFO("Modify an existing property");
59 value = sg_host_get_property_value(h2, exist);
61 XBT_INFO("\tProperty: %s is undefined", exist);
63 XBT_INFO("\tProperty: %s old value: %s", exist, value);
64 xbt_dict_set(props, exist, strdup("250"), xbt_free_f);
67 /* Test if we have changed the value */
68 value = sg_host_get_property_value(h2, exist);
69 XBT_INFO("\tProperty: %s new value: %s", exist, value?value:"Undefined (NULL)");
71 /* Test if properties are displayed by sg_host_dump */