Mercurial > vim
view src/testdir/test40.in @ 10315:c1cfdf43560c v8.0.0053
commit https://github.com/vim/vim/commit/60ef3e81f4a54d9f7ee617d57021f0811ec8ada5
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Oct 29 14:37:56 2016 +0200
patch 8.0.0053
Problem: No test for what 8.0.0047 fixes.
Solution: Add a test. (Hirohito Higashi)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sat, 29 Oct 2016 14:45:04 +0200 |
parents | ad7b6062a7f4 |
children |
line wrap: on
line source
Test for "*Cmd" autocommands STARTTEST :so small.vim :/^start/,$w! Xxx " write lines below to Xxx :au BufReadCmd XtestA 0r Xxx|$del :e XtestA " will read text of Xxd instead :au BufWriteCmd XtestA call append(line("$"), "write") :w " will append a line to the file :r XtestA " should not read anything : " now we have: : " 1 start of Xxx : " 2 test40 : " 3 end of Xxx : " 4 write :au FileReadCmd XtestB '[r Xxx :2r XtestB " 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 XtestC '[,']copy $ 4GA1 :4,5w XtestC " will copy lines 4 and 5 to the end :r XtestC " 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 XtestD '[,']w! test.out :w >>XtestD " will write all lines to test.out :$r XtestD " should not read anything :$w >>test.out " append "end of Xxx" to test.out :au BufReadCmd XtestE 0r test.out|$del :sp XtestE " split window with test.out 5Goasdf:" :au BufWriteCmd XtestE 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