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