vim: src/testdir/test_substitute.vim annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	d6b579475543
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	1 " Tests for the substitute (:s) command
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	3 source shared.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	4 source check.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	5 source screendump.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	6
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	7 func Test_multiline_subst()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	8 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	9 call append(0, ["1 aa",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	10 \ "bb",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	11 \ "cc",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	12 \ "2 dd",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	13 \ "ee",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	14 \ "3 ef",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	15 \ "gh",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	16 \ "4 ij",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	17 \ "5 a8",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	18 \ "8b c9",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	19 \ "9d",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	20 \ "6 e7",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	21 \ "77f",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	22 \ "xxxxx"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	23
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	24 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	25 " test if replacing a line break works with a back reference
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	26 /^1/,/^2/s/\n\(.\)/ \1/
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	27 " test if inserting a line break works with a back reference
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	28 /^3/,/^4/s/\(.\)$/\r\1/
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	29 " test if replacing a line break with another line break works
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	30 /^5/,/^6/s/\(\_d\{3}\)/x\1x/
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	31 call assert_equal('1 aa bb cc 2 dd ee', getline(1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	32 call assert_equal('3 e', getline(2))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	33 call assert_equal('f', getline(3))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	34 call assert_equal('g', getline(4))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	35 call assert_equal('h', getline(5))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	36 call assert_equal('4 i', getline(6))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	37 call assert_equal('j', getline(7))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	38 call assert_equal('5 ax8', getline(8))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	39 call assert_equal('8xb cx9', getline(9))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	40 call assert_equal('9xd', getline(10))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	41 call assert_equal('6 ex7', getline(11))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	42 call assert_equal('7x7f', getline(12))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	43 call assert_equal('xxxxx', getline(13))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	44 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	45 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	46
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	47 func Test_substitute_variants()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	48 " Validate that all the 2-/3-letter variants which embed the flags into the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	49 " command name actually work.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	50 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	51 let ln = 'Testing string'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	52 let variants = [
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	53 \ { 'cmd': ':s/Test/test/c', 'exp': 'testing string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	54 \ { 'cmd': ':s/foo/bar/ce', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	55 \ { 'cmd': ':s/t/r/cg', 'exp': 'Tesring srring', 'prompt': 'a' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	56 \ { 'cmd': ':s/t/r/ci', 'exp': 'resting string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	57 \ { 'cmd': ':s/t/r/cI', 'exp': 'Tesring string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	58 \ { 'cmd': ':s/t/r/c', 'exp': 'Testing string', 'prompt': 'n' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	59 \ { 'cmd': ':s/t/r/cn', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	60 \ { 'cmd': ':s/t/r/cp', 'exp': 'Tesring string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	61 \ { 'cmd': ':s/t/r/cl', 'exp': 'Tesring string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	62 \ { 'cmd': ':s/t/r/gc', 'exp': 'Tesring srring', 'prompt': 'a' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	63 \ { 'cmd': ':s/i/I/gc', 'exp': 'TestIng string', 'prompt': 'l' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	64 \ { 'cmd': ':s/foo/bar/ge', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	65 \ { 'cmd': ':s/t/r/g', 'exp': 'Tesring srring' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	66 \ { 'cmd': ':s/t/r/gi', 'exp': 'resring srring' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	67 \ { 'cmd': ':s/t/r/gI', 'exp': 'Tesring srring' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	68 \ { 'cmd': ':s/t/r/gn', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	69 \ { 'cmd': ':s/t/r/gp', 'exp': 'Tesring srring' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	70 \ { 'cmd': ':s/t/r/gl', 'exp': 'Tesring srring' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	71 \ { 'cmd': ':s//r/gr', 'exp': 'Testr strr' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	72 \ { 'cmd': ':s/t/r/ic', 'exp': 'resting string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	73 \ { 'cmd': ':s/foo/bar/ie', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	74 \ { 'cmd': ':s/t/r/i', 'exp': 'resting string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	75 \ { 'cmd': ':s/t/r/iI', 'exp': 'Tesring string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	76 \ { 'cmd': ':s/t/r/in', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	77 \ { 'cmd': ':s/t/r/ip', 'exp': 'resting string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	78 \ { 'cmd': ':s//r/ir', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	79 \ { 'cmd': ':s/t/r/Ic', 'exp': 'Tesring string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	80 \ { 'cmd': ':s/foo/bar/Ie', 'exp': ln },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	81 \ { 'cmd': ':s/t/r/Ig', 'exp': 'Tesring srring' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	82 \ { 'cmd': ':s/t/r/Ii', 'exp': 'resting string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	83 \ { 'cmd': ':s/t/r/I', 'exp': 'Tesring string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	84 \ { 'cmd': ':s/t/r/Ip', 'exp': 'Tesring string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	85 \ { 'cmd': ':s/t/r/Il', 'exp': 'Tesring string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	86 \ { 'cmd': ':s//r/Ir', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	87 \ { 'cmd': ':s//r/rc', 'exp': 'Testr string', 'prompt': 'y' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	88 \ { 'cmd': ':s//r/rg', 'exp': 'Testr strr' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	89 \ { 'cmd': ':s//r/ri', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	90 \ { 'cmd': ':s//r/rI', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	91 \ { 'cmd': ':s//r/rn', 'exp': 'Testing string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	92 \ { 'cmd': ':s//r/rp', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	93 \ { 'cmd': ':s//r/rl', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	94 \ { 'cmd': ':s//r/r', 'exp': 'Testr string' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	95 \ { 'cmd': ':s/i/I/gc', 'exp': 'Testing string', 'prompt': 'q' },
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	96 \]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	97
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	98 for var in variants
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	99 for run in [1, 2]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	100 let cmd = var.cmd
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	101 if run == 2 && cmd =~ "/././."
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	102 " Change :s/from/to/{flags} to :s{flags}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	103 let cmd = substitute(cmd, '/.*/', '', '')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	104 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	105 call setline(1, [ln])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	106 let msg = printf('using "%s"', cmd)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	107 let @/='ing'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	108 let v:errmsg = ''
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	109 call feedkeys(cmd . "\<CR>" . get(var, 'prompt', ''), 'ntx')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	110 " No error should exist (matters for testing e flag)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	111 call assert_equal('', v:errmsg, msg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	112 call assert_equal(var.exp, getline('.'), msg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	113 endfor
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	114 endfor
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	115 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	116
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	117 " Test the l, p, # flags.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	118 func Test_substitute_flags_lp()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	119 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	120 call setline(1, "abc\tdef\<C-h>ghi")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	121
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	122 let a = execute('s/a/a/p')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	123 call assert_equal("\nabc def^Hghi", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	124
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	125 let a = execute('s/a/a/l')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	126 call assert_equal("\nabc^Idef^Hghi$", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	127
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	128 let a = execute('s/a/a/#')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	129 call assert_equal("\n 1 abc def^Hghi", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	130
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	131 let a = execute('s/a/a/p#')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	132 call assert_equal("\n 1 abc def^Hghi", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	133
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	134 let a = execute('s/a/a/l#')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	135 call assert_equal("\n 1 abc^Idef^Hghi$", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	136
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	137 let a = execute('s/a/a/')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	138 call assert_equal("", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	139
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	140 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	141 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	142
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	143 func Test_substitute_repeat()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	144 " This caused an invalid memory access.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	145 split Xsubfile
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	146 s/^/x
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	147 call feedkeys("Qsc\<CR>y", 'tx')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	148 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	149 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	150
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	151 " Test %s/\n// which is implemented as a special case to use a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	152 " more efficient join rather than doing a regular substitution.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	153 func Test_substitute_join()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	154 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	155
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	156 call setline(1, ["foo\tbar", "bar\<C-H>foo"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	157 let a = execute('%s/\n//')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	158 call assert_equal("", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	159 call assert_equal(["foo\tbarbar\<C-H>foo"], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	160 call assert_equal('\n', histget("search", -1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	161
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	162 call setline(1, ["foo\tbar", "bar\<C-H>foo"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	163 let a = execute('%s/\n//g')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	164 call assert_equal("", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	165 call assert_equal(["foo\tbarbar\<C-H>foo"], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	166 call assert_equal('\n', histget("search", -1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	167
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	168 call setline(1, ["foo\tbar", "bar\<C-H>foo"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	169 let a = execute('%s/\n//p')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	170 call assert_equal("\nfoo barbar^Hfoo", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	171 call assert_equal(["foo\tbarbar\<C-H>foo"], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	172 call assert_equal('\n', histget("search", -1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	173
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	174 call setline(1, ["foo\tbar", "bar\<C-H>foo"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	175 let a = execute('%s/\n//l')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	176 call assert_equal("\nfoo^Ibarbar^Hfoo$", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	177 call assert_equal(["foo\tbarbar\<C-H>foo"], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	178 call assert_equal('\n', histget("search", -1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	179
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	180 call setline(1, ["foo\tbar", "bar\<C-H>foo"])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	181 let a = execute('%s/\n//#')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	182 call assert_equal("\n 1 foo barbar^Hfoo", a)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	183 call assert_equal(["foo\tbarbar\<C-H>foo"], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	184 call assert_equal('\n', histget("search", -1))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	185
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	186 call setline(1, ['foo', 'bar', 'baz', 'qux'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	187 call execute('1,2s/\n//')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	188 call assert_equal(['foobarbaz', 'qux'], getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	189
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	190 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	191 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	192
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	193 func Test_substitute_count()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	194 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	195 call setline(1, ['foo foo', 'foo foo', 'foo foo', 'foo foo', 'foo foo'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	196 2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	197
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	198 s/foo/bar/3
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	199 call assert_equal(['foo foo', 'bar foo', 'bar foo', 'bar foo', 'foo foo'],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	200 \ getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	201
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	202 call assert_fails('s/foo/bar/0', 'E939:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	203
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	204 call setline(1, ['foo foo', 'foo foo', 'foo foo', 'foo foo', 'foo foo'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	205 2,4s/foo/bar/ 10
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	206 call assert_equal(['foo foo', 'foo foo', 'foo foo', 'bar foo', 'bar foo'],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	207 \ getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	208
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	209 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	210 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	211
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	212 " Test substitute 'n' flag (report number of matches, do not substitute).
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	213 func Test_substitute_flag_n()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	214 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	215 let lines = ['foo foo', 'foo foo', 'foo foo', 'foo foo', 'foo foo']
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	216 call setline(1, lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	217
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	218 call assert_equal("\n3 matches on 3 lines", execute('2,4s/foo/bar/n'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	219 call assert_equal("\n6 matches on 3 lines", execute('2,4s/foo/bar/gn'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	220
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	221 " c flag (confirm) should be ignored when using n flag.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	222 call assert_equal("\n3 matches on 3 lines", execute('2,4s/foo/bar/nc'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	223
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	224 " No substitution should have been done.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	225 call assert_equal(lines, getline(1, '$'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	226
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	227 %delete _
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	228 call setline(1, ['A', 'Bar', 'Baz'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	229 call assert_equal("\n1 match on 1 line", execute('s/\nB\@=//gn'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	230
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	231 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	232 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	233
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	234 func Test_substitute_errors()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	235 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	236 call setline(1, 'foobar')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	237
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	238 call assert_fails('s/FOO/bar/', 'E486:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	239 call assert_fails('s/foo/bar/@', 'E488:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	240 call assert_fails('s/\(/bar/', 'E54:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	241 call assert_fails('s afooabara', 'E146:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	242 call assert_fails('s\\a', 'E10:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	243
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	244 setl nomodifiable
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	245 call assert_fails('s/foo/bar/', 'E21:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	246
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	247 call assert_fails("let s=substitute([], 'a', 'A', 'g')", 'E730:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	248 call assert_fails("let s=substitute('abcda', [], 'A', 'g')", 'E730:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	249 call assert_fails("let s=substitute('abcda', 'a', [], 'g')", 'E730:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	250 call assert_fails("let s=substitute('abcda', 'a', 'A', [])", 'E730:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	251 call assert_fails("let s=substitute('abc', '\\%(', 'A', 'g')", 'E53:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	252
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	253 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	254 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	255
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	256 " Test for sub-replace-special and sub-replace-expression on substitute().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	257 func Test_sub_replace_1()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	258 " Run the tests with 'magic' on
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	259 set magic
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	260 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	261 call assert_equal('AA', substitute('A', 'A', '&&', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	262 call assert_equal('&', substitute('B', 'B', '\&', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	263 call assert_equal('C123456789987654321', substitute('C123456789', 'C\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)', '\0\9\8\7\6\5\4\3\2\1', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	264 call assert_equal('d', substitute('D', 'D', 'd', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	265 call assert_equal('~', substitute('E', 'E', '~', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	266 call assert_equal('~', substitute('F', 'F', '\~', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	267 call assert_equal('Gg', substitute('G', 'G', '\ugg', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	268 call assert_equal('Hh', substitute('H', 'H', '\Uh\Eh', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	269 call assert_equal('iI', substitute('I', 'I', '\lII', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	270 call assert_equal('jJ', substitute('J', 'J', '\LJ\EJ', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	271 call assert_equal('Kk', substitute('K', 'K', '\Uk\ek', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	272 call assert_equal("l\<C-V>\<C-M>l",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	273 \ substitute('lLl', 'L', "\<C-V>\<C-M>", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	274 call assert_equal("m\<C-M>m", substitute('mMm', 'M', '\r', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	275 call assert_equal("n\<C-V>\<C-M>n",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	276 \ substitute('nNn', 'N', "\\\<C-V>\<C-M>", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	277 call assert_equal("o\no", substitute('oOo', 'O', '\n', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	278 call assert_equal("p\<C-H>p", substitute('pPp', 'P', '\b', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	279 call assert_equal("q\tq", substitute('qQq', 'Q', '\t', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	280 call assert_equal('r\r', substitute('rRr', 'R', '\\', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	281 call assert_equal('scs', substitute('sSs', 'S', '\c', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	282 call assert_equal("u\nu", substitute('uUu', 'U', "\n", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	283 call assert_equal("v\<C-H>v", substitute('vVv', 'V', "\b", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	284 call assert_equal("w\\w", substitute('wWw', 'W', "\\", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	285 call assert_equal("x\<C-M>x", substitute('xXx', 'X', "\r", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	286 call assert_equal("YyyY", substitute('Y', 'Y', '\L\uyYy\l\EY', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	287 call assert_equal("zZZz", substitute('Z', 'Z', '\U\lZzZ\u\Ez', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	288 " \v or \V after $
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	289 call assert_equal('abxx', substitute('abcd', 'xy$\v\|cd$', 'xx', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	290 call assert_equal('abxx', substitute('abcd', 'xy$\V\\|cd\$', 'xx', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	291 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	292
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	293 func Test_sub_replace_2()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	294 " Run the tests with 'magic' off
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	295 set nomagic
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	296 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	297 call assert_equal('AA', substitute('A', 'A', '&&', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	298 call assert_equal('&', substitute('B', 'B', '\&', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	299 call assert_equal('C123456789987654321', substitute('C123456789', 'C\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)', '\0\9\8\7\6\5\4\3\2\1', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	300 call assert_equal('d', substitute('D', 'D', 'd', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	301 call assert_equal('~', substitute('E', 'E', '~', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	302 call assert_equal('~', substitute('F', 'F', '\~', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	303 call assert_equal('Gg', substitute('G', 'G', '\ugg', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	304 call assert_equal('Hh', substitute('H', 'H', '\Uh\Eh', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	305 call assert_equal('iI', substitute('I', 'I', '\lII', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	306 call assert_equal('jJ', substitute('J', 'J', '\LJ\EJ', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	307 call assert_equal('Kk', substitute('K', 'K', '\Uk\ek', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	308 call assert_equal("l\<C-V>\<C-M>l",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	309 \ substitute('lLl', 'L', "\<C-V>\<C-M>", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	310 call assert_equal("m\<C-M>m", substitute('mMm', 'M', '\r', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	311 call assert_equal("n\<C-V>\<C-M>n",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	312 \ substitute('nNn', 'N', "\\\<C-V>\<C-M>", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	313 call assert_equal("o\no", substitute('oOo', 'O', '\n', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	314 call assert_equal("p\<C-H>p", substitute('pPp', 'P', '\b', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	315 call assert_equal("q\tq", substitute('qQq', 'Q', '\t', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	316 call assert_equal('r\r', substitute('rRr', 'R', '\\', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	317 call assert_equal('scs', substitute('sSs', 'S', '\c', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	318 call assert_equal("t\<C-M>t", substitute('tTt', 'T', "\r", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	319 call assert_equal("u\nu", substitute('uUu', 'U', "\n", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	320 call assert_equal("v\<C-H>v", substitute('vVv', 'V', "\b", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	321 call assert_equal('w\w', substitute('wWw', 'W', "\\", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	322 call assert_equal('XxxX', substitute('X', 'X', '\L\uxXx\l\EX', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	323 call assert_equal('yYYy', substitute('Y', 'Y', '\U\lYyY\u\Ey', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	324 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	325
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	326 func Test_sub_replace_3()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	327 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	328 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	329 call assert_equal('a\a', substitute('aAa', 'A', '\="\\"', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	330 call assert_equal('b\\b', substitute('bBb', 'B', '\="\\\\"', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	331 call assert_equal("c\rc", substitute('cCc', 'C', "\\=\"\r\"", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	332 call assert_equal("d\\\rd", substitute('dDd', 'D', "\\=\"\\\\\r\"", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	333 call assert_equal("e\\\\\re", substitute('eEe', 'E', "\\=\"\\\\\\\\\r\"", ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	334 call assert_equal('f\rf', substitute('fFf', 'F', '\="\\r"', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	335 call assert_equal('j\nj', substitute('jJj', 'J', '\="\\n"', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	336 call assert_equal("k\<C-M>k", substitute('kKk', 'K', '\="\r"', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	337 call assert_equal("l\nl", substitute('lLl', 'L', '\="\n"', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	338 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	339
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	340 " Test for submatch() on substitute().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	341 func Test_sub_replace_4()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	342 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	343 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	344 call assert_equal('a\a', substitute('aAa', 'A',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	345 \ '\=substitute(submatch(0), ".", "\\", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	346 call assert_equal('b\b', substitute('bBb', 'B',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	347 \ '\=substitute(submatch(0), ".", "\\\\", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	348 call assert_equal("c\<C-V>\<C-M>c", substitute('cCc', 'C', '\=substitute(submatch(0), ".", "\<C-V>\<C-M>", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	349 call assert_equal("d\<C-V>\<C-M>d", substitute('dDd', 'D', '\=substitute(submatch(0), ".", "\\\<C-V>\<C-M>", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	350 call assert_equal("e\\\<C-V>\<C-M>e", substitute('eEe', 'E', '\=substitute(submatch(0), ".", "\\\\\<C-V>\<C-M>", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	351 call assert_equal("f\<C-M>f", substitute('fFf', 'F', '\=substitute(submatch(0), ".", "\\r", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	352 call assert_equal("j\nj", substitute('jJj', 'J', '\=substitute(submatch(0), ".", "\\n", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	353 call assert_equal("k\rk", substitute('kKk', 'K', '\=substitute(submatch(0), ".", "\r", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	354 call assert_equal("l\nl", substitute('lLl', 'L', '\=substitute(submatch(0), ".", "\n", "")', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	355 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	356
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	357 func Test_sub_replace_5()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	358 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	359 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	360 call assert_equal('A123456789987654321', substitute('A123456789',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	361 \ 'A\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	362 \ '\=submatch(0) . submatch(9) . submatch(8) . ' .
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	363 \ 'submatch(7) . submatch(6) . submatch(5) . ' .
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	364 \ 'submatch(4) . submatch(3) . submatch(2) . submatch(1)',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	365 \ ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	366 call assert_equal("[['A123456789'], ['9'], ['8'], ['7'], ['6'], " .
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	367 \ "['5'], ['4'], ['3'], ['2'], ['1']]",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	368 \ substitute('A123456789',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	369 \ 'A\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	370 \ '\=string([submatch(0, 1), submatch(9, 1), ' .
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	371 \ 'submatch(8, 1), 7->submatch(1), submatch(6, 1), ' .
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	372 \ 'submatch(5, 1), submatch(4, 1), submatch(3, 1), ' .
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	373 \ 'submatch(2, 1), submatch(1, 1)])',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	374 \ ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	375 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	376
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	377 func Test_sub_replace_6()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	378 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	379 set cpo+=/
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	380 call assert_equal('a', substitute('A', 'A', 'a', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	381 call assert_equal('%', substitute('B', 'B', '%', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	382 set cpo-=/
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	383 call assert_equal('c', substitute('C', 'C', 'c', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	384 call assert_equal('%', substitute('D', 'D', '%', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	385 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	386
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	387 func Test_sub_replace_7()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	388 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	389 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	390 call assert_equal('AA', substitute('AA', 'A.', '\=submatch(0)', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	391 call assert_equal("B\nB", substitute("B\nB", 'B.', '\=submatch(0)', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	392 call assert_equal("['B\n']B", substitute("B\nB", 'B.', '\=string(submatch(0, 1))', ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	393 call assert_equal('-abab', substitute('-bb', '\zeb', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	394 call assert_equal('c-cbcbc', substitute('-bb', '\ze', 'c', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	395 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	396
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	397 " Test for :s% on :substitute.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	398 func Test_sub_replace_8()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	399 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	400 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	401 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	402 $put =',,X'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	403 s/\(^\\|,\)\ze\(,\\|X\)/\1N/g
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	404 call assert_equal('N,,NX', getline("$"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	405 $put =',,Y'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	406 let cmd = ':s/\(^\\|,\)\ze\(,\\|Y\)/\1N/gc'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	407 call feedkeys(cmd . "\<CR>a", "xt")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	408 call assert_equal('N,,NY', getline("$"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	409 :$put =',,Z'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	410 let cmd = ':s/\(^\\|,\)\ze\(,\\|Z\)/\1N/gc'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	411 call feedkeys(cmd . "\<CR>yy", "xt")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	412 call assert_equal('N,,NZ', getline("$"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	413 enew! \| close
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	414 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	415
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	416 func Test_sub_replace_9()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	417 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	418 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	419 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	420 $put ='xxx'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	421 call feedkeys(":s/x/X/gc\<CR>yyq", "xt")
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	422 call assert_equal('XXx', getline("$"))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	423 enew! \| close
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	424 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	425
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	426 func Test_sub_replace_10()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	427 set magic&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	428 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	429 call assert_equal('a1a2a3a', substitute('123', '\zs', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	430 call assert_equal('aaa', substitute('123', '\zs.', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	431 call assert_equal('1a2a3a', substitute('123', '.\zs', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	432 call assert_equal('a1a2a3a', substitute('123', '\ze', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	433 call assert_equal('a1a2a3', substitute('123', '\ze.', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	434 call assert_equal('aaa', substitute('123', '.\ze', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	435 call assert_equal('aa2a3a', substitute('123', '1\\|\ze', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	436 call assert_equal('1aaa', substitute('123', '1\zs\\|[23]', 'a', 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	437 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	438
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	439 func SubReplacer(text, submatches)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	440 return a:text .. a:submatches[0] .. a:text
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	441 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	442 func SubReplacerVar(text, ...)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	443 return a:text .. a:1[0] .. a:text
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	444 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	445 def SubReplacerVar9(text: string, ...args: list<list<string>>): string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	446 return text .. args[0][0] .. text
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	447 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	448 func SubReplacer20(t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, submatches)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	449 return a:t3 .. a:submatches[0] .. a:t11
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	450 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	451
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	452 func Test_substitute_partial()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	453 call assert_equal('1foo2foo3', substitute('123', '2', function('SubReplacer', ['foo']), 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	454 call assert_equal('1foo2foo3', substitute('123', '2', function('SubReplacerVar', ['foo']), 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	455 call assert_equal('1foo2foo3', substitute('123', '2', function('SubReplacerVar9', ['foo']), 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	456
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	457 " 19 arguments plus one is just OK
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	458 let Replacer = function('SubReplacer20', repeat(['foo'], 19))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	459 call assert_equal('1foo2foo3', substitute('123', '2', Replacer, 'g'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	460
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	461 " 20 arguments plus one is too many
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	462 let Replacer = function('SubReplacer20', repeat(['foo'], 20))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	463 call assert_fails("call substitute('123', '2', Replacer, 'g')", 'E118:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	464 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	465
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	466 func Test_substitute_float()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	467 call assert_equal('number 1.23', substitute('number ', '$', { -> 1.23 }, ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	468 vim9 assert_equal('number 1.23', substitute('number ', '$', () => 1.23, ''))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	469 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	470
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	471 " Tests for sub-replace-special and sub-replace-expression on :substitute.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	472
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	473 " Execute a list of :substitute command tests
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	474 func Run_SubCmd_Tests(tests)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	475 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	476 for t in a:tests
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	477 let start = line('.') + 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	478 let end = start + len(t[2]) - 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	479 exe "normal o" . t[0]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	480 call cursor(start, 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	481 exe t[1]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	482 call assert_equal(t[2], getline(start, end), t[1])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	483 endfor
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	484 enew!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	485 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	486
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	487 func Test_sub_cmd_1()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	488 set magic
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	489 set cpo&
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	490
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	491 " List entry format: [input, cmd, output]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	492 let tests = [['A', 's/A/&&/', ['AA']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	493 \ ['B', 's/B/\&/', ['&']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	494 \ ['C123456789', 's/C\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)\(.\)/\0\9\8\7\6\5\4\3\2\1/', ['C123456789987654321']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	495 \ ['D', 's/D/d/', ['d']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	496 \ ['E', 's/E/~/', ['d']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	497 \ ['F', 's/F/\~/', ['~']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	498 \ ['G', 's/G/\ugg/', ['Gg']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	499 \ ['H', 's/H/\Uh\Eh/', ['Hh']],
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32407 diff changeset	500 \ ['I', 's/I/\lII/', ['iI']],

32669

448aef880252 normalize line endings