/*      $OpenBSD: test_get.c,v 1.5 2017/07/07 23:55:21 bluhm Exp $      */
/*
 * Copyright (c) 2016 Ingo Schwarze <schwarze@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <err.h>

#include "keymacro.c"

/*
 * Glue for unit tests of libedit/keymacro.c.
 * Rather than linking in all the various libedit modules,
 * provide dummies for those functions called in keymacro.c.
 * Most aren't actually called in keymacro_get().
 */

#define EL EditLine *el __attribute__((__unused__))
#define UU __attribute__((__unused__))

ssize_t ct_encode_char(char *dst UU, size_t len UU, wchar_t c UU) { return -1; }

char *ct_encode_string(const wchar_t *s UU, ct_buffer_t *conv UU)
{
        return NULL;
}

ssize_t
ct_visual_char(wchar_t *dst, size_t len UU, wchar_t c)
{
        *dst = c;
        return 1;
}

int
el_wgetc(EL, wchar_t *cp) {
        static const wchar_t *const input_buffer = L"adalixi";
        static const wchar_t *input_ptr = input_buffer;

        *cp = *input_ptr;
        if (*cp == '\0') {
                input_ptr = input_buffer;
                return 0;
        } else {
                input_ptr++;
                return 1;
        }
}

#undef EL
#undef UU

/*
 * Unit test steering program for editline/keymacro.c, keymacro_get().
 */

int
main()
{
        EditLine el;
        keymacro_value_t val;
        wchar_t repl[] = L"repl";
        wchar_t ch;
        int irc;

        if (keymacro_init(&el) == -1)
                err(1, "keymacro_init");
        keymacro_add(&el, L"ad", keymacro_map_cmd(&el, VI_ADD), XK_CMD);
        keymacro_add(&el, L"al", keymacro_map_str(&el, repl), XK_STR);
        keymacro_add(&el, L"in", keymacro_map_cmd(&el, ED_INSERT), XK_CMD);

        if (el_wgetc(&el, &ch) == 0)
                errx(1, "el_wgetc ad");
        irc = keymacro_get(&el, &ch, &val);
        if (irc != XK_CMD)
                errx(1, "ad %d != XK_CMD", irc);
        if (val.cmd != VI_ADD)
                errx(1, "ad %u != VI_ADD", val.cmd);
        if (ch != L'd')
                errx(1, "ad %lc != d", ch);

        if (el_wgetc(&el, &ch) == 0)
                errx(1, "el_wgetc al");
        irc = keymacro_get(&el, &ch, &val);
        if (irc != XK_STR)
                errx(1, "al %d != XK_STR", irc);
        if (wcscmp(val.str, L"repl") != 0)
                errx(1, "al %ls != repl", val.str);
        if (ch != L'\0')
                errx(1, "al %lc != 0", ch);

        if (el_wgetc(&el, &ch) == 0)
                errx(1, "el_wgetc ix");
        irc = keymacro_get(&el, &ch, &val);
        if (irc != XK_STR)
                errx(1, "ix %d != XK_STR", irc);
        if (val.str != NULL)
                errx(1, "ix %ls != NULL", val.str);
        if (ch != L'x')
                errx(1, "ix %lc != x", ch);

        if (el_wgetc(&el, &ch) == 0)
                errx(1, "el_wgetc i");
        irc = keymacro_get(&el, &ch, &val);
        if (irc != XK_NOD)
                errx(1, "eof %d != XK_NOD", irc);
        return 0;
}