1" Test for timers 2 3if !has('timers') 4 finish 5endif 6 7source shared.vim 8 9func MyHandler(timer) 10 let g:val += 1 11endfunc 12 13func MyHandlerWithLists(lists, timer) 14 let x = string(a:lists) 15endfunc 16 17func Test_oneshot() 18 let g:val = 0 19 let timer = timer_start(50, 'MyHandler') 20 let slept = WaitFor('g:val == 1') 21 call assert_equal(1, g:val) 22 if has('reltime') 23 call assert_inrange(49, 100, slept) 24 else 25 call assert_inrange(20, 100, slept) 26 endif 27endfunc 28 29func Test_repeat_three() 30 let g:val = 0 31 let timer = timer_start(50, 'MyHandler', {'repeat': 3}) 32 let slept = WaitFor('g:val == 3') 33 call assert_equal(3, g:val) 34 if has('reltime') 35 call assert_inrange(149, 250, slept) 36 else 37 call assert_inrange(80, 200, slept) 38 endif 39endfunc 40 41func Test_repeat_many() 42 let g:val = 0 43 let timer = timer_start(50, 'MyHandler', {'repeat': -1}) 44 sleep 200m 45 call timer_stop(timer) 46 call assert_inrange(2, 4, g:val) 47endfunc 48 49func Test_with_partial_callback() 50 let g:val = 0 51 let meow = {'one': 1} 52 function meow.bite(...) 53 let g:val += self.one 54 endfunction 55 56 call timer_start(50, meow.bite) 57 let slept = WaitFor('g:val == 1') 58 call assert_equal(1, g:val) 59 if has('reltime') 60 call assert_inrange(49, 130, slept) 61 else 62 call assert_inrange(20, 100, slept) 63 endif 64endfunc 65 66func Test_retain_partial() 67 call timer_start(50, function('MyHandlerWithLists', [['a']])) 68 call test_garbagecollect_now() 69 sleep 100m 70endfunc 71 72func Test_info() 73 let id = timer_start(1000, 'MyHandler') 74 let info = timer_info(id) 75 call assert_equal(id, info[0]['id']) 76 call assert_equal(1000, info[0]['time']) 77 call assert_true(info[0]['remaining'] > 500) 78 call assert_true(info[0]['remaining'] <= 1000) 79 call assert_equal(1, info[0]['repeat']) 80 call assert_equal("function('MyHandler')", string(info[0]['callback'])) 81 82 let found = 0 83 for info in timer_info() 84 if info['id'] == id 85 let found += 1 86 endif 87 endfor 88 call assert_equal(1, found) 89 90 call timer_stop(id) 91 call assert_equal([], timer_info(id)) 92endfunc 93 94func Test_stopall() 95 let id1 = timer_start(1000, 'MyHandler') 96 let id2 = timer_start(2000, 'MyHandler') 97 let info = timer_info() 98 call assert_equal(2, len(info)) 99 100 call timer_stopall() 101 let info = timer_info() 102 call assert_equal(0, len(info)) 103endfunc 104 105func Test_paused() 106 let g:val = 0 107 108 let id = timer_start(50, 'MyHandler') 109 let info = timer_info(id) 110 call assert_equal(0, info[0]['paused']) 111 112 call timer_pause(id, 1) 113 let info = timer_info(id) 114 call assert_equal(1, info[0]['paused']) 115 sleep 100m 116 call assert_equal(0, g:val) 117 118 call timer_pause(id, 0) 119 let info = timer_info(id) 120 call assert_equal(0, info[0]['paused']) 121 122 let slept = WaitFor('g:val == 1') 123 call assert_equal(1, g:val) 124 if has('reltime') 125 if has('mac') 126 " The travis Mac machines appear to be very busy. 127 call assert_inrange(0, 50, slept) 128 else 129 call assert_inrange(0, 30, slept) 130 endif 131 else 132 call assert_inrange(0, 10, slept) 133 endif 134endfunc 135 136func StopMyself(timer) 137 let g:called += 1 138 if g:called == 2 139 call timer_stop(a:timer) 140 endif 141endfunc 142 143func Test_delete_myself() 144 let g:called = 0 145 let t = timer_start(10, 'StopMyself', {'repeat': -1}) 146 call WaitFor('g:called == 2') 147 call assert_equal(2, g:called) 148 call assert_equal([], timer_info(t)) 149endfunc 150 151func StopTimer1(timer) 152 let g:timer2 = timer_start(10, 'StopTimer2') 153 " avoid maxfuncdepth error 154 call timer_pause(g:timer1, 1) 155 sleep 40m 156endfunc 157 158func StopTimer2(timer) 159 call timer_stop(g:timer1) 160endfunc 161 162func Test_stop_in_callback() 163 let g:timer1 = timer_start(10, 'StopTimer1') 164 sleep 40m 165endfunc 166 167func StopTimerAll(timer) 168 call timer_stopall() 169endfunc 170 171func Test_stop_all_in_callback() 172 let g:timer1 = timer_start(10, 'StopTimerAll') 173 let info = timer_info() 174 call assert_equal(1, len(info)) 175 sleep 40m 176 let info = timer_info() 177 call assert_equal(0, len(info)) 178endfunc 179 180func FeedkeysCb(timer) 181 call feedkeys("hello\<CR>", 'nt') 182endfunc 183 184func InputCb(timer) 185 call timer_start(10, 'FeedkeysCb') 186 let g:val = input('?') 187 call Resume() 188endfunc 189 190func Test_input_in_timer() 191 let g:val = '' 192 call timer_start(10, 'InputCb') 193 call Standby(1000) 194 call assert_equal('hello', g:val) 195endfunc 196 197func FuncWithError(timer) 198 let g:call_count += 1 199 if g:call_count == 4 200 return 201 endif 202 doesnotexist 203endfunc 204 205func Test_timer_errors() 206 let g:call_count = 0 207 let timer = timer_start(10, 'FuncWithError', {'repeat': -1}) 208 " Timer will be stopped after failing 3 out of 3 times. 209 call WaitFor('g:call_count == 3') 210 sleep 50m 211 call assert_equal(3, g:call_count) 212endfunc 213 214func FuncWithCaughtError(timer) 215 let g:call_count += 1 216 try 217 doesnotexist 218 catch 219 " nop 220 endtry 221endfunc 222 223func Test_timer_catch_error() 224 let g:call_count = 0 225 let timer = timer_start(10, 'FuncWithCaughtError', {'repeat': 4}) 226 " Timer will not be stopped. 227 call WaitFor('g:call_count == 4') 228 sleep 50m 229 call assert_equal(4, g:call_count) 230endfunc 231 232func FeedAndPeek(timer) 233 call test_feedinput('a') 234 call getchar(1) 235endfunc 236 237func Interrupt(timer) 238 call test_feedinput("\<C-C>") 239endfunc 240 241func Test_peek_and_get_char() 242 if !has('unix') && !has('gui_running') 243 return 244 endif 245 call timer_start(0, 'FeedAndPeek') 246 let intr = timer_start(100, 'Interrupt') 247 let c = getchar() 248 call assert_equal(char2nr('a'), c) 249 call timer_stop(intr) 250endfunc 251 252func Test_ex_mode() 253 " Function with an empty line. 254 func Foo(...) 255 256 endfunc 257 let timer = timer_start(40, function('g:Foo'), {'repeat':-1}) 258 " This used to throw error E749. 259 exe "normal Qsleep 100m\rvi\r" 260 call timer_stop(timer) 261endfunc 262 263" vim: shiftwidth=2 sts=2 expandtab 264