comparison src/testdir/test_termcodes.vim @ 16936:73e6ed2f69a2 v8.1.1469

patch 8.1.1469: no test for checking the cursor style response commit https://github.com/vim/vim/commit/66761db11d321d60d4692947e90de9030301f6ee Author: Bram Moolenaar <Bram@vim.org> Date: Wed Jun 5 22:07:51 2019 +0200 patch 8.1.1469: no test for checking the cursor style response Problem: No test for checking the cursor style response. Solution: Add a simple test. Also include the missing part of 8.1.1464.
author Bram Moolenaar <Bram@vim.org>
date Wed, 05 Jun 2019 22:15:05 +0200
parents 4912193bc5e7
children 1c264ca8f2e8
comparison
equal deleted inserted replaced
16935:60e55f8239ed 16936:73e6ed2f69a2
622 let &ttymouse = save_ttymouse 622 let &ttymouse = save_ttymouse
623 let &term = save_term 623 let &term = save_term
624 let &mouse = save_mouse 624 let &mouse = save_mouse
625 bwipe! 625 bwipe!
626 endfunc 626 endfunc
627
628 " This only checks if the sequence is recognized.
629 " TODO: check that the values were parsed properly
630 func Test_term_rgb_response()
631 set t_RF=x
632 set t_RB=y
633
634 " response to t_RF, 4 digits
635 let red = 0x12
636 let green = 0x34
637 let blue = 0x56
638 let seq = printf("\<Esc>]10;rgb:%02x00/%02x00/%02x00\x07", red, green, blue)
639 call feedkeys(seq, 'Lx!')
640 call assert_equal(seq, v:termrfgresp)
641
642 " response to t_RF, 2 digits
643 let red = 0x78
644 let green = 0x9a
645 let blue = 0xbc
646 let seq = printf("\<Esc>]10;rgb:%02x/%02x/%02x\x07", red, green, blue)
647 call feedkeys(seq, 'Lx!')
648 call assert_equal(seq, v:termrfgresp)
649
650 " response to t_RB, 4 digits
651 let red = 0x21
652 let green = 0x43
653 let blue = 0x65
654 let seq = printf("\<Esc>]11;rgb:%02x00/%02x00/%02x00\x07", red, green, blue)
655 call feedkeys(seq, 'Lx!')
656 call assert_equal(seq, v:termrbgresp)
657
658 " response to t_RB, 2 digits
659 let red = 0x87
660 let green = 0xa9
661 let blue = 0xcb
662 let seq = printf("\<Esc>]11;rgb:%02x/%02x/%02x\x07", red, green, blue)
663 call feedkeys(seq, 'Lx!')
664 call assert_equal(seq, v:termrbgresp)
665
666 set t_RF= t_RB=
667 endfunc
668
669 " This only checks if the sequence is recognized.
670 " This must be last, because it has side effects to xterm properties.
671 " TODO: check that the values were parsed properly
672 func Test_xx_term_style_response()
673 " Termresponse is only parsed when t_RV is not empty.
674 set t_RV=x
675
676 " send the termresponse to trigger requesting the XT codes
677 let seq = "\<Esc>[>41;337;0c"
678 call feedkeys(seq, 'Lx!')
679 call assert_equal(seq, v:termresponse)
680
681 let seq = "\<Esc>P1$r2 q\<Esc>\\"
682 call feedkeys(seq, 'Lx!')
683 call assert_equal(seq, v:termstyleresp)
684
685 set t_RV=
686 endfunc