1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
require_relative 'helper'
require 'reline/ansi'
class Reline::ANSI::TestWithTerminfo < Reline::TestCase
def setup
Reline.send(:test_mode, ansi: true)
@config = Reline::Config.new
Reline::IOGate.set_default_key_bindings(@config, allow_terminfo: true)
end
def teardown
Reline.send(:test_mode, ansi: false) # Change IOGate back to GeneralIO
Reline.test_reset
end
# Home key
def test_khome
assert_key_binding(Reline::Terminfo.tigetstr('khome'), :ed_move_to_beg)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# End key
def test_kend
assert_key_binding(Reline::Terminfo.tigetstr('kend'), :ed_move_to_end)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# Delete key
def test_kdch1
assert_key_binding(Reline::Terminfo.tigetstr('kdch1'), :key_delete)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# Up arrow key
def test_kcuu1
assert_key_binding(Reline::Terminfo.tigetstr('kcuu1'), :ed_prev_history)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# Down arrow key
def test_kcud1
assert_key_binding(Reline::Terminfo.tigetstr('kcud1'), :ed_next_history)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# Right arrow key
def test_kcuf1
assert_key_binding(Reline::Terminfo.tigetstr('kcuf1'), :ed_next_char)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# Left arrow key
def test_kcub1
assert_key_binding(Reline::Terminfo.tigetstr('kcub1'), :ed_prev_char)
rescue Reline::Terminfo::TerminfoError => e
omit e.message
end
# Ctrl+arrow and Meta+arrow; always mapped regardless of terminfo enabled or not
def test_extended
assert_key_binding("\e[1;5C", :em_next_word) # Ctrl+→
assert_key_binding("\e[1;5D", :ed_prev_word) # Ctrl+←
assert_key_binding("\e[1;3C", :em_next_word) # Meta+→
assert_key_binding("\e[1;3D", :ed_prev_word) # Meta+←
end
# Shift-Tab; always mapped regardless of terminfo enabled or not
def test_shift_tab
assert_key_binding("\e[Z", :completion_journey_up, [:emacs, :vi_insert])
end
# A few emacs bindings that are always mapped regardless of terminfo enabled or not
def test_more_emacs
assert_key_binding("\e ", :em_set_mark, [:emacs])
assert_key_binding("\C-x\C-x", :em_exchange_mark, [:emacs])
end
end if Reline::Terminfo.enabled?
|