#include <assert.h>

#include <stdlib.h>

#include <byteswap.h>

#ifdef HAVE_GLIB

#include <gio/gio.h>

#endif

#ifdef HAVE_DBUS

#include <dbus/dbus.h>

#endif

#include "log.h"

#include "util.h"

#include "sd-bus.h"

#include "bus-message.h"

#include "bus-util.h"

#include "bus-dump.h"

static void test_bus_label_escape_one(const char *a, const char *b) {

_cleanup_free_ char *t = NULL, *x = NULL, *y = NULL;

assert_se(t = sd_bus_label_escape(a));

assert_se(streq(t, b));

assert_se(x = sd_bus_label_unescape(t));

assert_se(streq(a, x));

assert_se(y = sd_bus_label_unescape(b));

assert_se(streq(a, y));

}

static void test_bus_label_escape(void) {

test_bus_label_escape_one("foo123bar", "foo123bar");

test_bus_label_escape_one("foo.bar", "foo_2ebar");

test_bus_label_escape_one("foo_2ebar", "foo_5f2ebar");

test_bus_label_escape_one("", "_");

test_bus_label_escape_one("_", "_5f");

test_bus_label_escape_one("1", "_31");

test_bus_label_escape_one(":1", "_3a1");

}

int main(int argc, char *argv[]) {

_cleanup_bus_message_unref_ sd_bus_message *m = NULL, *copy = NULL;

int r, boolean;

const char *x, *x2, *y, *z, *a, *b, *c, *d;

uint8_t u, v;

void *buffer = NULL;

size_t sz;

char *h;

const int32_t integer_array[] = { -1, -2, 0, 1, 2 }, *return_array;

char *s;

_cleanup_free_ char *first = NULL, *second = NULL, *third = NULL;

_cleanup_fclose_ FILE *ms = NULL;

size_t first_size = 0, second_size = 0, third_size = 0;

r = sd_bus_message_new_method_call(NULL, "foobar.waldo", "/", "foobar.waldo", "Piep", &m);

assert_se(r >= 0);

r = sd_bus_message_append(m, "s", "a string");

assert_se(r >= 0);

r = sd_bus_message_append(m, "s", NULL);

assert_se(r >= 0);

r = sd_bus_message_append(m, "as", 2, "string #1", "string #2");

assert_se(r >= 0);

r = sd_bus_message_append(m, "sass", "foobar", 5, "foo", "bar", "waldo", "piep", "pap", "after");

assert_se(r >= 0);

r = sd_bus_message_append(m, "a{yv}", 2, 3, "s", "foo", 5, "s", "waldo");

assert_se(r >= 0);

r = sd_bus_message_append(m, "ba(ss)", 255, 3, "aaa", "1", "bbb", "2", "ccc", "3");

assert_se(r >= 0);

r = sd_bus_message_open_container(m, 'a', "s");

assert_se(r >= 0);

r = sd_bus_message_append_basic(m, 's', "foobar");

assert_se(r >= 0);

r = sd_bus_message_append_basic(m, 's', "waldo");

assert_se(r >= 0);

r = sd_bus_message_close_container(m);

assert_se(r >= 0);

r = sd_bus_message_append_string_space(m, 5, &s);

assert_se(r >= 0);

strcpy(s, "hallo");

r = sd_bus_message_append_array(m, 'i', integer_array, sizeof(integer_array));

assert_se(r >= 0);

r = sd_bus_message_append_array(m, 'u', NULL, 0);

assert_se(r >= 0);

r = bus_message_seal(m, 4711);

assert_se(r >= 0);

bus_message_dump(m, stdout, true);

ms = open_memstream(&first, &first_size);

bus_message_dump(m, ms, false);

fflush(ms);

assert_se(!ferror(ms));

r = bus_message_get_blob(m, &buffer, &sz);

assert_se(r >= 0);

h = hexmem(buffer, sz);

assert_se(h);

log_info("message size = %lu, contents =\n%s", (unsigned long) sz, h);

free(h);

#ifdef HAVE_GLIB

{

GDBusMessage *g;

char *p;

#if !defined(GLIB_VERSION_2_36)

g_type_init();

#endif

g = g_dbus_message_new_from_blob(buffer, sz, 0, NULL);

p = g_dbus_message_print(g, 0);

log_info("%s", p);

g_free(p);

g_object_unref(g);

}

#endif

#ifdef HAVE_DBUS

{

DBusMessage *w;

DBusError error;

dbus_error_init(&error);

w = dbus_message_demarshal(buffer, sz, &error);

if (!w) {

log_error("%s", error.message);

} else

dbus_message_unref(w);

}

#endif

m = sd_bus_message_unref(m);

r = bus_message_from_malloc(NULL, buffer, sz, NULL, 0, NULL, NULL, &m);

assert_se(r >= 0);

bus_message_dump(m, stdout, true);

fclose(ms);

ms = open_memstream(&second, &second_size);

bus_message_dump(m, ms, false);

fflush(ms);

assert_se(!ferror(ms));

assert_se(first_size == second_size);

assert_se(memcmp(first, second, first_size) == 0);

assert_se(sd_bus_message_rewind(m, true) >= 0);

r = sd_bus_message_read(m, "ssas", &x, &x2, 2, &y, &z);

assert_se(r > 0);

assert_se(streq(x, "a string"));

assert_se(streq(x2, ""));

assert_se(streq(y, "string #1"));

assert_se(streq(z, "string #2"));

r = sd_bus_message_read(m, "sass", &x, 5, &y, &z, &a, &b, &c, &d);

assert_se(r > 0);

assert_se(streq(x, "foobar"));

assert_se(streq(y, "foo"));

assert_se(streq(z, "bar"));

assert_se(streq(a, "waldo"));

assert_se(streq(b, "piep"));

assert_se(streq(c, "pap"));

assert_se(streq(d, "after"));

r = sd_bus_message_read(m, "a{yv}", 2, &u, "s", &x, &v, "s", &y);

assert_se(r > 0);

assert_se(u == 3);

assert_se(streq(x, "foo"));

assert_se(v == 5);

assert_se(streq(y, "waldo"));

r = sd_bus_message_read(m, "ba(ss)", &boolean, 3, &x, &y, &a, &b, &c, &d);

assert_se(r > 0);

assert_se(boolean);

assert_se(streq(x, "aaa"));

assert_se(streq(y, "1"));

assert_se(streq(a, "bbb"));

assert_se(streq(b, "2"));

assert_se(streq(c, "ccc"));

assert_se(streq(d, "3"));

assert_se(sd_bus_message_verify_type(m, 'a', "s") > 0);

r = sd_bus_message_read(m, "as", 2, &x, &y);

assert_se(r > 0);

assert_se(streq(x, "foobar"));

assert_se(streq(y, "waldo"));

r = sd_bus_message_read_basic(m, 's', &s);

assert_se(r > 0);

assert_se(streq(s, "hallo"));

r = sd_bus_message_read_array(m, 'i', (const void**) &return_array, &sz);

assert_se(r > 0);

assert_se(sz == sizeof(integer_array));

assert_se(memcmp(integer_array, return_array, sz) == 0);

r = sd_bus_message_read_array(m, 'u', (const void**) &return_array, &sz);

assert_se(r > 0);

assert_se(sz == 0);

r = sd_bus_message_peek_type(m, NULL, NULL);

assert_se(r == 0);

r = sd_bus_message_new_method_call(NULL, "foobar.waldo", "/", "foobar.waldo", "Piep", &copy);

assert_se(r >= 0);

r = sd_bus_message_rewind(m, true);

assert_se(r >= 0);

r = sd_bus_message_copy(copy, m, true);

assert_se(r >= 0);

r = bus_message_seal(copy, 4712);

assert_se(r >= 0);

fclose(ms);

ms = open_memstream(&third, &third_size);

bus_message_dump(copy, ms, false);

fflush(ms);

assert_se(!ferror(ms));

printf("<%.*s>", (int) first_size, first);

printf("<%.*s>", (int) third_size, third);

assert_se(first_size == third_size);

assert_se(memcmp(first, third, third_size) == 0);

r = sd_bus_message_rewind(m, true);

assert_se(r >= 0);

assert_se(sd_bus_message_verify_type(m, 's', NULL) > 0);

r = sd_bus_message_skip(m, "ssas");

assert_se(r > 0);

assert_se(sd_bus_message_verify_type(m, 's', NULL) > 0);

r = sd_bus_message_skip(m, "sass");

assert_se(r >= 0);

assert_se(sd_bus_message_verify_type(m, 'a', "{yv}") > 0);

r = sd_bus_message_skip(m, "a{yv}");

assert_se(r >= 0);

assert_se(sd_bus_message_verify_type(m, 'b', NULL) > 0);

r = sd_bus_message_read(m, "b", &boolean);

assert_se(r > 0);

assert_se(boolean);

r = sd_bus_message_enter_container(m, 0, NULL);

assert_se(r > 0);

r = sd_bus_message_read(m, "(ss)", &x, &y);

assert_se(r > 0);

r = sd_bus_message_read(m, "(ss)", &a, &b);

assert_se(r > 0);

r = sd_bus_message_read(m, "(ss)", &c, &d);

assert_se(r > 0);

r = sd_bus_message_read(m, "(ss)", &x, &y);

assert_se(r == 0);

r = sd_bus_message_exit_container(m);

assert_se(r >= 0);

assert_se(streq(x, "aaa"));

assert_se(streq(y, "1"));

assert_se(streq(a, "bbb"));

assert_se(streq(b, "2"));

assert_se(streq(c, "ccc"));

assert_se(streq(d, "3"));

test_bus_label_escape();

return 0;

}