Mercurial > vim
view src/testdir/test_assert.vim @ 27287:9f72ec92d361 v8.2.4172
patch 8.2.4172: filetype detection for BASIC is not optimal
Commit: https://github.com/vim/vim/commit/6517f14165cdebf83a07ab9d4aeeb102b4e16e92
Author: Bram Moolenaar <Bram@vim.org>
Date: Fri Jan 21 14:55:13 2022 +0000
patch 8.2.4172: filetype detection for BASIC is not optimal
Problem: Filetype detection for BASIC is not optimal.
Solution: Improve BASIC filetype detection. (Doug Kearns)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Fri, 21 Jan 2022 16:00:05 +0100 |
parents | e8e2c4d33b9b |
children | 3b2c75c0a7ab |
line wrap: on
line source
" Test that the methods used for testing work. func Test_assert_false() call assert_equal(0, assert_false(0)) call assert_equal(0, assert_false(v:false)) call assert_equal(0, v:false->assert_false()) call assert_equal(1, assert_false(123)) call assert_match("Expected 'False' but got 123", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, 123->assert_false()) call assert_match("Expected 'False' but got 123", v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_true() call assert_equal(0, assert_true(1)) call assert_equal(0, assert_true(123)) call assert_equal(0, assert_true(v:true)) call assert_equal(0, v:true->assert_true()) call assert_equal(1, assert_true(0)) call assert_match("Expected 'True' but got 0", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, 0->assert_true()) call assert_match("Expected 'True' but got 0", v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_equal() let s = 'foo' call assert_equal(0, assert_equal('foo', s)) let n = 4 call assert_equal(0, assert_equal(4, n)) let l = [1, 2, 3] call assert_equal(0, assert_equal([1, 2, 3], l)) call assert_equal(test_null_list(), test_null_list()) call assert_equal(test_null_list(), []) call assert_equal([], test_null_list()) let s = 'foo' call assert_equal(1, assert_equal('bar', s)) call assert_match("Expected 'bar' but got 'foo'", v:errors[0]) call remove(v:errors, 0) call assert_equal('XxxxxxxxxxxxxxxxxxxxxxX', 'XyyyyyyyyyyyyyyyyyyyyyyyyyX') call assert_match("Expected 'X\\\\\\[x occurs 21 times]X' but got 'X\\\\\\[y occurs 25 times]X'", v:errors[0]) call remove(v:errors, 0) " special characters are escaped call assert_equal("\b\e\f\n\t\r\\\x01\x7f", 'x') call assert_match('Expected ''\\b\\e\\f\\n\\t\\r\\\\\\x01\\x7f'' but got ''x''', v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_equal_dict() call assert_equal(0, assert_equal(#{one: 1, two: 2}, #{two: 2, one: 1})) call assert_equal(1, assert_equal(#{one: 1, two: 2}, #{two: 2, one: 3})) call assert_match("Expected {'one': 1} but got {'one': 3} - 1 equal item omitted", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_equal(#{one: 1, two: 2}, #{two: 22, one: 11})) call assert_match("Expected {'one': 1, 'two': 2} but got {'one': 11, 'two': 22}", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_equal(#{}, #{two: 2, one: 1})) call assert_match("Expected {} but got {'one': 1, 'two': 2}", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_equal(#{two: 2, one: 1}, #{})) call assert_match("Expected {'one': 1, 'two': 2} but got {}", v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_equalfile() call assert_equal(1, assert_equalfile('abcabc', 'xyzxyz')) call assert_match("E485: Can't read file abcabc", v:errors[0]) call remove(v:errors, 0) let goodtext = ["one", "two", "three"] call writefile(goodtext, 'Xone') call assert_equal(1, 'Xone'->assert_equalfile('xyzxyz')) call assert_match("E485: Can't read file xyzxyz", v:errors[0]) call remove(v:errors, 0) call writefile(goodtext, 'Xtwo') call assert_equal(0, assert_equalfile('Xone', 'Xtwo')) call writefile([goodtext[0]], 'Xone') call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) call assert_match("first file is shorter", v:errors[0]) call remove(v:errors, 0) call writefile(goodtext, 'Xone') call writefile([goodtext[0]], 'Xtwo') call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) call assert_match("second file is shorter", v:errors[0]) call remove(v:errors, 0) call writefile(['1234X89'], 'Xone') call writefile(['1234Y89'], 'Xtwo') call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) call assert_match('difference at byte 4, line 1 after "1234X" vs "1234Y"', v:errors[0]) call remove(v:errors, 0) call writefile([repeat('x', 234) .. 'X'], 'Xone') call writefile([repeat('x', 234) .. 'Y'], 'Xtwo') call assert_equal(1, assert_equalfile('Xone', 'Xtwo')) let xes = repeat('x', 134) call assert_match('difference at byte 234, line 1 after "' .. xes .. 'X" vs "' .. xes .. 'Y"', v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_equalfile('Xone', 'Xtwo', 'a message')) call assert_match("a message: difference at byte 234, line 1 after", v:errors[0]) call remove(v:errors, 0) call delete('Xone') call delete('Xtwo') endfunc func Test_assert_notequal() let n = 4 call assert_equal(0, assert_notequal('foo', n)) let s = 'foo' call assert_equal(0, assert_notequal([1, 2, 3], s)) call assert_equal(1, assert_notequal('foo', s)) call assert_match("Expected not equal to 'foo'", v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_report() call assert_equal(1, assert_report('something is wrong')) call assert_match('something is wrong', v:errors[0]) call remove(v:errors, 0) call assert_equal(1, 'also wrong'->assert_report()) call assert_match('also wrong', v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_exception() try nocommand catch call assert_equal(0, assert_exception('E492:')) endtry try nocommand catch call assert_equal(1, assert_exception('E12345:')) endtry call assert_match("Expected 'E12345:' but got 'Vim:E492: ", v:errors[0]) call remove(v:errors, 0) try nocommand catch try " illegal argument, get NULL for error call assert_equal(1, assert_exception([])) catch call assert_equal(0, assert_exception('E730:')) endtry endtry call assert_equal(1, assert_exception('E492:')) call assert_match('v:exception is not set', v:errors[0]) call remove(v:errors, 0) endfunc func Test_wrong_error_type() let save_verrors = v:errors let v:['errors'] = {'foo': 3} call assert_equal('yes', 'no') let verrors = v:errors let v:errors = save_verrors call assert_equal(type([]), type(verrors)) endfunc func Test_compare_fail() let s:v = {} let s:x = {"a": s:v} let s:v["b"] = s:x let s:w = {"c": s:x, "d": ''} try call assert_equal(s:w, '') catch call assert_equal(0, assert_exception('E724:')) call assert_match("Expected NULL but got ''", v:errors[0]) call remove(v:errors, 0) endtry endfunc func Test_match() call assert_equal(0, assert_match('^f.*b.*r$', 'foobar')) call assert_equal(1, assert_match('bar.*foo', 'foobar')) call assert_match("Pattern 'bar.*foo' does not match 'foobar'", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_match('bar.*foo', 'foobar', 'wrong')) call assert_match('wrong', v:errors[0]) call remove(v:errors, 0) call assert_equal(1, 'foobar'->assert_match('bar.*foo', 'wrong')) call assert_match('wrong', v:errors[0]) call remove(v:errors, 0) endfunc func Test_notmatch() call assert_equal(0, assert_notmatch('foo', 'bar')) call assert_equal(0, assert_notmatch('^foobar$', 'foobars')) call assert_equal(1, assert_notmatch('foo', 'foobar')) call assert_match("Pattern 'foo' does match 'foobar'", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, 'foobar'->assert_notmatch('foo')) call assert_match("Pattern 'foo' does match 'foobar'", v:errors[0]) call remove(v:errors, 0) endfunc func Test_assert_fail_fails() call assert_equal(1, assert_fails('xxx', 'E12345')) call assert_match("Expected 'E12345' but got 'E492:", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_fails('xxx', 'E9876', 'stupid')) call assert_match("stupid: Expected 'E9876' but got 'E492:", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_fails('xxx', ['E9876'])) call assert_match("Expected 'E9876' but got 'E492:", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_fails('xxx', ['E492:', 'E9876'])) call assert_match("Expected 'E9876' but got 'E492:", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_fails('echo', '', 'echo command')) call assert_match("command did not fail: echo command", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, 'echo'->assert_fails('', 'echo command')) call assert_match("command did not fail: echo command", v:errors[0]) call remove(v:errors, 0) try call assert_equal(1, assert_fails('xxx', [])) catch let exp = v:exception endtry call assert_match("E856: \"assert_fails()\" second argument", exp) try call assert_equal(1, assert_fails('xxx', ['1', '2', '3'])) catch let exp = v:exception endtry call assert_match("E856: \"assert_fails()\" second argument", exp) try call assert_equal(1, assert_fails('xxx', #{one: 1})) catch let exp = v:exception endtry call assert_match("E1222: String or List required for argument 2", exp) try call assert_equal(1, assert_fails('xxx', 'E492', '', 'burp')) catch let exp = v:exception endtry call assert_match("E1210: Number required for argument 4", exp) try call assert_equal(1, assert_fails('xxx', 'E492', '', 54, 123)) catch let exp = v:exception endtry call assert_match("E1174: String required for argument 5", exp) endfunc func Test_assert_fails_in_try_block() try call assert_equal(0, assert_fails('throw "error"')) endtry endfunc func Test_assert_beeps() new call assert_equal(0, assert_beeps('normal h')) call assert_equal(1, assert_beeps('normal 0')) call assert_match("command did not beep: normal 0", v:errors[0]) call remove(v:errors, 0) call assert_equal(0, 'normal h'->assert_beeps()) call assert_equal(1, 'normal 0'->assert_beeps()) call assert_match("command did not beep: normal 0", v:errors[0]) call remove(v:errors, 0) bwipe endfunc func Test_assert_inrange() call assert_equal(0, assert_inrange(7, 7, 7)) call assert_equal(0, assert_inrange(5, 7, 5)) call assert_equal(0, assert_inrange(5, 7, 6)) call assert_equal(0, assert_inrange(5, 7, 7)) call assert_equal(1, assert_inrange(5, 7, 4)) call assert_match("Expected range 5 - 7, but got 4", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_inrange(5, 7, 8)) call assert_match("Expected range 5 - 7, but got 8", v:errors[0]) call remove(v:errors, 0) call assert_equal(0, 5->assert_inrange(5, 7)) call assert_equal(0, 7->assert_inrange(5, 7)) call assert_equal(1, 8->assert_inrange(5, 7)) call assert_match("Expected range 5 - 7, but got 8", v:errors[0]) call remove(v:errors, 0) call assert_fails('call assert_inrange(1, 1)', 'E119:') if has('float') call assert_equal(0, assert_inrange(7.0, 7, 7)) call assert_equal(0, assert_inrange(7, 7.0, 7)) call assert_equal(0, assert_inrange(7, 7, 7.0)) call assert_equal(0, assert_inrange(5, 7, 5.0)) call assert_equal(0, assert_inrange(5, 7, 6.0)) call assert_equal(0, assert_inrange(5, 7, 7.0)) call assert_equal(1, assert_inrange(5, 7, 4.0)) call assert_match("Expected range 5.0 - 7.0, but got 4.0", v:errors[0]) call remove(v:errors, 0) call assert_equal(1, assert_inrange(5, 7, 8.0)) call assert_match("Expected range 5.0 - 7.0, but got 8.0", v:errors[0]) call remove(v:errors, 0) endif endfunc func Test_assert_with_msg() call assert_equal('foo', 'bar', 'testing') call assert_match("testing: Expected 'foo' but got 'bar'", v:errors[0]) call remove(v:errors, 0) endfunc func Test_override() call test_override('char_avail', 1) eval 1->test_override('redraw') call test_override('ALL', 0) call assert_fails("call test_override('xxx', 1)", 'E475:') call assert_fails("call test_override('redraw', 'yes')", 'E474:') endfunc func Test_mouse_position() let save_mouse = &mouse set mouse=a new call setline(1, ['line one', 'line two']) call assert_equal([0, 1, 1, 0], getpos('.')) call test_setmouse(1, 5) call feedkeys("\<LeftMouse>", "xt") call assert_equal([0, 1, 5, 0], getpos('.')) call test_setmouse(2, 20) call feedkeys("\<LeftMouse>", "xt") call assert_equal([0, 2, 8, 0], getpos('.')) call test_setmouse(5, 1) call feedkeys("\<LeftMouse>", "xt") call assert_equal([0, 2, 1, 0], getpos('.')) call assert_fails('call test_setmouse("", 2)', 'E474:') call assert_fails('call test_setmouse(1, "")', 'E474:') bwipe! let &mouse = save_mouse endfunc func Test_user_is_happy() smile sleep 300m endfunc " Must be last. func Test_zz_quit_detected() " Verify that if a test function ends Vim the test script detects this. quit endfunc " vim: shiftwidth=2 sts=2 expandtab