1" Test ga normal command, and :ascii Ex command. 2 3func Do_ga(c) 4 call setline(1, a:c) 5 let l:a = execute("norm 1goga") 6 let l:b = execute("ascii") 7 call assert_equal(l:a, l:b) 8 return l:a 9endfunc 10 11func Test_ga_command() 12 new 13 set display=uhex 14 call assert_equal("\nNUL", Do_ga('')) 15 call assert_equal("\n<<01>> 1, Hex 01, Oct 001, Digr SH", Do_ga("\x01")) 16 call assert_equal("\n<<09>> 9, Hex 09, Oct 011, Digr HT", Do_ga("\t")) 17 18 set display= 19 call assert_equal("\nNUL", Do_ga('')) 20 call assert_equal("\n<^A> 1, Hex 01, Oct 001, Digr SH", Do_ga("\x01")) 21 call assert_equal("\n<^I> 9, Hex 09, Oct 011, Digr HT", Do_ga("\t")) 22 call assert_equal("\n<^@> 0, Hex 00, Octal 000", Do_ga("\n")) 23 24 call assert_equal("\n<e> 101, Hex 65, Octal 145", Do_ga('e')) 25 26 " Test a few multi-bytes characters. 27 call assert_equal("\n<é> 233, Hex 00e9, Oct 351, Digr e'", Do_ga('é')) 28 call assert_equal("\n<ẻ> 7867, Hex 1ebb, Oct 17273, Digr e2", Do_ga('ẻ')) 29 call assert_equal("\n<\U00012345> 74565, Hex 00012345, Octal 221505", Do_ga("\U00012345")) 30 31 " Test with combining characters. 32 call assert_equal("\n<e> 101, Hex 65, Octal 145 < ́> 769, Hex 0301, Octal 1401", Do_ga("e\u0301")) 33 call assert_equal("\n<e> 101, Hex 65, Octal 145 < ́> 769, Hex 0301, Octal 1401 < ̱> 817, Hex 0331, Octal 1461", Do_ga("e\u0301\u0331")) 34 call assert_equal("\n<e> 101, Hex 65, Octal 145 < ́> 769, Hex 0301, Octal 1401 < ̱> 817, Hex 0331, Octal 1461 < ̸> 824, Hex 0338, Octal 1470", Do_ga("e\u0301\u0331\u0338")) 35 36 " When using Mac fileformat, CR instead of NL is used for line termination 37 enew! 38 set fileformat=mac 39 call assert_equal("\n<^J> 10, Hex 0a, Oct 012, Digr NU", Do_ga("\r")) 40 41 bwipe! 42endfunc 43 44" vim: shiftwidth=2 sts=2 expandtab 45