#include "test.h"


static int test_term_stack()
{
    TRACE(STR, "Test term, stack-allocated.");
    LSUP_Term term_s;
    LSUP_Term *term = &term_s;

    char *data = "http://hello.org";

    LSUP_term_init(
            term, LSUP_TERM_URI, data, NULL, NULL);

    EXPECT_STR_EQ(term->data, data);
    ASSERT(term->datatype == NULL,"Term datatype is not NULL!" );
    ASSERT(strlen(term->lang) == 0, "Term lang incorrect!");
    TRACE(STR, "freeing term.");
    LSUP_term_done(term);

    return 0;
}

static int test_term_heap()
{
    char *data = "hello";
    char *datatype = "xsd:string";
    char *lang = "en-US";

    TRACE(STR, "Test term, heap-allocated.");
    LSUP_Term *term = LSUP_term_new(
            LSUP_TERM_LITERAL, data, datatype, lang);

    TRACE("Term data: %s", term->data);
    EXPECT_STR_EQ(term->data, data);
    EXPECT_STR_EQ(term->datatype, datatype);
    EXPECT_STR_EQ(term->lang, lang);

    LSUP_term_free(term);

    return 0;
}

static int test_term_serialize_deserialize()
{
    LSUP_Term *uri = LSUP_term_new(
            LSUP_TERM_URI, "http://hello.org", NULL, NULL);
    LSUP_Term *lit = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", NULL, NULL);
    LSUP_Term *tlit = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", "xsd:string", NULL);
    LSUP_Term *tllit = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", "xsd:string", "en-US");

    LSUP_Buffer sterm_s;
    LSUP_Buffer *sterm = &sterm_s;

    LSUP_Term dsterm_s;
    LSUP_Term *dsterm = &dsterm_s;

    LSUP_term_serialize(uri, sterm);
    TRACE("%s", "Serialized URI: ");
    LSUP_buffer_print(sterm);
    TRACE("%s", "\n");
    LSUP_term_deserialize(sterm, dsterm);
    ASSERT(LSUP_term_equals(dsterm, uri), "URI serialization error!");
    LSUP_term_done(dsterm);
    LSUP_buffer_done(sterm);
    LSUP_term_free(uri);

    LSUP_term_serialize(lit, sterm);
    TRACE("%s", "Serialized literal: ");
    LSUP_buffer_print(sterm);
    TRACE("%s", "\n");
    LSUP_term_deserialize(sterm, dsterm);
    ASSERT(LSUP_term_equals(dsterm, lit), "lit serialization error!");
    LSUP_term_done(dsterm);
    LSUP_buffer_done(sterm);
    LSUP_term_free(lit);

    LSUP_term_serialize(tlit, sterm);
    TRACE("%s", "Serialized typed literal: ");
    LSUP_buffer_print(sterm);
    TRACE("%s", "\n");
    LSUP_term_deserialize(sterm, dsterm);
    ASSERT(LSUP_term_equals(dsterm, tlit), "tlit serialization error!");
    LSUP_term_done(dsterm);
    LSUP_buffer_done(sterm);
    LSUP_term_free(tlit);

    LSUP_term_serialize(tllit, sterm);
    TRACE("%s", "Serialized typed and language-tagged URI: ");
    LSUP_buffer_print(sterm);
    TRACE("%s", "\n");
    LSUP_term_deserialize(sterm, dsterm);
    ASSERT(LSUP_term_equals(dsterm, tllit), "URI serialization error!");
    LSUP_term_done(dsterm);
    LSUP_buffer_done(sterm);
    LSUP_term_free(tllit);

    return 0;
}


static int test_term_to_key()
{
    LSUP_Term *uri = LSUP_term_new(
            LSUP_TERM_URI, "http://hello.org", NULL, NULL);
    LSUP_Term *lit = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", NULL, NULL);
    LSUP_Term *tlit = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", "xsd:string", NULL);
    LSUP_Term *tllit1 = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", "xsd:string", "en-US");
    LSUP_Term *tllit2 = LSUP_term_new(
            LSUP_TERM_LITERAL, "hello", "xsd:string", "en-GB");

    LSUP_Key uri_key = LSUP_term_to_key(uri);
    LSUP_Key lit_key = LSUP_term_to_key(lit);
    LSUP_Key tlit_key = LSUP_term_to_key(tlit);
    LSUP_Key tllit1_key = LSUP_term_to_key(tllit1);
    LSUP_Key tllit2_key = LSUP_term_to_key(tllit2);

    ASSERT(uri_key != lit_key, "URI key conflict!");
    ASSERT(lit_key != tlit_key, "URI key conflict!");
    ASSERT(lit_key != tllit1_key, "URI key conflict!");
    ASSERT(tlit_key != tllit1_key, "URI key conflict!");
    ASSERT(tllit1_key != tllit2_key, "URI key conflict!");

    LSUP_term_free(uri);
    LSUP_term_free(lit);
    LSUP_term_free(tlit);
    LSUP_term_free(tllit1);
    LSUP_term_free(tllit2);

    return 0;
}


int term_tests() {
    RUN(test_term_stack);
    RUN(test_term_heap);
    RUN(test_term_serialize_deserialize);
    RUN(test_term_to_key);

    return 0;
}