diff options
author | Přemysl Janouch <p.janouch@gmail.com> | 2014-10-09 23:47:24 +0200 |
---|---|---|
committer | Přemysl Janouch <p.janouch@gmail.com> | 2014-10-09 23:47:24 +0200 |
commit | 5692f32bcfa049fc2b5555b5a883045b217349b9 (patch) | |
tree | 512eaa1bece48291ffdf7cf4865a085e6ee0b2cc /t/39csi.c | |
parent | 3465d5553fbe88a75320d1da3f7228619492b036 (diff) | |
download | termo-5692f32bcfa049fc2b5555b5a883045b217349b9.tar.gz termo-5692f32bcfa049fc2b5555b5a883045b217349b9.tar.xz termo-5692f32bcfa049fc2b5555b5a883045b217349b9.zip |
CMake-ify, rename to termkey2 for the time being
Diffstat (limited to 't/39csi.c')
-rw-r--r-- | t/39csi.c | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/t/39csi.c b/t/39csi.c deleted file mode 100644 index 32a15b0..0000000 --- a/t/39csi.c +++ /dev/null @@ -1,52 +0,0 @@ -#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 (); -} |