#include "memento.h"
#include "xml.h"

#include <errno.h>
#include <stdio.h>


static int s_num_fails = 0;

static void s_check(
        int         values_equal,
        const char* text,
        int         ret,
        const char* value_s,
        int         errno_,
        const char* value_expected_s,
        int         errno_expected
        )
{
    int ok;
    if (errno_expected) {
        ok = (ret == -1 && errno_ == errno_expected);
    }
    else {
        ok = (ret == 0 && values_equal);
    }

    if (ok) printf("    ok:  ");
    else printf("    fail:");
    printf(" text=%16s", text);
    if (errno_expected) printf(" errno_expected=%6i", errno_expected);
    else                printf(" value_expected=%6s", value_expected_s);
    printf(". result: ret=%2i value=%6s errno=%3i", ret, value_s, errno_);
    printf(".\n");
    if (!ok) s_num_fails += 1;
}

static void s_check_e( int e, const char* text)
{
    if (e)
    {
        s_num_fails += 1;
        printf( "Error: e=%i: %s\n", e, text);
    }
}

static void s_check_int(const char* text, int value_expected, int expected_errno)
{
    int     value;
    int     ret = extract_xml_str_to_int(text, &value);
    char    value_s[32];
    char    value_expected_s[32];
    snprintf(value_s, sizeof(value_s), "%i", value);
    snprintf(value_expected_s, sizeof(value_expected_s), "%i", value_expected);
    s_check(value == value_expected, text, ret, value_s, errno, value_expected_s, expected_errno);
    return;
}

static void s_check_uint(const char* text, unsigned expected_value, int expected_errno)
{
    unsigned    value;
    int         ret = extract_xml_str_to_uint(text, &value);
    char        value_s[32];
    char        value_expected_s[32];
    snprintf(value_s, sizeof(value_s), "%u", value);
    snprintf(value_expected_s, sizeof(value_expected_s), "%u", value);
    s_check(value == expected_value, text, ret, value_s, errno, value_expected_s, expected_errno);
    return;
}

static void s_check_xml_parse()
{
    int e;
    extract_buffer_t* buffer;
    extract_xml_tag_t tag;
    unsigned i;
    const char* texts[] = {
            "<foo a=1>text</foo>",
            "< >",
            "<foo bar=>",
            "< bar=>",
            "< =>",
            };

    extract_xml_tag_init( &tag);

    for (i=0; i<sizeof(texts) / sizeof(texts[0]); ++i)
    {
        const char* text = texts[i];
        printf("testing extract_xml_pparse_*(): %s\n", text);
        e = extract_buffer_open_simple(
                NULL /*alloc*/,
                text,
                strlen(text),
                NULL /*handle*/,
                NULL /*fn_close*/,
                &buffer
                );
        s_check_e( e, "extract_buffer_open_simple()");
        e = extract_xml_pparse_init( NULL /*alloc*/, buffer, NULL /*first_line*/);
        s_check_e( e, "extract_xml_pparse_init()");

        e = extract_xml_pparse_next( buffer, &tag);
        s_check_e( e, "extract_xml_pparse_next()");
        s_check_e( tag.name ? 0 : 1, "tag.name is not null");

        {
            int j;
            for (j=0; j<tag.attributes_num; ++j)
            {
                s_check_e( tag.attributes[j].name ? 0 : 1, "attribute is non-null");
                s_check_e( tag.attributes[j].value ? 0 : 1, "attribute is non-null");
            }
        }
    }
}

int main(void)
{
    printf("testing extract_xml_str_to_int():\n");
    s_check_int("2", 2, 0);
    s_check_int("-20", -20, 0);
    s_check_int("-20b", 0, EINVAL);
    s_check_int("123456789123", 0, ERANGE);

    printf("testing extract_xml_str_to_uint():\n");
    s_check_uint("2", 2, 0);
    s_check_uint("-20", 0, ERANGE);
    s_check_uint("-20b", 0, EINVAL);
    s_check_uint("123456789123", 0, ERANGE);

    s_check_xml_parse();

    printf("s_num_fails=%i\n", s_num_fails);

    if (s_num_fails) {
        printf("Failed\n");
        return 1;
    }
    else {
        printf("Succeeded\n");
        return 0;
    }
}