Mercurial > vim
changeset 20502:f28a49da879d v8.2.0805
patch 8.2.0805: terminal key codes test fails on some systems
Commit: https://github.com/vim/vim/commit/fe81389d606ae79415d208207295f41a4375c580
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu May 21 20:38:31 2020 +0200
patch 8.2.0805: terminal key codes test fails on some systems
Problem: Terminal key codes test fails on some systems.
Solution: Skip keypad 3 and 9. (Yegappan Lakshmanan, closes https://github.com/vim/vim/issues/6070)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Thu, 21 May 2020 20:45:03 +0200 |
| parents | e752fcbd74e6 |
| children | 34d4df8db24c |
| files | src/testdir/test_terminal.vim src/version.c |
| diffstat | 2 files changed, 38 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/testdir/test_terminal.vim +++ b/src/testdir/test_terminal.vim @@ -2683,22 +2683,45 @@ func Test_term_keycode_translation() \ '<F8>', '<F9>', '<F10>', '<F11>', '<F12>', '<Home>', '<S-Home>', \ '<C-Home>', '<End>', '<S-End>', '<C-End>', '<Insert>', '<Del>', \ '<Left>', '<S-Left>', '<C-Left>', '<Right>', '<S-Right>', - \ '<C-Right>', '<Up>', '<S-Up>', '<Down>', '<S-Down>', - \ '0123456789', "\t\t.+-*/"] - - for k in keys - call term_sendkeys(buf, "i\<C-K>" .. k .. "\<CR>\<C-\>\<C-N>") + \ '<C-Right>', '<Up>', '<S-Up>', '<Down>', '<S-Down>'] + + call term_sendkeys(buf, "i") + for i in range(len(keys)) + call term_sendkeys(buf, "\<C-U>\<C-K>" .. keys[i]) + call term_wait(buf) + call assert_equal(output[i], term_getline(buf, 1)) endfor - call term_sendkeys(buf, "i\<K0>\<K1>\<K2>\<K3>\<K4>\<K5>\<K6>\<K7>") - call term_sendkeys(buf, "\<K8>\<K9>\<kEnter>\<kPoint>\<kPlus>") - call term_sendkeys(buf, "\<kMinus>\<kMultiply>\<kDivide>\<C-\>\<C-N>") - call term_sendkeys(buf, "\<Home>\<Ins>\<Tab>\<S-Tab>\<C-\>\<C-N>") - - call term_sendkeys(buf, ":write Xkeycodes\<CR>") + + "call term_sendkeys(buf, "\<K0>\<K1>\<K2>\<K3>\<K4>\<K5>\<K6>\<K7>\<K8>\<K9>") + "call term_sendkeys(buf, "\<kEnter>\<kPoint>\<kPlus>") + "call term_sendkeys(buf, "\<kMinus>\<kMultiply>\<kDivide>") + "call term_sendkeys(buf, "\<Esc>") + "call term_sendkeys(buf, "\<Home>\<Ins>\<Tab>\<S-Tab>") + "call term_sendkeys(buf, "\<Esc>") + + "call term_sendkeys(buf, ":write Xkeycodes\<CR>") + + let keypad_keys = ["\<k0>", "\<k1>", "\<k2>", "\<k3>", "\<k4>", "\<k5>", + \ "\<k6>", "\<k7>", "\<k8>", "\<k9>", "\<kPoint>", "\<kPlus>", + \ "\<kMinus>", "\<kMultiply>", "\<kDivide>"] + let keypad_output = ['0', '1', '2', '3', '4', '5', + \ '6', '7', '8', '9', '.', '+', + \ '-', '*', '/'] + for i in range(len(keypad_keys)) + " TODO: Mysteriously keypad 3 and 9 do not work on some systems. + if keypad_output[i] == '3' || keypad_output[i] == '9' + continue + endif + call term_sendkeys(buf, "\<C-U>" .. keypad_keys[i]) + call term_wait(buf) + call assert_equal(keypad_output[i], term_getline(buf, 1)) + endfor + + call feedkeys("\<C-U>\<kEnter>\<BS>one\<C-W>.two", 'xt') call term_wait(buf) + call assert_equal('two', term_getline(buf, 1)) + call StopVimInTerminal(buf) - call assert_equal(output, readfile('Xkeycodes')) - call delete('Xkeycodes') endfunc " Test for using the mouse in a terminal