mirror of
				https://github.com/vim/vim.git
				synced 2025-10-31 09:57:14 -04:00 
			
		
		
		
	updated for version 7.3.818
Problem:    When test 40 fails because of a bad build it may leave files
            behind that cause it to fail later.
Solution:   Let the file names start with "X".
			
			
This commit is contained in:
		| @@ -3,18 +3,18 @@ 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") | ||||
| :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 testA			" should not read anything | ||||
| :r XtestA			" 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 | ||||
| :au FileReadCmd XtestB '[r Xxx | ||||
| :2r XtestB			" will read Xxx below line 2 instead | ||||
| :				" 1	start of Xxx | ||||
| :				" 2		test40 | ||||
| :				" 3	start of Xxx | ||||
| @@ -22,10 +22,10 @@ STARTTEST | ||||
| :				" 5	end of Xxx | ||||
| :				" 6	end of Xxx | ||||
| :				" 7	write | ||||
| :au FileWriteCmd testC '[,']copy $ | ||||
| :au FileWriteCmd XtestC '[,']copy $ | ||||
| 4GA1 | ||||
| :4,5w testC			" will copy lines 4 and 5 to the end | ||||
| :r testC			" should not read anything | ||||
| :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 | ||||
| @@ -35,14 +35,14 @@ STARTTEST | ||||
| :				" 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 | ||||
| :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 testE 0r test.out|$del | ||||
| :sp testE			" split window with test.out | ||||
| :au BufReadCmd XtestE 0r test.out|$del | ||||
| :sp XtestE			" split window with test.out | ||||
| 5Goasdf:" | ||||
| :au BufWriteCmd testE w! test.out | ||||
| :au BufWriteCmd XtestE w! test.out | ||||
| :wall				" will write other window to test.out | ||||
| :				" 1	start of Xxx | ||||
| :				" 2		test40 | ||||
|   | ||||
| @@ -725,6 +725,8 @@ static char *(features[]) = | ||||
|  | ||||
| static int included_patches[] = | ||||
| {   /* Add new patch number below this line */ | ||||
| /**/ | ||||
|     818, | ||||
| /**/ | ||||
|     817, | ||||
| /**/ | ||||
|   | ||||
		Reference in New Issue
	
	Block a user