1" Test behavior of interrupt()
2
3let s:bufwritepre_called = 0
4let s:bufwritepost_called = 0
5
6func s:bufwritepre()
7  let s:bufwritepre_called = 1
8  call interrupt()
9endfunction
10
11func s:bufwritepost()
12  let s:bufwritepost_called = 1
13endfunction
14
15func Test_interrupt()
16  new Xfile
17  let n = 0
18  try
19    au BufWritePre Xfile call s:bufwritepre()
20    au BufWritePost Xfile call s:bufwritepost()
21    w!
22  catch /^Vim:Interrupt$/
23  endtry
24  call assert_equal(1, s:bufwritepre_called)
25  call assert_equal(0, s:bufwritepost_called)
26  call assert_equal(0, filereadable('Xfile'))
27endfunc
28