commit d388d2ac8bf8c770bf97dc406e99a20ba5104855
author Bram Moolenaar <Bram@vim.org> Sun Jun 26 16:24:20 2016 +0200
committer Bram Moolenaar <Bram@vim.org> Sun Jun 26 16:24:20 2016 +0200
tree f947ce210a2a64c819c4c4395010ab68b6a73d6d
parent 802a0d902fca423acb15f835d7b09183883d79a0

patch 7.4.1954
Problem:    No test for what 7.4.1948 fixes.
Solution:   Add a test. (Hirohito Higashi, closes #880)

src/testdir/Make_all.mak

diff --git a/src/testdir/Make_all.mak b/src/testdir/Make_all.mak
index a22a76f..5f8ce7d 100644
--- a/src/testdir/Make_all.mak
+++ b/src/testdir/Make_all.mak
@@ -172,6 +172,7 @@
 	    test_hardcopy.res \
 	    test_history.res \
 	    test_increment.res \
+	    test_increment_dbcs.res \
 	    test_json.res \
 	    test_langmap.res \
 	    test_man.res \

src/testdir/test_increment_dbcs.vim

diff --git a/src/testdir/test_increment_dbcs.vim b/src/testdir/test_increment_dbcs.vim
new file mode 100644
index 0000000..e1b6632
--- /dev/null
+++ b/src/testdir/test_increment_dbcs.vim
@@ -0,0 +1,30 @@
+" Tests for using Ctrl-A/Ctrl-X using DBCS.
+if !has('multi_byte')
+  finish
+endif
+set encoding=cp932
+scriptencoding cp932
+
+func SetUp()
+  new
+  set nrformats&
+endfunc
+
+func TearDown()
+  bwipe!
+endfunc
+
+func Test_increment_dbcs_1()
+  set nrformats+=alpha
+  call setline(1, ["ŽR1"])
+  exec "norm! 0\<C-A>"
+  call assert_equal(["ŽR2"], getline(1, '$'))
+  call assert_equal([0, 1, 3, 0], getpos('.'))
+
+  call setline(1, ["‚`‚a‚b0xDE‚e"])
+  exec "norm! 0\<C-X>"
+  call assert_equal(["‚`‚a‚b0xDD‚e"], getline(1, '$'))
+  call assert_equal([0, 1, 10, 0], getpos('.'))
+endfunc
+
+" vim: shiftwidth=2 expandtab