// Test string functions.

#include "tim.h"

#define U(s)    (u8*)(""s), (sizeof(s) - 1)
#define TEST(t) printf("\33[3%s\33[0m %s\n", (t) ? "2mpass" : "1mfail", #t)

i32 main(void) {
    (void)tim_run;

    TEST(tim_ztrlen(NULL) == 0);
    TEST(tim_ztrlen("")   == 0);
    TEST(tim_ztrlen("$")  == 1);
    TEST(tim_ztrlen("£")  == 2);
    TEST(tim_ztrlen("€")  == 3);
    TEST(tim_ztrlen("𐍈")  == 4);

    TEST(tim_bsr8(128) == 0);
    TEST(tim_bsr8(64)  == 1);
    TEST(tim_bsr8(1)   == 7);
    TEST(tim_bsr8(0)   == 8);

    TEST(tim_utf8_to_i32(NULL) == 0);
    TEST(tim_utf8_to_i32("")   == 0);
    TEST(tim_utf8_to_i32("$")  == 0x24);
    TEST(tim_utf8_to_i32("£")  == 0xA3);
    TEST(tim_utf8_to_i32("И")  == 0x418);
    TEST(tim_utf8_to_i32("ह")  == 0x939);
    TEST(tim_utf8_to_i32("€")  == 0x20AC);
    TEST(tim_utf8_to_i32("한")  == 0xD55C);
    TEST(tim_utf8_to_i32("𐍈")  == 0x10348);

    TEST(tim_utf8_len(NULL)  == 0);
    TEST(tim_utf8_len("")    == 0);
    TEST(tim_utf8_len("$")   == 1);
    TEST(tim_utf8_len("$$")  == 2);
    TEST(tim_utf8_len("$£")  == 2);
    TEST(tim_utf8_len("$€𐍈") == 3);

    TEST(tim_utf8_pos(NULL, 0)  == 0);
    TEST(tim_utf8_pos("ab", -1) == 0);
    TEST(tim_utf8_pos("äbc", 0) == 0);
    TEST(tim_utf8_pos("äbc", 1) == 2);
    TEST(tim_utf8_pos("äbc", 2) == 3);
    TEST(tim_utf8_pos("äbc", 9) == 4);

    TEST(tim_scan_str(NULL).lines    == 0);
    TEST(tim_scan_str("").lines      == 0);
    TEST(tim_scan_str("abc").lines   == 1);
    TEST(tim_scan_str("a\no").lines  == 2);
    TEST(tim_scan_str("a").width     == 1);
    TEST(tim_scan_str("äß\no").width == 2);

    TimLine ln = {.s = "foo\nbar"};
    TEST(tim_next_line(&ln) == true);
    TEST(!memcmp(ln.line, "foo", ln.size));
    TEST(tim_next_line(&ln) == true);
    TEST(!memcmp(ln.line, "bar", ln.size));
    TEST(tim_next_line(&ln) == false);

    TEST(tim_utf8_is_wide_perhaps(NULL, 0) == false);
    TEST(tim_utf8_is_wide_perhaps(U(""))   == false);
    TEST(tim_utf8_is_wide_perhaps(U("$"))  == false);
    TEST(tim_utf8_is_wide_perhaps(U("£"))  == false);
    TEST(tim_utf8_is_wide_perhaps(U("ह"))  == false);
    TEST(tim_utf8_is_wide_perhaps(U("€"))  == true);
    TEST(tim_utf8_is_wide_perhaps(U("┌"))  == false);
    TEST(tim_utf8_is_wide_perhaps(U("한"))  == true);
    TEST(tim_utf8_is_wide_perhaps(U("𐍈"))  == true);
    return 0;
}