static void test_fact_store_to_string (void) {
void* p;
p = NULL;
{
OhmFactStore* fs;
OhmFact* fact;
OhmFact* _tmp0;
char* s;
fs = ohm_fact_store_new ();
fact = ohm_fact_new ("org.test.match");
p = fact;
g_object_add_weak_pointer (G_OBJECT (fact), &p);
ohm_fact_set (fact, "field1", ohm_value_from_string ("test1"));
ohm_fact_set (fact, "field2", ohm_value_from_int (42));
ohm_fact_store_insert (fs, fact);
_tmp0 = NULL;
fact = (_tmp0 = ohm_fact_new ("org.test.match"), (fact == NULL ? NULL : (fact = (g_object_unref (fact), NULL))), _tmp0);
ohm_fact_set (fact, "field3", ohm_value_from_int (42));
ohm_fact_store_insert (fs, fact);
s = ohm_fact_store_to_string (fs);
g_assert (strstr (s, "field1 = ") != NULL);
g_assert (strstr (s, "field2 = 42") != NULL);
g_assert (p != NULL);
(fs == NULL ? NULL : (fs = (g_object_unref (fs), NULL)));
(fact == NULL ? NULL : (fact = (g_object_unref (fact), NULL)));
s = (g_free (s), NULL);
}
g_assert (p == NULL);
}
static void define_hsp_status(OhmFact *fact, gboolean hsp)
{
GValue *gval;
if (!fact)
return;
gval = ohm_value_from_int(hsp ? 1 : 0);
ohm_fact_set(fact, "hsp", gval);
}
static void test_fact_store_transaction_push_and_watch (void) {
OhmFactStore* fs;
OhmFact* fact;
fs = ohm_fact_store_new ();
ohm_fact_store_transaction_push (fs);
fact = ohm_fact_new ("org.test.match");
ohm_fact_set (fact, "field", ohm_value_from_int (42));
ohm_fact_store_insert (fs, fact);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 1);
ohm_fact_set (fact, "field", ohm_value_from_int (43));
ohm_fact_store_transaction_pop (fs, FALSE);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 1);
ohm_fact_store_transaction_push (fs);
ohm_fact_store_transaction_push (fs);
ohm_fact_store_remove (fs, fact);
ohm_fact_store_transaction_pop (fs, FALSE);
ohm_fact_store_transaction_pop (fs, FALSE);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 0);
(fs == NULL ? NULL : (fs = (g_object_unref (fs), NULL)));
(fact == NULL ? NULL : (fact = (g_object_unref (fact), NULL)));
}
static void test_fact_structure_to_string (void) {
OhmStructure* s;
char* _tmp0;
char* _tmp1;
s = ohm_structure_new ("org.freedesktop.ohm.test");
ohm_structure_set (s, "field1", ohm_value_from_string ("test1"));
ohm_structure_set (s, "field2", ohm_value_from_int (42));
_tmp0 = NULL;
g_assert (_vala_strcmp0 ((_tmp0 = ohm_structure_to_string (s)), "org.freedesktop.ohm.test (field1 = \"test1\", field2 = 42)") == 0);
_tmp0 = (g_free (_tmp0), NULL);
ohm_structure_set (s, "field2", NULL);
_tmp1 = NULL;
g_assert (_vala_strcmp0 ((_tmp1 = ohm_structure_to_string (s)), "org.freedesktop.ohm.test (field1 = \"test1\")") == 0);
_tmp1 = (g_free (_tmp1), NULL);
(s == NULL ? NULL : (s = (g_object_unref (s), NULL)));
}
static void set_field(OhmFact *fact, fsif_fldtype_t type,char *name,void *vptr)
{
fsif_value_t *v = (fsif_value_t *)vptr;
GValue *gv;
switch (type) {
case fldtype_string: gv = ohm_value_from_string(v->string); break;
case fldtype_integer: gv = ohm_value_from_int(v->integer); break;
case fldtype_unsignd: gv = ohm_value_from_unsigned(v->unsignd); break;
case fldtype_floating: gv = ohm_value_from_double(v->floating); break;
case fldtype_time: gv = ohm_value_from_time(v->time); break;
default: OHM_ERROR("resource: invalid type for %s", name); return;
}
ohm_fact_set(fact, name, gv);
}
static int load_field(FILE *fp, char *key, size_t size, GValue **value)
{
char val[256], *e;
size_t len;
int i;
double d;
if (fgets(key, size, fp) == NULL)
return ENOENT;
if ((len = strlen(key)) == 0 || key[len - 1] != '\n')
return EINVAL;
key[len - 1] = '\0';
if (fgets(val, sizeof(val), fp) == NULL)
return EINVAL;
if ((len = strlen(val)) < 2 || val[1] != ':' || val[len - 1] != '\n')
return EINVAL;
val[len - 1] = '\0';
switch (val[0]) {
case 's':
*value = ohm_value_from_string(val + 2);
break;
case 'i':
i = (int)strtol(val + 2, &e, 10);
if (e != NULL && *e)
return EINVAL;
*value = ohm_value_from_int(i);
break;
case 'f':
d = strtod(val + 2, &e);
if (e != NULL && *e)
return EINVAL;
*value = ohm_value_from_double(d);
break;
default:
return EINVAL;
}
return 0;
}
static void _structure_set_get (OhmStructure* s) {
GValue* v;
GValue* vq;
g_return_if_fail (OHM_IS_STRUCTURE (s));
g_assert (_vala_strcmp0 (ohm_structure_get_name (s), "org.freedesktop.ohm.test") == 0);
g_assert (((void*) ohm_structure_get (s, "field1")) == NULL);
ohm_structure_set (s, "field1", ohm_value_from_string ("test1"));
ohm_structure_set (s, "field2", ohm_value_from_int (42));
v = ((GValue*) ohm_structure_get (s, "field1"));
g_assert (_vala_strcmp0 (g_value_get_string (v), "test1") == 0);
v = ((GValue*) ohm_structure_get (s, "field2"));
g_assert (g_value_get_int (v) == 42);
vq = ((GValue*) ohm_structure_qget (s, g_quark_from_string ("field2")));
g_assert (v == vq);
ohm_structure_set (s, "field2", NULL);
v = ((GValue*) ohm_structure_get (s, "field2"));
g_assert (v == NULL);
}
/********************
* create_variable
********************/
static int
create_variable(dres_t *dres, char *name, dres_init_t *fields)
{
dres_init_t *init;
char *field;
dres_value_t *value;
OhmFactStore *store = ohm_get_fact_store();
OhmFact *fact;
GValue *gval;
if (store == NULL)
return EINVAL;
if ((fact = ohm_fact_new(name)) == NULL)
return ENOMEM;
for (init = fields; init != NULL; init = init->next) {
field = init->field.name;
value = &init->field.value;
switch (value->type) {
case DRES_TYPE_INTEGER: gval = ohm_value_from_int(value->v.i); break;
case DRES_TYPE_DOUBLE: gval = ohm_value_from_double(value->v.d); break;
case DRES_TYPE_STRING: gval = ohm_value_from_string(value->v.s); break;
case DRES_TYPE_UNKNOWN:
DRES_ERROR("Missing field initialiser for fact field %s:%s.",
name, field);
return EINVAL;
default:
DRES_ERROR("Invalid field initialiser for fact field %s:%s.",
name, field);
return EINVAL;
}
ohm_fact_set(fact, field, gval);
}
if (!ohm_fact_store_insert(store, fact))
return EINVAL;
return 0;
(void)dres;
}
static void test_fact_store_transaction_push_and_commit (void) {
OhmFactStore* fs;
OhmFactStoreView* v;
OhmFactStoreView* v2;
OhmFactStoreView* tpv;
OhmPattern* _tmp0;
OhmPattern* _tmp1;
OhmFact* fact;
GValue* val;
fs = ohm_fact_store_new ();
v = ohm_fact_store_new_view (fs, NULL);
v2 = ohm_fact_store_new_view (fs, NULL);
tpv = ohm_fact_store_new_transparent_view (fs, NULL);
_tmp0 = NULL;
ohm_fact_store_view_add (v, OHM_STRUCTURE ((_tmp0 = ohm_pattern_new ("org.test.match"))));
(_tmp0 == NULL ? NULL : (_tmp0 = (g_object_unref (_tmp0), NULL)));
_tmp1 = NULL;
ohm_fact_store_view_add (v2, OHM_STRUCTURE ((_tmp1 = ohm_pattern_new ("org.freedesktop.hello"))));
(_tmp1 == NULL ? NULL : (_tmp1 = (g_object_unref (_tmp1), NULL)));
_tmp1 = NULL;
ohm_fact_store_view_add (tpv, OHM_STRUCTURE ((_tmp1 = ohm_pattern_new ("org.test.match"))));
(_tmp1 == NULL ? NULL : (_tmp1 = (g_object_unref (_tmp1), NULL)));
_tmp1 = NULL;
/* insertion*/
ohm_fact_store_transaction_push (fs);
{
fact = ohm_fact_new ("org.test.match");
ohm_fact_set (fact, "field", ohm_value_from_int (42));
ohm_fact_store_insert (fs, fact);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 1);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 0);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 1);
}
ohm_fact_store_transaction_pop (fs, FALSE);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 1);
/* and from the fact store*/
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 1);
ohm_fact_set (fact, "field", ohm_value_from_int (43));
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 2);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 2);
ohm_fact_store_transaction_push (fs);
{
ohm_fact_store_remove (fs, fact);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 0);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 2);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 3);
}
ohm_fact_store_transaction_pop (fs, FALSE);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 3);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 3);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.match")) == 0);
/* update*/
fact = ohm_fact_new ("org.test.match");
ohm_fact_set (fact, "field", ohm_value_from_int (41));
ohm_fact_store_insert (fs, fact);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 4);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 4);
ohm_fact_store_transaction_push (fs);
{
GValue* val;
val = ((GValue*) ohm_fact_get (fact, "field"));
g_assert (g_value_get_int (val) == 41);
ohm_fact_set (fact, "field", ohm_value_from_int (42));
val = ((GValue*) ohm_fact_get (fact, "field"));
g_assert (g_value_get_int (val) == 42);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 4);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 5);
}
ohm_fact_store_transaction_pop (fs, FALSE);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (v)->change_set)) == 5);
g_assert (g_slist_length (ohm_fact_store_change_set_get_matches (OHM_FACT_STORE_SIMPLE_VIEW (tpv)->change_set)) == 5);
val = ((GValue*) ohm_fact_get (fact, "field"));
g_assert (g_value_get_int (val) == 42);
(fs == NULL ? NULL : (fs = (g_object_unref (fs), NULL)));
(v == NULL ? NULL : (v = (g_object_unref (v), NULL)));
(v2 == NULL ? NULL : (v2 = (g_object_unref (v2), NULL)));
(fact == NULL ? NULL : (fact = (g_object_unref (fact), NULL)));
}
static void test_fact_store_insert_remove (void) {
void* p;
void* pfs;
void* pf;
p = NULL;
pfs = NULL;
pf = NULL;
{
OhmFactStore* fs;
OhmFact* fact1;
OhmFact* fact2;
fs = ohm_fact_store_new ();
pfs = fs;
g_object_add_weak_pointer (G_OBJECT (fs), &pfs);
fact1 = ohm_fact_new ("org.test.fact1");
ohm_fact_set (fact1, "field1", ohm_value_from_string ("test1"));
ohm_fact_set (fact1, "field2", ohm_value_from_int (42));
p = fact1;
g_object_add_weak_pointer (G_OBJECT (fact1), &p);
fact2 = ohm_fact_new ("org.test.fact2");
ohm_fact_set (fact2, "field1", ohm_value_from_string ("test2"));
ohm_fact_set (fact2, "field2", ohm_value_from_int (42));
/* should not complain, does not exists*/
ohm_fact_store_remove (fs, fact1);
/* add+remove the same fact*/
ohm_fact_store_insert (fs, fact1);
ohm_fact_store_insert (fs, fact1);
ohm_fact_store_remove (fs, fact1);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.fact1")) == 0);
ohm_fact_store_insert (fs, fact1);
ohm_fact_store_insert (fs, fact2);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.fact1")) == 1);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.fact2")) == 1);
ohm_fact_store_remove (fs, fact2);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.fact1")) == 1);
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.fact2")) == 0);
{
gint i;
i = 0;
for (; i < 100; i++) {
OhmFact* fact;
char* _tmp1;
char* _tmp0;
fact = ohm_fact_new ("org.test.fact1");
_tmp1 = NULL;
_tmp0 = NULL;
ohm_fact_set (fact, "alloc", ohm_value_from_string ((_tmp1 = g_strconcat ("test", (_tmp0 = g_strdup_printf ("%i", i)), NULL))));
_tmp1 = (g_free (_tmp1), NULL);
_tmp0 = (g_free (_tmp0), NULL);
ohm_fact_store_insert (fs, fact);
if (pf == NULL) {
pf = fact;
g_object_add_weak_pointer (G_OBJECT (fact), &pf);
}
(fact == NULL ? NULL : (fact = (g_object_unref (fact), NULL)));
}
}
g_assert (g_slist_length (ohm_fact_store_get_facts_by_name (fs, "org.test.fact1")) == 101);
g_assert (p != NULL);
g_assert (pfs != NULL);
g_assert (pf != NULL);
(fs == NULL ? NULL : (fs = (g_object_unref (fs), NULL)));
(fact1 == NULL ? NULL : (fact1 = (g_object_unref (fact1), NULL)));
(fact2 == NULL ? NULL : (fact2 = (g_object_unref (fact2), NULL)));
}
g_assert (p == NULL);
g_assert (pfs == NULL);
g_assert (pf == NULL);
}
static void test_fact_pattern_match_fields (void) {
OhmPattern* p;
OhmFact* match;
OhmFact* match2;
OhmFact* nomatch;
OhmPatternMatch* _tmp0;
OhmPatternMatch* _tmp1;
OhmPatternMatch* _tmp2;
OhmPatternMatch* _tmp3;
OhmPatternMatch* m;
OhmPatternMatch* _tmp4;
OhmPatternMatch* _tmp5;
OhmPatternMatch* _tmp6;
OhmPatternMatch* _tmp7;
p = ohm_pattern_new ("org.test.match");
match = ohm_fact_new ("org.test.match");
match2 = ohm_fact_new ("org.test.match");
nomatch = ohm_fact_new ("org.test.nomatch");
ohm_fact_set (match, "field1", ohm_value_from_string ("test1"));
ohm_fact_set (match, "field2", ohm_value_from_int (42));
ohm_fact_set (match2, "field2", ohm_value_from_int (42));
_tmp0 = NULL;
g_assert ((_tmp0 = ohm_pattern_match (p, match, OHM_FACT_STORE_EVENT_LOOKUP)) != NULL);
(_tmp0 == NULL ? NULL : (_tmp0 = (g_object_unref (_tmp0), NULL)));
_tmp1 = NULL;
g_assert ((_tmp1 = ohm_pattern_match (p, match2, OHM_FACT_STORE_EVENT_LOOKUP)) != NULL);
(_tmp1 == NULL ? NULL : (_tmp1 = (g_object_unref (_tmp1), NULL)));
ohm_structure_set (OHM_STRUCTURE (p), "field2", ohm_value_from_int (42));
_tmp2 = NULL;
g_assert ((_tmp2 = ohm_pattern_match (p, match, OHM_FACT_STORE_EVENT_LOOKUP)) != NULL);
(_tmp2 == NULL ? NULL : (_tmp2 = (g_object_unref (_tmp2), NULL)));
_tmp3 = NULL;
g_assert ((_tmp3 = ohm_pattern_match (p, match2, OHM_FACT_STORE_EVENT_LOOKUP)) != NULL);
(_tmp3 == NULL ? NULL : (_tmp3 = (g_object_unref (_tmp3), NULL)));
m = ohm_pattern_match (p, match2, OHM_FACT_STORE_EVENT_LOOKUP);
g_assert (ohm_pattern_match_get_fact (m) == match2);
g_assert (ohm_pattern_match_get_pattern (m) == p);
g_assert (ohm_pattern_match_get_event (m) == OHM_FACT_STORE_EVENT_LOOKUP);
ohm_structure_set (OHM_STRUCTURE (p), "field1", ohm_value_from_string ("test1"));
_tmp4 = NULL;
g_assert ((_tmp4 = ohm_pattern_match (p, match, OHM_FACT_STORE_EVENT_LOOKUP)) != NULL);
(_tmp4 == NULL ? NULL : (_tmp4 = (g_object_unref (_tmp4), NULL)));
_tmp5 = NULL;
g_assert ((_tmp5 = ohm_pattern_match (p, match2, OHM_FACT_STORE_EVENT_LOOKUP)) == NULL);
(_tmp5 == NULL ? NULL : (_tmp5 = (g_object_unref (_tmp5), NULL)));
ohm_structure_set (OHM_STRUCTURE (p), "field1", ohm_value_from_string ("notest1"));
_tmp6 = NULL;
g_assert ((_tmp6 = ohm_pattern_match (p, match, OHM_FACT_STORE_EVENT_LOOKUP)) == NULL);
(_tmp6 == NULL ? NULL : (_tmp6 = (g_object_unref (_tmp6), NULL)));
_tmp7 = NULL;
g_assert ((_tmp7 = ohm_pattern_match (p, match2, OHM_FACT_STORE_EVENT_LOOKUP)) == NULL);
(_tmp7 == NULL ? NULL : (_tmp7 = (g_object_unref (_tmp7), NULL)));
(p == NULL ? NULL : (p = (g_object_unref (p), NULL)));
(match == NULL ? NULL : (match = (g_object_unref (match), NULL)));
(match2 == NULL ? NULL : (match2 = (g_object_unref (match2), NULL)));
(nomatch == NULL ? NULL : (nomatch = (g_object_unref (nomatch), NULL)));
(m == NULL ? NULL : (m = (g_object_unref (m), NULL)));
return;
(void)test_fact_pattern_match_instance;
}
