test40.in   [plain text]


Test for "*Cmd" autocommands

STARTTEST
:so small.vim
:/^start/,$w! Xxx		" write lines below to Xxx
:au BufReadCmd testA 0r Xxx|$del
:e testA			" will read text of Xxd instead
:au BufWriteCmd testA call append(line("$"), "write")
:w				" will append a line to the file
:r testA			" should not read anything
:				" now we have:
:				" 1	start of Xxx
:				" 2		test40
:				" 3	end of Xxx
:				" 4	write
:au FileReadCmd testB '[r Xxx
:2r testB			" will read Xxx below line 2 instead
:				" 1	start of Xxx
:				" 2		test40
:				" 3	start of Xxx
:				" 4		test40
:				" 5	end of Xxx
:				" 6	end of Xxx
:				" 7	write
:au FileWriteCmd testC '[,']copy $
4GA1
:4,5w testC			" will copy lines 4 and 5 to the end
:r testC			" should not read anything
:				" 1	start of Xxx
:				" 2		test40
:				" 3	start of Xxx
:				" 4		test401
:				" 5	end of Xxx
:				" 6	end of Xxx
:				" 7	write
:				" 8		test401
:				" 9	end of Xxx
:au FILEAppendCmd testD '[,']w! test.out
:w >>testD			" will write all lines to test.out
:$r testD			" should not read anything
:$w >>test.out			" append "end of Xxx" to test.out
:au BufReadCmd testE 0r test.out|$del
:sp testE			" split window with test.out
5Goasdf:"
:au BufWriteCmd testE w! test.out
:wall				" will write other window to test.out
:				" 1	start of Xxx
:				" 2		test40
:				" 3	start of Xxx
:				" 4		test401
:				" 5	end of Xxx
:				" 6	asdf
:				" 7	end of Xxx
:				" 8	write
:				" 9		test401
:				" 10	end of Xxx
:				" 11	end of Xxx
:qa!
ENDTEST

start of Xxx
	test40
end of Xxx