/*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements.  See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License.  You may obtain a copy of the License at
*
*      http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/

#include <check.h>
#include <guththila.h>
#include "guththila_defines.h"
#include "test.h"

void
setup(
    void)
{
    allocator = axutil_allocator_init(NULL);
    env = axutil_env_create(allocator);
}

void
teardown(
    void)
{
    guththila_reader_free(env, red);
    guththila_free(env, parser);
    axutil_env_free(env);
}

START_TEST(test_guththila)
{
    red = guththila_reader_create_for_file(env, "resources/om/axis.xml");
    parser = guththila_create(env, red);
    fail_if(red == NULL, "guththila reader failed");
    fail_if(parser == NULL, "guththila parser failed");
}

END_TEST
START_TEST(
    test_guththila_start_element)
{
    int c = 0;
    char *p;
    red = guththila_reader_create_for_file(env, "resources/om/axis.xml");
    parser = guththila_create(env, red);
    guththila_read(env, parser);
    c = guththila_next(env, parser);

    while((c != GUTHTHILA_START_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_START_ELEMENT), "no start element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "root"), "root element differed");
    c = 0;

    while((c != GUTHTHILA_START_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_START_ELEMENT), "no start element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "a"), "a element differed");

    c = 0;
    while((c != GUTHTHILA_START_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless(!strcmp(p, "b"), "b element differed");
}

END_TEST
START_TEST(
    test_guththila_empty_element)
{
    int c = 0;
    char *p;
    red = guththila_reader_create_for_file(env, "resources/om/axis.xml");
    parser = guththila_create(env, red);
    guththila_read(env, parser);
    c = guththila_next(env, parser);

    while((c != GUTHTHILA_EMPTY_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_EMPTY_ELEMENT), "no empty element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "a.1"), "a.1 element differed");

    c = 0;

    while((c != GUTHTHILA_EMPTY_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_EMPTY_ELEMENT), "no empty element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "a.2"), "a.2 element differed");

    c = 0;
    while((c != GUTHTHILA_START_ELEMENT))
        c = guththila_next(env, parser);

    c = 0;
    while((c != GUTHTHILA_EMPTY_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_EMPTY_ELEMENT), "no empty element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "b.1"), "b.1 element differed");
}

END_TEST
START_TEST(
    test_guththila_end_element)
{
    int c = 0;
    char *p;
    red = guththila_reader_create_for_file(env, "resources/om/axis.xml");
    parser = guththila_create(env, red);
    guththila_read(env, parser);
    c = guththila_next(env, parser);

    while((c != GUTHTHILA_END_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_END_ELEMENT), "no end element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "a"), "a element differed");

    c = 0;
    while((c != GUTHTHILA_END_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_END_ELEMENT), "no endelement found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "b"), "b element differed");

    c = 0;
    while((c != GUTHTHILA_END_ELEMENT))
        c = guththila_next(env, parser);
    p = guththila_get_name(env, parser);
    fail_unless((c == GUTHTHILA_END_ELEMENT), "no empty element found");
    fail_if((p == NULL), "no name found");
    fail_unless(!strcmp(p, "root"), "root element differed");
}

END_TEST
START_TEST(
    test_guththila_character)
{
    int c = 0;
    int i = 0;
    char *p;
    red = guththila_reader_create_for_file(env, "resources/om/numbers.xml");
    parser = guththila_create(env, red);
    guththila_read(env, parser);
    c = guththila_next(env, parser);
    while(i < 3)
    {
        if(c == GUTHTHILA_START_ELEMENT)
            i++;
        c = guththila_next(env, parser);
    }

    if(c == GUTHTHILA_CHARACTER)
        p = guththila_get_value(env, parser);
    fail_unless(!strcmp(p, "3"), "3 not found");

    c = 0;
    while((c != GUTHTHILA_CHARACTER) || (parser->is_whitespace))
        c = guththila_next(env, parser);
    p = guththila_get_value(env, parser);
    fail_unless(!strcmp(p, "24"), "24 not found");

}
END_TEST Suite *
guththila_suite(
    void)
{
    Suite *s = suite_create("Guththila");

    /* Core test case */
    TCase *tc_core = tcase_create("Core");
    tcase_add_checked_fixture(tc_core, setup, teardown);
    tcase_add_test(tc_core, test_guththila);
    tcase_add_test(tc_core, test_guththila_start_element);
    tcase_add_test(tc_core, test_guththila_empty_element);
    tcase_add_test(tc_core, test_guththila_end_element);
    tcase_add_test(tc_core, test_guththila_character);
    suite_add_tcase(s, tc_core);
    return s;
}

int
main(
    void)
{
    int number_failed;
    Suite *s = guththila_suite();
    Suite *att = guththila_attribute_suite();
    SRunner *sr = srunner_create(s);
    srunner_add_suite(sr, att);
    srunner_set_log(sr, "guththila.log");
    srunner_run_all(sr, CK_NORMAL);
    number_failed = srunner_ntests_failed(sr);
    srunner_free(sr);
    return (number_failed == 0) ? EXIT_SUCCESS : EXIT_FAILURE;
}