CMake-ify, rename to termkey2 for the time being

17 files changed, 1361 insertions, 0 deletions

diff --git a/tests/01base.c b/tests/01base.c
new file mode 100644
index 0000000..39e0e39
--- /dev/null
+++ b/tests/01base.c
@@ -0,0 +1,29 @@
+#include <stdio.h>
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+
+	plan_tests (6);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+	ok (!!tk, "termkey_new_abstract");
+	is_int (termkey_get_buffer_size (tk), 256, "termkey_get_buffer_size");
+	ok (termkey_is_started (tk), "termkey_is_started true after construction");
+
+	termkey_stop (tk);
+	ok (!termkey_is_started (tk),
+		"termkey_is_started false after termkey_stop()");
+
+	termkey_start (tk);
+	ok (termkey_is_started (tk),
+		"termkey_is_started true after termkey_start()");
+
+	termkey_destroy (tk);
+
+	ok (1, "termkey_free");
+	return exit_status ();
+}
diff --git a/tests/02getkey.c b/tests/02getkey.c
new file mode 100644
index 0000000..8cba991
--- /dev/null
+++ b/tests/02getkey.c
@@ -0,0 +1,92 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+
+	plan_tests (31);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	is_int (termkey_get_buffer_remaining (tk),
+		256, "buffer free initially 256");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_NONE,
+		"getkey yields RES_NONE when empty");
+
+	is_int (termkey_push_bytes (tk, "h", 1), 1, "push_bytes returns 1");
+
+	is_int (termkey_get_buffer_remaining (tk), 255,
+		"buffer free 255 after push_bytes");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after h");
+
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type after h");
+	is_int (key.code.codepoint, 'h', "key.code.codepoint after h");
+	is_int (key.modifiers, 0, "key.modifiers after h");
+	is_str (key.multibyte, "h", "key.multibyte after h");
+
+	is_int (termkey_get_buffer_remaining (tk), 256,
+		"buffer free 256 after getkey");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_NONE,
+		"getkey yields RES_NONE a second time");
+
+	termkey_push_bytes (tk, "\x01", 1);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after C-a");
+
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type after C-a");
+	is_int (key.code.codepoint, 'a', "key.code.codepoint after C-a");
+	is_int (key.modifiers, TERMKEY_KEYMOD_CTRL, "key.modifiers after C-a");
+
+	termkey_push_bytes (tk, "\033OA", 3);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after Up");
+
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type after Up");
+	is_int (key.code.sym, TERMKEY_SYM_UP, "key.code.sym after Up");
+	is_int (key.modifiers, 0, "key.modifiers after Up");
+
+	is_int (termkey_push_bytes (tk, "\033O", 2), 2, "push_bytes returns 2");
+
+	is_int (termkey_get_buffer_remaining (tk), 254,
+		"buffer free 254 after partial write");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN after partial write");
+
+	termkey_push_bytes (tk, "C", 1);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after Right completion");
+
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type after Right");
+	is_int (key.code.sym, TERMKEY_SYM_RIGHT, "key.code.sym after Right");
+	is_int (key.modifiers, 0, "key.modifiers after Right");
+
+	is_int (termkey_get_buffer_remaining (tk), 256,
+		"buffer free 256 after completion");
+
+	termkey_push_bytes (tk, "\033[27;5u", 7);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after Ctrl-Escape");
+
+	is_int (key.type, TERMKEY_TYPE_KEYSYM,
+		"key.type after Ctrl-Escape");
+	is_int (key.code.sym, TERMKEY_SYM_ESCAPE,
+		"key.code.sym after Ctrl-Escape");
+	is_int (key.modifiers, TERMKEY_KEYMOD_CTRL,
+		"key.modifiers after Ctrl-Escape");
+
+	termkey_destroy (tk);
+
+	return exit_status ();
+}
diff --git a/tests/03utf8.c b/tests/03utf8.c
new file mode 100644
index 0000000..9b06e2e
--- /dev/null
+++ b/tests/03utf8.c
@@ -0,0 +1,188 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+
+	plan_tests (33 /* 57 */);
+
+	tk = termkey_new_abstract ("vt100", "UTF-8", 0);
+
+	termkey_push_bytes (tk, "a", 1);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY low ASCII");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type low ASCII");
+	is_int (key.code.codepoint, 'a', "key.code.codepoint low ASCII");
+
+	/* 2-byte UTF-8 range is U+0080 to U+07FF (0xDF 0xBF) */
+	/* However, we'd best avoid the C1 range, so we'll start at U+00A0 (0xC2 0xA0) */
+
+	termkey_push_bytes (tk, "\xC2\xA0", 2);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 2 low");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type UTF-8 2 low");
+	is_int (key.code.codepoint, 0x00A0, "key.code.codepoint UTF-8 2 low");
+
+	termkey_push_bytes (tk, "\xDF\xBF", 2);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 2 high");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type UTF-8 2 high");
+	is_int (key.code.codepoint, 0x07FF, "key.code.codepoint UTF-8 2 high");
+
+	/* 3-byte UTF-8 range is U+0800 (0xE0 0xA0 0x80) to U+FFFD (0xEF 0xBF 0xBD) */
+
+	termkey_push_bytes (tk, "\xE0\xA0\x80", 3);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 low");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type UTF-8 3 low");
+	is_int (key.code.codepoint, 0x0800, "key.code.codepoint UTF-8 3 low");
+
+	termkey_push_bytes (tk, "\xEF\xBF\xBD", 3);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 high");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type UTF-8 3 high");
+	is_int (key.code.codepoint, 0xFFFD, "key.code.codepoint UTF-8 3 high");
+
+	/* 4-byte UTF-8 range is U+10000 (0xF0 0x90 0x80 0x80) to U+10FFFF (0xF4 0x8F 0xBF 0xBF) */
+
+	termkey_push_bytes (tk, "\xF0\x90\x80\x80", 4);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 low");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type UTF-8 4 low");
+	is_int (key.code.codepoint, 0x10000, "key.code.codepoint UTF-8 4 low");
+
+	termkey_push_bytes (tk, "\xF4\x8F\xBF\xBF", 4);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 high");
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type UTF-8 4 high");
+	is_int (key.code.codepoint, 0x10FFFF, "key.code.codepoint UTF-8 4 high");
+
+#if 0
+	/* XXX: With the move to iconv, this has changed significantly. */
+
+	/* Invalid continuations */
+
+	termkey_push_bytes (tk, "\xC2!", 2);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 2 invalid cont");
+	is_int (key.code.codepoint, 0xFFFD,
+		"key.code.codepoint UTF-8 2 invalid cont");
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 2 invalid after");
+	is_int (key.code.codepoint, '!',
+		"key.code.codepoint UTF-8 2 invalid after");
+
+	termkey_push_bytes (tk, "\xE0!", 2);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 invalid cont");
+	is_int (key.code.codepoint, 0xFFFD,
+		"key.code.codepoint UTF-8 3 invalid cont");
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 invalid after");
+	is_int (key.code.codepoint, '!',
+		"key.code.codepoint UTF-8 3 invalid after");
+
+	termkey_push_bytes (tk, "\xE0\xA0!", 3);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 invalid cont 2");
+	is_int (key.code.codepoint, 0xFFFD,
+		"key.code.codepoint UTF-8 3 invalid cont 2");
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 invalid after");
+	is_int (key.code.codepoint, '!',
+		"key.code.codepoint UTF-8 3 invalid after");
+
+	termkey_push_bytes (tk, "\xF0!", 2);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 invalid cont");
+	is_int (key.code.codepoint, 0xFFFD,
+		"key.code.codepoint UTF-8 4 invalid cont");
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 invalid after");
+	is_int (key.code.codepoint, '!',
+		"key.code.codepoint UTF-8 4 invalid after");
+
+	termkey_push_bytes (tk, "\xF0\x90!", 3);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 invalid cont 2");
+	is_int (key.code.codepoint, 0xFFFD,
+		"key.code.codepoint UTF-8 4 invalid cont 2");
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 invalid after");
+	is_int (key.code.codepoint, '!',
+		"key.code.codepoint UTF-8 4 invalid after");
+
+	termkey_push_bytes (tk, "\xF0\x90\x80!", 4);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 invalid cont 3");
+	is_int (key.code.codepoint, 0xFFFD,
+		"key.code.codepoint UTF-8 4 invalid cont 3");
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 invalid after");
+	is_int (key.code.codepoint, '!',
+		"key.code.codepoint UTF-8 4 invalid after");
+#endif
+
+	/* Partials */
+
+	termkey_push_bytes (tk, "\xC2", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN UTF-8 2 partial");
+
+	termkey_push_bytes (tk, "\xA0", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 2 partial");
+	is_int (key.code.codepoint, 0x00A0,
+		"key.code.codepoint UTF-8 2 partial");
+
+	termkey_push_bytes (tk, "\xE0", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN UTF-8 3 partial");
+
+	termkey_push_bytes (tk, "\xA0", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN UTF-8 3 partial");
+
+	termkey_push_bytes (tk, "\x80", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 3 partial");
+	is_int (key.code.codepoint, 0x0800,
+		"key.code.codepoint UTF-8 3 partial");
+
+	termkey_push_bytes (tk, "\xF0", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN UTF-8 4 partial");
+
+	termkey_push_bytes (tk, "\x90", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN UTF-8 4 partial");
+
+	termkey_push_bytes (tk, "\x80", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN UTF-8 4 partial");
+
+	termkey_push_bytes (tk, "\x80", 1);
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY UTF-8 4 partial");
+	is_int (key.code.codepoint, 0x10000,
+		"key.code.codepoint UTF-8 4 partial");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/04flags.c b/tests/04flags.c
new file mode 100644
index 0000000..eb6e20b
--- /dev/null
+++ b/tests/04flags.c
@@ -0,0 +1,40 @@
+#include <stdio.h>
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+
+	plan_tests (8);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	termkey_push_bytes (tk, " ", 1);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after space");
+
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type after space");
+	is_int (key.code.codepoint, ' ', "key.code.codepoint after space");
+	is_int (key.modifiers, 0, "key.modifiers after space");
+
+	termkey_set_flags (tk, TERMKEY_FLAG_SPACESYMBOL);
+
+	termkey_push_bytes (tk, " ", 1);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after space");
+
+	is_int (key.type, TERMKEY_TYPE_KEYSYM,
+		"key.type after space with FLAG_SPACESYMBOL");
+	is_int (key.code.sym, TERMKEY_SYM_SPACE,
+		"key.code.sym after space with FLAG_SPACESYMBOL");
+	is_int (key.modifiers, 0,
+		"key.modifiers after space with FLAG_SPACESYMBOL");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/05read.c b/tests/05read.c
new file mode 100644
index 0000000..2a5530a
--- /dev/null
+++ b/tests/05read.c
@@ -0,0 +1,85 @@
+#include <stdio.h>
+#include <errno.h>
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	int fd[2];
+	termkey_t *tk;
+	termkey_key_t key;
+
+	plan_tests (21);
+
+	/* We'll need a real filehandle we can write/read.
+	 * pipe () can make us one */
+	pipe (fd);
+
+	/* Sanitise this just in case */
+	putenv ("TERM=vt100");
+
+	tk = termkey_new (fd[0], NULL, TERMKEY_FLAG_NOTERMIOS);
+
+	is_int (termkey_get_buffer_remaining (tk), 256,
+		"buffer free initially 256");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_NONE,
+		"getkey yields RES_NONE when empty");
+
+	write (fd[1], "h", 1);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_NONE,
+		"getkey yields RES_NONE before advisereadable");
+
+	is_int (termkey_advisereadable (tk), TERMKEY_RES_AGAIN,
+		"advisereadable yields RES_AGAIN after h");
+
+	is_int (termkey_get_buffer_remaining (tk), 255,
+		"buffer free 255 after advisereadable");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after h");
+
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type after h");
+	is_int (key.code.codepoint, 'h', "key.code.codepoint after h");
+	is_int (key.modifiers, 0, "key.modifiers after h");
+	is_str (key.multibyte, "h", "key.multibyte after h");
+
+	is_int (termkey_get_buffer_remaining (tk), 256,
+		"buffer free 256 after getkey");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_NONE,
+		"getkey yields RES_NONE a second time");
+
+	write (fd[1], "\033O", 2);
+	termkey_advisereadable (tk);
+
+	is_int (termkey_get_buffer_remaining (tk), 254,
+		"buffer free 254 after partial write");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_AGAIN,
+		"getkey yields RES_AGAIN after partial write");
+
+	write (fd[1], "C", 1);
+	termkey_advisereadable (tk);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY after Right completion");
+
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type after Right");
+	is_int (key.code.sym, TERMKEY_SYM_RIGHT, "key.code.sym after Right");
+	is_int (key.modifiers, 0, "key.modifiers after Right");
+
+	is_int (termkey_get_buffer_remaining (tk), 256,
+		"buffer free 256 after completion");
+
+	termkey_stop (tk);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_ERROR,
+		"getkey yields RES_ERROR after termkey_stop ()");
+	is_int (errno, EINVAL, "getkey error is EINVAL");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/06buffer.c b/tests/06buffer.c
new file mode 100644
index 0000000..af415b6
--- /dev/null
+++ b/tests/06buffer.c
@@ -0,0 +1,38 @@
+#include <stdio.h>
+#include "../termkey.h"
+#include "taplib.h"
+
+int main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+
+	plan_tests (9);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	is_int (termkey_get_buffer_remaining (tk), 256,
+		"buffer free initially 256");
+	is_int (termkey_get_buffer_size (tk), 256,
+		"buffer size initially 256");
+
+	is_int (termkey_push_bytes (tk, "h", 1), 1, "push_bytes returns 1");
+
+	is_int (termkey_get_buffer_remaining (tk), 255,
+		"buffer free 255 after push_bytes");
+	is_int (termkey_get_buffer_size (tk), 256,
+		"buffer size 256 after push_bytes");
+
+	ok (!!termkey_set_buffer_size (tk, 512), "buffer set size OK");
+
+	is_int (termkey_get_buffer_remaining (tk), 511,
+		"buffer free 511 after push_bytes");
+	is_int (termkey_get_buffer_size (tk), 512,
+		"buffer size 512 after push_bytes");
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"buffered key still useable after resize");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/10keyname.c b/tests/10keyname.c
new file mode 100644
index 0000000..20ac000
--- /dev/null
+++ b/tests/10keyname.c
@@ -0,0 +1,40 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_sym_t sym;
+	const char *end;
+
+	plan_tests (10);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	sym = termkey_keyname2sym (tk, "Space");
+	is_int (sym, TERMKEY_SYM_SPACE, "keyname2sym Space");
+
+	sym = termkey_keyname2sym (tk, "SomeUnknownKey");
+	is_int (sym, TERMKEY_SYM_UNKNOWN, "keyname2sym SomeUnknownKey");
+
+	end = termkey_lookup_keyname (tk, "Up", &sym);
+	ok (!!end, "termkey_get_keyname Up returns non-NULL");
+	is_str (end, "", "termkey_get_keyname Up return points at endofstring");
+	is_int (sym, TERMKEY_SYM_UP, "termkey_get_keyname Up yields Up symbol");
+
+	end = termkey_lookup_keyname (tk, "DownMore", &sym);
+	ok (!!end, "termkey_get_keyname DownMore returns non-NULL");
+	is_str (end, "More", "termkey_get_keyname DownMore return points at More");
+	is_int (sym, TERMKEY_SYM_DOWN,
+		"termkey_get_keyname DownMore yields Down symbol");
+
+	end = termkey_lookup_keyname (tk, "SomeUnknownKey", &sym);
+	ok (!end, "termkey_get_keyname SomeUnknownKey returns NULL");
+
+	is_str (termkey_get_keyname (tk, TERMKEY_SYM_SPACE), "Space",
+		"get_keyname SPACE");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/11strfkey.c b/tests/11strfkey.c
new file mode 100644
index 0000000..4c77bdf
--- /dev/null
+++ b/tests/11strfkey.c
@@ -0,0 +1,151 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	char buffer[16];
+	size_t len;
+
+	plan_tests (44);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	key.type = TERMKEY_TYPE_KEY;
+	key.code.codepoint = 'A';
+	key.modifiers = 0;
+	key.multibyte[0] = 0;
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 1, "length for unicode/A/0");
+	is_str (buffer, "A", "buffer for unicode/A/0");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_WRAPBRACKET);
+	is_int (len, 1, "length for unicode/A/0 wrapbracket");
+	is_str (buffer, "A", "buffer for unicode/A/0 wrapbracket");
+
+	key.type = TERMKEY_TYPE_KEY;
+	key.code.codepoint = 'b';
+	key.modifiers = TERMKEY_KEYMOD_CTRL;
+	key.multibyte[0] = 0;
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 3, "length for unicode/b/CTRL");
+	is_str (buffer, "C-b", "buffer for unicode/b/CTRL");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LONGMOD);
+	is_int (len, 6, "length for unicode/b/CTRL longmod");
+	is_str (buffer, "Ctrl-b", "buffer for unicode/b/CTRL longmod");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LONGMOD | TERMKEY_FORMAT_SPACEMOD);
+	is_int (len, 6, "length for unicode/b/CTRL longmod|spacemod");
+	is_str (buffer, "Ctrl b", "buffer for unicode/b/CTRL longmod|spacemod");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LONGMOD | TERMKEY_FORMAT_LOWERMOD);
+	is_int (len, 6, "length for unicode/b/CTRL longmod|lowermod");
+	is_str (buffer, "ctrl-b", "buffer for unicode/b/CTRL longmod|lowermod");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LONGMOD | TERMKEY_FORMAT_SPACEMOD
+		| TERMKEY_FORMAT_LOWERMOD);
+	is_int (len, 6, "length for unicode/b/CTRL longmod|spacemod|lowermode");
+	is_str (buffer, "ctrl b",
+		"buffer for unicode/b/CTRL longmod|spacemod|lowermode");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_CARETCTRL);
+	is_int (len, 2, "length for unicode/b/CTRL caretctrl");
+	is_str (buffer, "^B", "buffer for unicode/b/CTRL caretctrl");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_WRAPBRACKET);
+	is_int (len, 5, "length for unicode/b/CTRL wrapbracket");
+	is_str (buffer, "<C-b>", "buffer for unicode/b/CTRL wrapbracket");
+
+	key.type = TERMKEY_TYPE_KEY;
+	key.code.codepoint = 'c';
+	key.modifiers = TERMKEY_KEYMOD_ALT;
+	key.multibyte[0] = 0;
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 3, "length for unicode/c/ALT");
+	is_str (buffer, "A-c", "buffer for unicode/c/ALT");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LONGMOD);
+	is_int (len, 5, "length for unicode/c/ALT longmod");
+	is_str (buffer, "Alt-c", "buffer for unicode/c/ALT longmod");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_ALTISMETA);
+	is_int (len, 3, "length for unicode/c/ALT altismeta");
+	is_str (buffer, "M-c", "buffer for unicode/c/ALT altismeta");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LONGMOD|TERMKEY_FORMAT_ALTISMETA);
+	is_int (len, 6, "length for unicode/c/ALT longmod|altismeta");
+	is_str (buffer, "Meta-c", "buffer for unicode/c/ALT longmod|altismeta");
+
+	key.type = TERMKEY_TYPE_KEYSYM;
+	key.code.sym = TERMKEY_SYM_UP;
+	key.modifiers = 0;
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 2, "length for sym/Up/0");
+	is_str (buffer, "Up", "buffer for sym/Up/0");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_WRAPBRACKET);
+	is_int (len, 4, "length for sym/Up/0 wrapbracket");
+	is_str (buffer, "<Up>", "buffer for sym/Up/0 wrapbracket");
+
+	key.type = TERMKEY_TYPE_KEYSYM;
+	key.code.sym = TERMKEY_SYM_PAGEUP;
+	key.modifiers = 0;
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 6, "length for sym/PageUp/0");
+	is_str (buffer, "PageUp", "buffer for sym/PageUp/0");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LOWERSPACE);
+	is_int (len, 7, "length for sym/PageUp/0 lowerspace");
+	is_str (buffer, "page up", "buffer for sym/PageUp/0 lowerspace");
+
+	/* If size of buffer is too small,
+	 * strfkey should return something consistent */
+	len = termkey_strfkey (tk, buffer, 4, &key, 0);
+	is_int (len, 6, "length for sym/PageUp/0");
+	is_str (buffer, "Pag", "buffer of len 4 for sym/PageUp/0");
+
+	len = termkey_strfkey (tk, buffer, 4, &key, TERMKEY_FORMAT_LOWERSPACE);
+	is_int (len, 7, "length for sym/PageUp/0 lowerspace");
+	is_str (buffer, "pag", "buffer of len 4 for sym/PageUp/0 lowerspace");
+
+	key.type = TERMKEY_TYPE_FUNCTION;
+	key.code.number = 5;
+	key.modifiers = 0;
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 2, "length for func/5/0");
+	is_str (buffer, "F5", "buffer for func/5/0");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_WRAPBRACKET);
+	is_int (len, 4, "length for func/5/0 wrapbracket");
+	is_str (buffer, "<F5>", "buffer for func/5/0 wrapbracket");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key,
+		TERMKEY_FORMAT_LOWERSPACE);
+	is_int (len, 2, "length for func/5/0 lowerspace");
+	is_str (buffer, "f5", "buffer for func/5/0 lowerspace");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/12strpkey.c b/tests/12strpkey.c
new file mode 100644
index 0000000..f67b67a
--- /dev/null
+++ b/tests/12strpkey.c
@@ -0,0 +1,157 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	const char *endp;
+
+#define CLEAR_KEY do { key.type = -1; key.code.codepoint = -1; \
+	key.modifiers = -1; key.multibyte[0] = 0; } while (0)
+
+	plan_tests (62);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "A", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type for unicode/A/0");
+	is_int (key.code.codepoint, 'A', "key.code.codepoint for unicode/A/0");
+	is_int (key.modifiers, 0, "key.modifiers for unicode/A/0");
+	is_str (key.multibyte, "A", "key.multibyte for unicode/A/0");
+	is_str (endp, "", "consumed entire input for unicode/A/0");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "A and more", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/A/0 trailing");
+	is_int (key.code.codepoint, 'A',
+		"key.code.codepoint for unicode/A/0 trailing");
+	is_int (key.modifiers, 0, "key.modifiers for unicode/A/0 trailing");
+	is_str (key.multibyte, "A", "key.multibyte for unicode/A/0 trailing");
+	is_str (endp, " and more",
+		"points at string tail for unicode/A/0 trailing");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "C-b", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type for unicode/b/CTRL");
+	is_int (key.code.codepoint, 'b', "key.code.codepoint for unicode/b/CTRL");
+	is_int (key.modifiers, TERMKEY_KEYMOD_CTRL,
+		"key.modifiers for unicode/b/CTRL");
+	is_str (key.multibyte, "b", "key.multibyte for unicode/b/CTRL");
+	is_str (endp, "", "consumed entire input for unicode/b/CTRL");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "Ctrl-b", &key, TERMKEY_FORMAT_LONGMOD);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/b/CTRL longmod");
+	is_int (key.code.codepoint, 'b',
+		"key.code.codepoint for unicode/b/CTRL longmod");
+	is_int (key.modifiers, TERMKEY_KEYMOD_CTRL,
+		"key.modifiers for unicode/b/CTRL longmod");
+	is_str (key.multibyte, "b", "key.multibyte for unicode/b/CTRL longmod");
+	is_str (endp, "", "consumed entire input for unicode/b/CTRL longmod");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "^B", &key, TERMKEY_FORMAT_CARETCTRL);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/b/CTRL caretctrl");
+	is_int (key.code.codepoint, 'b',
+		"key.code.codepoint for unicode/b/CTRL caretctrl");
+	is_int (key.modifiers, TERMKEY_KEYMOD_CTRL,
+		"key.modifiers for unicode/b/CTRL caretctrl");
+	is_str (key.multibyte, "b", "key.multibyte for unicode/b/CTRL caretctrl");
+	is_str (endp, "", "consumed entire input for unicode/b/CTRL caretctrl");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "A-c", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type for unicode/c/ALT");
+	is_int (key.code.codepoint, 'c', "key.code.codepoint for unicode/c/ALT");
+	is_int (key.modifiers, TERMKEY_KEYMOD_ALT,
+		"key.modifiers for unicode/c/ALT");
+	is_str (key.multibyte, "c", "key.multibyte for unicode/c/ALT");
+	is_str (endp, "", "consumed entire input for unicode/c/ALT");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "Alt-c", &key, TERMKEY_FORMAT_LONGMOD);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/c/ALT longmod");
+	is_int (key.code.codepoint, 'c',
+		"key.code.codepoint for unicode/c/ALT longmod");
+	is_int (key.modifiers, TERMKEY_KEYMOD_ALT,
+		"key.modifiers for unicode/c/ALT longmod");
+	is_str (key.multibyte, "c", "key.multibyte for unicode/c/ALT longmod");
+	is_str (endp, "", "consumed entire input for unicode/c/ALT longmod");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "M-c", &key, TERMKEY_FORMAT_ALTISMETA);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/c/ALT altismeta");
+	is_int (key.code.codepoint, 'c',
+		"key.code.codepoint for unicode/c/ALT altismeta");
+	is_int (key.modifiers, TERMKEY_KEYMOD_ALT,
+		"key.modifiers for unicode/c/ALT altismeta");
+	is_str (key.multibyte, "c", "key.multibyte for unicode/c/ALT altismeta");
+	is_str (endp, "", "consumed entire input for unicode/c/ALT altismeta");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "Meta-c", &key,
+		TERMKEY_FORMAT_ALTISMETA | TERMKEY_FORMAT_LONGMOD);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/c/ALT altismeta+longmod");
+	is_int (key.code.codepoint, 'c',
+		"key.code.codepoint for unicode/c/ALT altismeta+longmod");
+	is_int (key.modifiers, TERMKEY_KEYMOD_ALT,
+		"key.modifiers for unicode/c/ALT altismeta+longmod");
+	is_str (key.multibyte, "c", "key.multibyte for unicode/c/ALT altismeta+longmod");
+	is_str (endp, "",
+		"consumed entire input for unicode/c/ALT altismeta+longmod");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "meta c", &key,
+		TERMKEY_FORMAT_ALTISMETA | TERMKEY_FORMAT_LONGMOD
+		| TERMKEY_FORMAT_SPACEMOD | TERMKEY_FORMAT_LOWERMOD);
+	is_int (key.type, TERMKEY_TYPE_KEY,
+		"key.type for unicode/c/ALT altismeta+long/space+lowermod");
+	is_int (key.code.codepoint, 'c',
+		"key.code.codepoint for unicode/c/ALT altismeta+long/space+lowermod");
+	is_int (key.modifiers, TERMKEY_KEYMOD_ALT,
+		"key.modifiers for unicode/c/ALT altismeta+long/space+lowermod");
+	is_str (key.multibyte, "c",
+		"key.multibyte for unicode/c/ALT altismeta+long/space_lowermod");
+	is_str (endp, "",
+		"consumed entire input for unicode/c/ALT altismeta+long/space+lowermod");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "ctrl alt page up", &key,
+		TERMKEY_FORMAT_LONGMOD | TERMKEY_FORMAT_SPACEMOD
+		| TERMKEY_FORMAT_LOWERMOD | TERMKEY_FORMAT_LOWERSPACE);
+	is_int (key.type, TERMKEY_TYPE_KEYSYM,
+		"key.type for sym/PageUp/CTRL+ALT long/space/lowermod+lowerspace");
+	is_int (key.code.sym, TERMKEY_SYM_PAGEUP,
+		"key.code.codepoint for sym/PageUp/CTRL+ALT long/space/lowermod+lowerspace");
+	is_int (key.modifiers, TERMKEY_KEYMOD_ALT | TERMKEY_KEYMOD_CTRL,
+		"key.modifiers for sym/PageUp/CTRL+ALT long/space/lowermod+lowerspace");
+	is_str (endp, "",
+		"consumed entire input for sym/PageUp/CTRL+ALT"
+		" long/space/lowermod+lowerspace");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "Up", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type for sym/Up/0");
+	is_int (key.code.sym, TERMKEY_SYM_UP, "key.code.codepoint for sym/Up/0");
+	is_int (key.modifiers, 0, "key.modifiers for sym/Up/0");
+	is_str (endp, "", "consumed entire input for sym/Up/0");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "F5", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_FUNCTION, "key.type for func/5/0");
+	is_int (key.code.number, 5, "key.code.number for func/5/0");
+	is_int (key.modifiers, 0, "key.modifiers for func/5/0");
+	is_str (endp, "", "consumed entire input for func/5/0");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/13cmpkey.c b/tests/13cmpkey.c
new file mode 100644
index 0000000..1e12b5c
--- /dev/null
+++ b/tests/13cmpkey.c
@@ -0,0 +1,72 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key1, key2;
+
+	plan_tests (12);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	key1.type = TERMKEY_TYPE_KEY;
+	key1.code.codepoint = 'A';
+	key1.modifiers = 0;
+
+	is_int (termkey_keycmp (tk, &key1, &key1), 0, "cmpkey same structure");
+
+	key2.type = TERMKEY_TYPE_KEY;
+	key2.code.codepoint = 'A';
+	key2.modifiers = 0;
+
+	is_int (termkey_keycmp (tk, &key1, &key2), 0, "cmpkey identical structure");
+
+	key2.modifiers = TERMKEY_KEYMOD_CTRL;
+
+	ok (termkey_keycmp (tk, &key1, &key2) < 0,
+		"cmpkey orders CTRL after nomod");
+	ok (termkey_keycmp (tk, &key2, &key1) > 0,
+		"cmpkey orders nomod before CTRL");
+
+	key2.code.codepoint = 'B';
+	key2.modifiers = 0;
+
+	ok (termkey_keycmp (tk, &key1, &key2) < 0, "cmpkey orders 'B' after 'A'");
+	ok (termkey_keycmp (tk, &key2, &key1) > 0, "cmpkey orders 'A' before 'B'");
+
+	key1.modifiers = TERMKEY_KEYMOD_CTRL;
+
+	ok (termkey_keycmp (tk, &key1, &key2) < 0,
+		"cmpkey orders nomod 'B' after CTRL 'A'");
+	ok (termkey_keycmp (tk, &key2, &key1) > 0,
+		"cmpkey orders CTRL 'A' before nomod 'B'");
+
+	key2.type = TERMKEY_TYPE_KEYSYM;
+	key2.code.sym = TERMKEY_SYM_UP;
+
+	ok (termkey_keycmp (tk, &key1, &key2) < 0,
+		"cmpkey orders KEYSYM after KEY");
+	ok (termkey_keycmp (tk, &key2, &key1) > 0,
+		"cmpkey orders KEY before KEYSYM");
+
+	key1.type = TERMKEY_TYPE_KEYSYM;
+	key1.code.sym = TERMKEY_SYM_SPACE;
+	key1.modifiers = 0;
+	key2.type = TERMKEY_TYPE_KEY;
+	key2.code.codepoint = ' ';
+	key2.modifiers = 0;
+
+	is_int (termkey_keycmp (tk, &key1, &key2), 0,
+		"cmpkey considers KEYSYM/SPACE and KEY/SP identical");
+
+	termkey_set_canonflags (tk,
+		termkey_get_canonflags (tk) | TERMKEY_CANON_SPACESYMBOL);
+	is_int (termkey_keycmp (tk, &key1, &key2), 0,
+		"cmpkey considers KEYSYM/SPACE and KEY/SP"
+		" identical under SPACESYMBOL");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/20canon.c b/tests/20canon.c
new file mode 100644
index 0000000..a60c2ef
--- /dev/null
+++ b/tests/20canon.c
@@ -0,0 +1,74 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	const char *endp;
+
+#define CLEAR_KEY do { key.type = -1; key.code.codepoint = -1; \
+	key.modifiers = -1; key.multibyte[0] = 0; } while (0)
+
+	plan_tests (26);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, " ", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type for SP/unicode");
+	is_int (key.code.codepoint, ' ', "key.code.codepoint for SP/unicode");
+	is_int (key.modifiers, 0, "key.modifiers for SP/unicode");
+	is_str (key.multibyte, " ", "key.multibyte for SP/unicode");
+	is_str (endp, "", "consumed entire input for SP/unicode");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "Space", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEY, "key.type for Space/unicode");
+	is_int (key.code.codepoint, ' ', "key.code.codepoint for Space/unicode");
+	is_int (key.modifiers, 0, "key.modifiers for Space/unicode");
+	is_str (key.multibyte, " ", "key.multibyte for Space/unicode");
+	is_str (endp, "", "consumed entire input for Space/unicode");
+
+	termkey_set_canonflags (tk,
+		termkey_get_canonflags (tk) | TERMKEY_CANON_SPACESYMBOL);
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, " ", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type for SP/symbol");
+	is_int (key.code.sym, TERMKEY_SYM_SPACE,
+		"key.code.codepoint for SP/symbol");
+	is_int (key.modifiers, 0, "key.modifiers for SP/symbol");
+	is_str (endp, "", "consumed entire input for SP/symbol");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "Space", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type for Space/symbol");
+	is_int (key.code.sym, TERMKEY_SYM_SPACE,
+		"key.code.codepoint for Space/symbol");
+	is_int (key.modifiers, 0, "key.modifiers for Space/symbol");
+	is_str (endp, "", "consumed entire input for Space/symbol");
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "DEL", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type for Del/unconverted");
+	is_int (key.code.sym, TERMKEY_SYM_DEL,
+		"key.code.codepoint for Del/unconverted");
+	is_int (key.modifiers, 0, "key.modifiers for Del/unconverted");
+	is_str (endp, "", "consumed entire input for Del/unconverted");
+
+	termkey_set_canonflags (tk,
+		termkey_get_canonflags (tk) | TERMKEY_CANON_DELBS);
+
+	CLEAR_KEY;
+	endp = termkey_strpkey (tk, "DEL", &key, 0);
+	is_int (key.type, TERMKEY_TYPE_KEYSYM, "key.type for Del/as-backspace");
+	is_int (key.code.sym, TERMKEY_SYM_BACKSPACE,
+		"key.code.codepoint for Del/as-backspace");
+	is_int (key.modifiers, 0, "key.modifiers for Del/as-backspace");
+	is_str (endp, "", "consumed entire input for Del/as-backspace");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/30mouse.c b/tests/30mouse.c
new file mode 100644
index 0000000..e4f4b27
--- /dev/null
+++ b/tests/30mouse.c
@@ -0,0 +1,174 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	termkey_mouse_event_t ev;
+	int button, line, col;
+	char buffer[32];
+	size_t len;
+
+	plan_tests (60);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	termkey_push_bytes (tk, "\e[M !!", 6);
+
+	key.type = -1;
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mouse press");
+
+	is_int (key.type, TERMKEY_TYPE_MOUSE, "key.type for mouse press");
+
+	ev = -1; button = -1; line = -1; col = -1;
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_PRESS, "mouse event for press");
+	is_int (button, 1, "mouse button for press");
+	is_int (line, 1, "mouse line for press");
+	is_int (col, 1, "mouse column for press");
+	is_int (key.modifiers, 0, "modifiers for press");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 13, "string length for press");
+	is_str (buffer, "MousePress(1)", "string buffer for press");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer,
+		&key, TERMKEY_FORMAT_MOUSE_POS);
+	is_int (len, 21, "string length for press");
+	is_str (buffer, "MousePress(1) @ (1,1)", "string buffer for press");
+
+	termkey_push_bytes (tk, "\e[M@\"!", 6);
+
+	key.type = -1;
+	ev = -1; button = -1; line = -1; col = -1;
+	termkey_getkey (tk, &key);
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_DRAG, "mouse event for drag");
+	is_int (button, 1, "mouse button for drag");
+	is_int (line, 1, "mouse line for drag");
+	is_int (col, 2, "mouse column for drag");
+	is_int (key.modifiers, 0, "modifiers for press");
+
+	termkey_push_bytes (tk, "\e[M##!", 6);
+
+	key.type = -1;
+	ev = -1; button = -1; line = -1; col = -1;
+	termkey_getkey (tk, &key);
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_RELEASE, "mouse event for release");
+	is_int (line, 1, "mouse line for release");
+	is_int (col, 3, "mouse column for release");
+	is_int (key.modifiers, 0, "modifiers for press");
+
+	termkey_push_bytes (tk, "\e[M0++", 6);
+
+	key.type = -1;
+	ev = -1; button = -1; line = -1; col = -1;
+	termkey_getkey (tk, &key);
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_PRESS, "mouse event for Ctrl-press");
+	is_int (button, 1, "mouse button for Ctrl-press");
+	is_int (line, 11, "mouse line for Ctrl-press");
+	is_int (col, 11, "mouse column for Ctrl-press");
+	is_int (key.modifiers, TERMKEY_KEYMOD_CTRL, "modifiers for Ctrl-press");
+
+	len = termkey_strfkey (tk, buffer, sizeof buffer, &key, 0);
+	is_int (len, 15, "string length for Ctrl-press");
+	is_str (buffer, "C-MousePress(1)", "string buffer for Ctrl-press");
+
+	// rxvt protocol
+	termkey_push_bytes (tk, "\e[0;20;20M", 10);
+
+	key.type = -1;
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mouse press rxvt protocol");
+
+	is_int (key.type, TERMKEY_TYPE_MOUSE,
+		"key.type for mouse press rxvt protocol");
+
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_PRESS, "mouse event for press rxvt protocol");
+	is_int (button, 1, "mouse button for press rxvt protocol");
+	is_int (line, 20, "mouse line for press rxvt protocol");
+	is_int (col, 20, "mouse column for press rxvt protocol");
+	is_int (key.modifiers, 0, "modifiers for press rxvt protocol");
+
+	termkey_push_bytes (tk, "\e[3;20;20M", 10);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mouse release rxvt protocol");
+
+	is_int (key.type, TERMKEY_TYPE_MOUSE,
+		"key.type for mouse release rxvt protocol");
+
+	ev = -1; button = -1; line = -1; col = -1;
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_RELEASE, "mouse event for release rxvt protocol");
+	is_int (line, 20, "mouse line for release rxvt protocol");
+	is_int (col, 20, "mouse column for release rxvt protocol");
+	is_int (key.modifiers, 0, "modifiers for release rxvt protocol");
+
+	// SGR protocol
+	termkey_push_bytes (tk, "\e[<0;30;30M", 11);
+
+	key.type = -1;
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mouse press SGR encoding");
+
+	is_int (key.type, TERMKEY_TYPE_MOUSE,
+		"key.type for mouse press SGR encoding");
+
+	ev = -1; button = -1; line = -1; col = -1;
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_PRESS, "mouse event for press SGR");
+	is_int (button, 1, "mouse button for press SGR");
+	is_int (line, 30, "mouse line for press SGR");
+	is_int (col, 30, "mouse column for press SGR");
+	is_int (key.modifiers, 0, "modifiers for press SGR");
+
+	termkey_push_bytes (tk, "\e[<0;30;30m", 11);
+
+	key.type = -1;
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mouse release SGR encoding");
+
+	is_int (key.type, TERMKEY_TYPE_MOUSE,
+		"key.type for mouse release SGR encoding");
+
+	ev = -1; button = -1; line = -1; col = -1;
+	is_int (termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col),
+		TERMKEY_RES_KEY, "interpret_mouse yields RES_KEY");
+
+	is_int (ev, TERMKEY_MOUSE_RELEASE, "mouse event for release SGR");
+
+	termkey_push_bytes (tk, "\e[<0;500;300M", 13);
+
+	key.type = -1;
+	ev = -1; button = -1; line = -1; col = -1;
+	termkey_getkey (tk, &key);
+	termkey_interpret_mouse (tk, &key, &ev, &button, &line, &col);
+
+	is_int (line, 300, "mouse line for press SGR wide");
+	is_int (col, 500, "mouse column for press SGR wide");
+
+	termkey_destroy (tk);
+
+	return exit_status ();
+}
diff --git a/tests/31position.c b/tests/31position.c
new file mode 100644
index 0000000..a62be7a
--- /dev/null
+++ b/tests/31position.c
@@ -0,0 +1,38 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	int line, col;
+
+	plan_tests (8);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	termkey_push_bytes (tk, "\e[?15;7R", 8);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for position report");
+
+	is_int (key.type, TERMKEY_TYPE_POSITION, "key.type for position report");
+
+	is_int (termkey_interpret_position (tk, &key, &line, &col), TERMKEY_RES_KEY,
+		"interpret_position yields RES_KEY");
+
+	is_int (line, 15, "line for position report");
+	is_int (col, 7, "column for position report");
+
+	/* A plain CSI R is likely to be <F3> though.  This is tricky :/ */
+	termkey_push_bytes (tk, "\e[R", 3);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for <F3>");
+
+	is_int (key.type, TERMKEY_TYPE_FUNCTION, "key.type for <F3>");
+	is_int (key.code.number, 3, "key.code.number for <F3>");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/32modereport.c b/tests/32modereport.c
new file mode 100644
index 0000000..5d79725
--- /dev/null
+++ b/tests/32modereport.c
@@ -0,0 +1,45 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	int initial, mode, value;
+
+	plan_tests (12);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	termkey_push_bytes (tk, "\e[?1;2$y", 8);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mode report");
+
+	is_int (key.type, TERMKEY_TYPE_MODEREPORT, "key.type for mode report");
+
+	is_int (termkey_interpret_modereport (tk, &key, &initial, &mode, &value),
+		TERMKEY_RES_KEY, "interpret_modereoprt yields RES_KEY");
+
+	is_int (initial, '?', "initial indicator from mode report");
+	is_int (mode, 1, "mode number from mode report");
+	is_int (value, 2, "mode value from mode report");
+
+	termkey_push_bytes (tk, "\e[4;1$y", 7);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for mode report");
+
+	is_int (key.type, TERMKEY_TYPE_MODEREPORT, "key.type for mode report");
+
+	is_int (termkey_interpret_modereport (tk, &key, &initial, &mode, &value),
+		TERMKEY_RES_KEY, "interpret_modereoprt yields RES_KEY");
+
+	is_int (initial, 0, "initial indicator from mode report");
+	is_int (mode, 4, "mode number from mode report");
+	is_int (value, 1, "mode value from mode report");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/39csi.c b/tests/39csi.c
new file mode 100644
index 0000000..32a15b0
--- /dev/null
+++ b/tests/39csi.c
@@ -0,0 +1,52 @@
+#include "../termkey.h"
+#include "taplib.h"
+
+int
+main (int argc, char *argv[])
+{
+	termkey_t *tk;
+	termkey_key_t key;
+	long args[16];
+	size_t nargs = 16;
+	unsigned long command;
+
+	plan_tests (15);
+
+	tk = termkey_new_abstract ("vt100", NULL, 0);
+
+	termkey_push_bytes (tk, "\e[5;25v", 7);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for CSI v");
+
+	is_int (key.type, TERMKEY_TYPE_UNKNOWN_CSI, "key.type for unknown CSI");
+
+	is_int (termkey_interpret_csi (tk, &key, args, &nargs, &command),
+		TERMKEY_RES_KEY, "interpret_csi yields RES_KEY");
+
+	is_int (nargs, 2, "nargs for unknown CSI");
+	is_int (args[0], 5, "args[0] for unknown CSI");
+	is_int (args[1], 25, "args[1] for unknown CSI");
+	is_int (command, 'v', "command for unknown CSI");
+
+	termkey_push_bytes (tk, "\e[?w", 4);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for CSI ? w");
+	is_int (key.type, TERMKEY_TYPE_UNKNOWN_CSI, "key.type for unknown CSI");
+	is_int (termkey_interpret_csi (tk, &key, args, &nargs, &command),
+		TERMKEY_RES_KEY, "interpret_csi yields RES_KEY");
+	is_int (command, ('?' << 8) | 'w', "command for unknown CSI");
+
+	termkey_push_bytes (tk, "\e[?$x", 5);
+
+	is_int (termkey_getkey (tk, &key), TERMKEY_RES_KEY,
+		"getkey yields RES_KEY for CSI ? $x");
+	is_int (key.type, TERMKEY_TYPE_UNKNOWN_CSI, "key.type for unknown CSI");
+	is_int (termkey_interpret_csi (tk, &key, args, &nargs, &command),
+		TERMKEY_RES_KEY, "interpret_csi yields RES_KEY");
+	is_int (command, ('$' << 16) | ('?' << 8) | 'x', "command for unknown CSI");
+
+	termkey_destroy (tk);
+	return exit_status ();
+}
diff --git a/tests/taplib.c b/tests/taplib.c
new file mode 100644
index 0000000..bfb70f8
--- /dev/null
+++ b/tests/taplib.c
@@ -0,0 +1,79 @@
+#include "taplib.h"
+
+#include <stdio.h>
+#include <stdarg.h>
+#include <string.h>
+
+static int g_nexttest = 1;
+static int g_exit_status = 0;
+
+void
+plan_tests (int n)
+{
+	printf ("1..%d\n", n);
+}
+
+void
+pass (char *name)
+{
+	printf ("ok %d - %s\n", g_nexttest++, name);
+}
+
+void
+fail (char *name)
+{
+	printf ("not ok %d - %s\n", g_nexttest++, name);
+	g_exit_status = 1;
+}
+
+void
+ok (int cmp, char *name)
+{
+	if (cmp)
+		pass (name);
+	else
+		fail (name);
+}
+
+void
+diag (char *fmt, ...)
+{
+	va_list args;
+	va_start (args, fmt);
+
+	fprintf (stderr, "# ");
+	vfprintf (stderr, fmt, args);
+	fprintf (stderr, "\n");
+
+	va_end (args);
+}
+
+void
+is_int (int got, int expect, char *name)
+{
+	if (got == expect)
+		ok (1, name);
+	else
+	{
+		ok (0, name);
+		diag ("got %d expected %d", got, expect);
+	}
+}
+
+void
+is_str (const char *got, const char *expect, char *name)
+{
+	if (strcmp (got, expect) == 0)
+		ok (1, name);
+	else
+	{
+		ok (0, name);
+		diag ("got '%s' expected '%s'", got, expect);
+	}
+}
+
+int
+exit_status(void)
+{
+	return g_exit_status;
+}
diff --git a/tests/taplib.h b/tests/taplib.h
new file mode 100644
index 0000000..9045c32
--- /dev/null
+++ b/tests/taplib.h
@@ -0,0 +1,7 @@
+void plan_tests (int n);
+void ok (int cmp, char *name);
+void pass (char *name);
+void fail (char *name);
+void is_int (int got, int expect, char *name);
+void is_str (const char *got, const char *expect, char *name);
+int exit_status (void);