1" Test that the methods used for testing work. 2 3func Test_assert_false() 4 call assert_equal(0, assert_false(0)) 5 call assert_equal(0, assert_false(v:false)) 6 call assert_equal(0, v:false->assert_false()) 7 8 call assert_equal(1, assert_false(123)) 9 call assert_match("Expected False but got 123", v:errors[0]) 10 call remove(v:errors, 0) 11 12 call assert_equal(1, 123->assert_false()) 13 call assert_match("Expected False but got 123", v:errors[0]) 14 call remove(v:errors, 0) 15endfunc 16 17func Test_assert_true() 18 call assert_equal(0, assert_true(1)) 19 call assert_equal(0, assert_true(123)) 20 call assert_equal(0, assert_true(v:true)) 21 call assert_equal(0, v:true->assert_true()) 22 23 call assert_equal(1, assert_true(0)) 24 call assert_match("Expected True but got 0", v:errors[0]) 25 call remove(v:errors, 0) 26 27 call assert_equal(1, 0->assert_true()) 28 call assert_match("Expected True but got 0", v:errors[0]) 29 call remove(v:errors, 0) 30endfunc 31 32func Test_assert_equal() 33 let s = 'foo' 34 call assert_equal(0, assert_equal('foo', s)) 35 let n = 4 36 call assert_equal(0, assert_equal(4, n)) 37 let l = [1, 2, 3] 38 call assert_equal(0, assert_equal([1, 2, 3], l)) 39 call assert_equal(test_null_list(), test_null_list()) 40 call assert_equal(test_null_list(), []) 41 call assert_equal([], test_null_list()) 42 43 let s = 'foo' 44 call assert_equal(1, assert_equal('bar', s)) 45 call assert_match("Expected 'bar' but got 'foo'", v:errors[0]) 46 call remove(v:errors, 0) 47 48 call assert_equal('XxxxxxxxxxxxxxxxxxxxxxX', 'XyyyyyyyyyyyyyyyyyyyyyyyyyX') 49 call assert_match("Expected 'X\\\\\\[x occurs 21 times]X' but got 'X\\\\\\[y occurs 25 times]X'", v:errors[0]) 50 call remove(v:errors, 0) 51endfunc 52 53func Test_assert_equalfile() 54 call assert_equal(1, assert_equalfile('abcabc', 'xyzxyz')) 55 call assert_match("E485: Can't read file abcabc", v:errors[0]) 56 call remove(v:errors, 0) 57 58 let goodtext = ["one", "two", "three"] 59 call writefile(goodtext, 'Xone') 60 call assert_equal(1, 'Xone'->assert_equalfile('xyzxyz')) 61 call assert_match("E485: Can't read file xyzxyz", v:errors[0]) 62 call remove(v:errors, 0) 63 64 call writefile(goodtext, 'Xtwo') 65 call assert_equal(0, assert_equalfile('Xone', 'Xtwo')) 66 67 call writefile([goodtext[0]], 'Xone') 68 call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) 69 call assert_match("first file is shorter", v:errors[0]) 70 call remove(v:errors, 0) 71 72 call writefile(goodtext, 'Xone') 73 call writefile([goodtext[0]], 'Xtwo') 74 call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) 75 call assert_match("second file is shorter", v:errors[0]) 76 call remove(v:errors, 0) 77 78 call writefile(['1234X89'], 'Xone') 79 call writefile(['1234Y89'], 'Xtwo') 80 call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) 81 call assert_match('difference at byte 4, line 1 after "1234X" vs "1234Y"', v:errors[0]) 82 call remove(v:errors, 0) 83 84 call writefile([repeat('x', 234) .. 'X'], 'Xone') 85 call writefile([repeat('x', 234) .. 'Y'], 'Xtwo') 86 call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) 87 let xes = repeat('x', 134) 88 call assert_match('difference at byte 234, line 1 after "' .. xes .. 'X" vs "' .. xes .. 'Y"', v:errors[0]) 89 call remove(v:errors, 0) 90 91 call assert_equal(1, assert_equalfile('Xone', 'Xtwo', 'a message')) 92 call assert_match("a message: difference at byte 234, line 1 after", v:errors[0]) 93 call remove(v:errors, 0) 94 95 call delete('Xone') 96 call delete('Xtwo') 97endfunc 98 99func Test_assert_notequal() 100 let n = 4 101 call assert_equal(0, assert_notequal('foo', n)) 102 let s = 'foo' 103 call assert_equal(0, assert_notequal([1, 2, 3], s)) 104 105 call assert_equal(1, assert_notequal('foo', s)) 106 call assert_match("Expected not equal to 'foo'", v:errors[0]) 107 call remove(v:errors, 0) 108endfunc 109 110func Test_assert_report() 111 call assert_equal(1, assert_report('something is wrong')) 112 call assert_match('something is wrong', v:errors[0]) 113 call remove(v:errors, 0) 114 call assert_equal(1, 'also wrong'->assert_report()) 115 call assert_match('also wrong', v:errors[0]) 116 call remove(v:errors, 0) 117endfunc 118 119func Test_assert_exception() 120 try 121 nocommand 122 catch 123 call assert_equal(0, assert_exception('E492:')) 124 endtry 125 126 try 127 nocommand 128 catch 129 try 130 " illegal argument, get NULL for error 131 call assert_equal(1, assert_exception([])) 132 catch 133 call assert_equal(0, assert_exception('E730:')) 134 endtry 135 endtry 136endfunc 137 138func Test_wrong_error_type() 139 let save_verrors = v:errors 140 let v:['errors'] = {'foo': 3} 141 call assert_equal('yes', 'no') 142 let verrors = v:errors 143 let v:errors = save_verrors 144 call assert_equal(type([]), type(verrors)) 145endfunc 146 147func Test_compare_fail() 148 let s:v = {} 149 let s:x = {"a": s:v} 150 let s:v["b"] = s:x 151 let s:w = {"c": s:x, "d": ''} 152 try 153 call assert_equal(s:w, '') 154 catch 155 call assert_equal(0, assert_exception('E724:')) 156 call assert_match("Expected NULL but got ''", v:errors[0]) 157 call remove(v:errors, 0) 158 endtry 159endfunc 160 161func Test_match() 162 call assert_equal(0, assert_match('^f.*b.*r$', 'foobar')) 163 164 call assert_equal(1, assert_match('bar.*foo', 'foobar')) 165 call assert_match("Pattern 'bar.*foo' does not match 'foobar'", v:errors[0]) 166 call remove(v:errors, 0) 167 168 call assert_equal(1, assert_match('bar.*foo', 'foobar', 'wrong')) 169 call assert_match('wrong', v:errors[0]) 170 call remove(v:errors, 0) 171 172 call assert_equal(1, 'foobar'->assert_match('bar.*foo', 'wrong')) 173 call assert_match('wrong', v:errors[0]) 174 call remove(v:errors, 0) 175endfunc 176 177func Test_notmatch() 178 call assert_equal(0, assert_notmatch('foo', 'bar')) 179 call assert_equal(0, assert_notmatch('^foobar$', 'foobars')) 180 181 call assert_equal(1, assert_notmatch('foo', 'foobar')) 182 call assert_match("Pattern 'foo' does match 'foobar'", v:errors[0]) 183 call remove(v:errors, 0) 184 185 call assert_equal(1, 'foobar'->assert_notmatch('foo')) 186 call assert_match("Pattern 'foo' does match 'foobar'", v:errors[0]) 187 call remove(v:errors, 0) 188endfunc 189 190func Test_assert_fail_fails() 191 call assert_equal(1, assert_fails('xxx', {})) 192 call assert_match("Expected {} but got 'E731:", v:errors[0]) 193 call remove(v:errors, 0) 194 195 call assert_equal(1, assert_fails('xxx', {}, 'stupid')) 196 call assert_match("stupid: Expected {} but got 'E731:", v:errors[0]) 197 call remove(v:errors, 0) 198 199 call assert_equal(1, assert_fails('echo', '', 'echo command')) 200 call assert_match("command did not fail: echo command", v:errors[0]) 201 call remove(v:errors, 0) 202 203 call assert_equal(1, 'echo'->assert_fails('', 'echo command')) 204 call assert_match("command did not fail: echo command", v:errors[0]) 205 call remove(v:errors, 0) 206endfunc 207 208func Test_assert_fails_in_try_block() 209 try 210 call assert_equal(0, assert_fails('throw "error"')) 211 endtry 212endfunc 213 214func Test_assert_beeps() 215 new 216 call assert_equal(0, assert_beeps('normal h')) 217 218 call assert_equal(1, assert_beeps('normal 0')) 219 call assert_match("command did not beep: normal 0", v:errors[0]) 220 call remove(v:errors, 0) 221 222 call assert_equal(0, 'normal h'->assert_beeps()) 223 call assert_equal(1, 'normal 0'->assert_beeps()) 224 call assert_match("command did not beep: normal 0", v:errors[0]) 225 call remove(v:errors, 0) 226 227 bwipe 228endfunc 229 230func Test_assert_inrange() 231 call assert_equal(0, assert_inrange(7, 7, 7)) 232 call assert_equal(0, assert_inrange(5, 7, 5)) 233 call assert_equal(0, assert_inrange(5, 7, 6)) 234 call assert_equal(0, assert_inrange(5, 7, 7)) 235 236 call assert_equal(1, assert_inrange(5, 7, 4)) 237 call assert_match("Expected range 5 - 7, but got 4", v:errors[0]) 238 call remove(v:errors, 0) 239 call assert_equal(1, assert_inrange(5, 7, 8)) 240 call assert_match("Expected range 5 - 7, but got 8", v:errors[0]) 241 call remove(v:errors, 0) 242 243 call assert_equal(0, 5->assert_inrange(5, 7)) 244 call assert_equal(0, 7->assert_inrange(5, 7)) 245 call assert_equal(1, 8->assert_inrange(5, 7)) 246 call assert_match("Expected range 5 - 7, but got 8", v:errors[0]) 247 call remove(v:errors, 0) 248 249 call assert_fails('call assert_inrange(1, 1)', 'E119:') 250 251 if has('float') 252 call assert_equal(0, assert_inrange(7.0, 7, 7)) 253 call assert_equal(0, assert_inrange(7, 7.0, 7)) 254 call assert_equal(0, assert_inrange(7, 7, 7.0)) 255 call assert_equal(0, assert_inrange(5, 7, 5.0)) 256 call assert_equal(0, assert_inrange(5, 7, 6.0)) 257 call assert_equal(0, assert_inrange(5, 7, 7.0)) 258 259 call assert_equal(1, assert_inrange(5, 7, 4.0)) 260 call assert_match("Expected range 5.0 - 7.0, but got 4.0", v:errors[0]) 261 call remove(v:errors, 0) 262 call assert_equal(1, assert_inrange(5, 7, 8.0)) 263 call assert_match("Expected range 5.0 - 7.0, but got 8.0", v:errors[0]) 264 call remove(v:errors, 0) 265 endif 266endfunc 267 268func Test_assert_with_msg() 269 call assert_equal('foo', 'bar', 'testing') 270 call assert_match("testing: Expected 'foo' but got 'bar'", v:errors[0]) 271 call remove(v:errors, 0) 272endfunc 273 274func Test_override() 275 call test_override('char_avail', 1) 276 eval 1->test_override('redraw') 277 call test_override('ALL', 0) 278 call assert_fails("call test_override('xxx', 1)", 'E475') 279 call assert_fails("call test_override('redraw', 'yes')", 'E474') 280endfunc 281 282func Test_mouse_position() 283 let save_mouse = &mouse 284 set mouse=a 285 new 286 call setline(1, ['line one', 'line two']) 287 call assert_equal([0, 1, 1, 0], getpos('.')) 288 call test_setmouse(1, 5) 289 call feedkeys("\<LeftMouse>", "xt") 290 call assert_equal([0, 1, 5, 0], getpos('.')) 291 call test_setmouse(2, 20) 292 call feedkeys("\<LeftMouse>", "xt") 293 call assert_equal([0, 2, 8, 0], getpos('.')) 294 call test_setmouse(5, 1) 295 call feedkeys("\<LeftMouse>", "xt") 296 call assert_equal([0, 2, 1, 0], getpos('.')) 297 bwipe! 298 let &mouse = save_mouse 299endfunc 300 301func Test_user_is_happy() 302 smile 303 sleep 300m 304endfunc 305 306" Must be last. 307func Test_zz_quit_detected() 308 " Verify that if a test function ends Vim the test script detects this. 309 quit 310endfunc 311