diff options
Diffstat (limited to 'mnv/src/testdir/test_codestyle.mnv')
| -rw-r--r-- | mnv/src/testdir/test_codestyle.mnv | 198 |
1 files changed, 198 insertions, 0 deletions
diff --git a/mnv/src/testdir/test_codestyle.mnv b/mnv/src/testdir/test_codestyle.mnv new file mode 100644 index 0000000000..5466cb40dd --- /dev/null +++ b/mnv/src/testdir/test_codestyle.mnv @@ -0,0 +1,198 @@ +" Test for checking the source code style. + +let s:list_of_c_files = [] + +def s:ReportError(fname: string, lnum: number, msg: string) + if lnum > 0 + assert_report(fname .. ' line ' .. lnum .. ': ' .. msg) + endif +enddef + +def s:PerformCheck(fname: string, pattern: string, msg: string, skip: string) + var prev_lnum = 1 + var lnum = 1 + while (lnum > 0) + cursor(lnum, 1) + lnum = search(pattern, 'W', 0, 0, skip) + if (prev_lnum == lnum) + break + endif + prev_lnum = lnum + if (lnum > 0) + ReportError(fname, lnum, msg) + endif + endwhile +enddef + +def s:Get_C_source_files(): list<string> + if empty(list_of_c_files) + var list = glob('../*.[ch]', 0, 1) + ['../xxd/xxd.c'] + # Some files are auto-generated and may contain space errors, so skip those + list_of_c_files = filter(list, (i, v) => v !~ 'dlldata.c\|if_ole.h\|iid_ole.c') + endif + return list_of_c_files +enddef + +def Test_source_files() + for fname in Get_C_source_files() + bwipe! + g:ignoreSwapExists = 'e' + exe 'edit ' .. fname + + PerformCheck(fname, ' \t', 'space before Tab', '') + + PerformCheck(fname, '\s$', 'trailing white space', '') + + PerformCheck(fname, ';;\+$', 'double semicolon', '') + + # some files don't stick to the MNV style rules + if fname =~ 'iscygpty.c' + continue + endif + + var skip = 'getline(".") =~ "condition) {" || getline(".") =~ "mnvglob_func" || getline(".") =~ "{\"" || getline(".") =~ "{\\d" || getline(".") =~ "{{{"' + PerformCheck(fname, ')\s*{', 'curly after closing paren', skip) + + # Examples in comments use double quotes. + skip = "getline('.') =~ '\"'" + + PerformCheck(fname, '}\s*else', 'curly before "else"', skip) + + PerformCheck(fname, 'else\s*{', 'curly after "else"', skip) + + PerformCheck(fname, '\<\(if\|while\|for\)(', 'missing white space after "if"/"while"/"for"', skip) + endfor + + bwipe! +enddef + +def Test_test_files() + for fname in glob('*.mnv', 0, 1) + g:ignoreSwapExists = 'e' + exe 'edit ' .. fname + + # some files intentionally have misplaced white space + if fname =~ 'test_cindent.mnv' || fname =~ 'test_join.mnv' + continue + endif + + # skip files that are known to have a space before a tab + if fname !~ 'test_comments.mnv' + && fname !~ 'test_listchars.mnv' + && fname !~ 'test_visual.mnv' + cursor(1, 1) + var skip = 'getline(".") =~ "codestyle: ignore"' + var lnum = search(fname =~ "test_regexp_latin" ? '[^รก] \t' : ' \t', 'W', 0, 0, skip) + ReportError('testdir/' .. fname, lnum, 'space before Tab') + endif + + # skip files that are known to have trailing white space + if fname !~ 'test_cmdline.mnv' + && fname !~ 'test_let.mnv' + && fname !~ 'test_tagjump.mnv' + && fname !~ 'test_mnv9_cmd.mnv' + && fname !~ 'test_mnv9_enum.mnv' + cursor(1, 1) + var lnum = search( + fname =~ 'test_mnv9_assign.mnv' ? '[^=]\s$' + : fname =~ 'test_mnv9_class.mnv' ? '[^)]\s$' + : fname =~ 'test_mnv9_script.mnv' ? '[^,:3]\s$' + : fname =~ 'test_visual.mnv' ? '[^/]\s$' + : '[^\\]\s$') + ReportError('testdir/' .. fname, lnum, 'trailing white space') + endif + endfor + + bwipe! +enddef + +def Test_help_files() + var lnum: number + set nowrapscan + + for fpath in glob('../../runtime/doc/*.txt', 0, 1) + g:ignoreSwapExists = 'e' + exe 'edit ' .. fpath + + var fname = fnamemodify(fpath, ":t") + + # todo.txt is for developers, it's not need a strictly check + # version*.txt is a history and large size, so it's not checked + if fname == 'todo.txt' || fname =~ 'version.*\.txt' + continue + endif + + # Check for mixed tabs and spaces + cursor(1, 1) + while 1 + lnum = search('[^/] \t') + if fname == 'visual.txt' && getline(lnum) =~ "STRING \tjkl" + || fname == 'usr_27.txt' && getline(lnum) =~ "\[^\? \t\]" + continue + endif + ReportError(fpath, lnum, 'space before tab') + if lnum == 0 + break + endif + endwhile + + # Check for unnecessary whitespace at the end of a line + cursor(1, 1) + while 1 + lnum = search('\%([^/~\\]\|^\)\s\+$') + # skip line that are known to have trailing white space + if fname == 'map.txt' && getline(lnum) =~ "unmap @@ $" + || fname == 'usr_12.txt' && getline(lnum) =~ "^\t/ \t$" + || fname == 'usr_41.txt' && getline(lnum) =~ "map <F4> o#include $" + || fname == 'change.txt' && getline(lnum) =~ "foobar bla $" + continue + endif + ReportError('testdir' .. fpath, lnum, 'trailing white space') + if lnum == 0 + break + endif + endwhile + +# # TODO: Check for line over 80 columns +# cursor(1, 1) +# while 1 +# lnum = search('\%>80v.*$') +# ReportError(fpath, lnum, 'line over 80 columns') +# if lnum == 0 +# break +# endif +# endwhile + + endfor + + set wrapscan&mnv + bwipe! +enddef + +def Test_indent_of_source_files() + for fname in Get_C_source_files() + execute 'tabnew ' .. fname + if &expandtab + continue + endif + for lnum in range(1, line('$')) + var name: string = synIDattr(synID(lnum, 1, 0), 'name') + if -1 == index(['cComment', 'cCommentStart'], name) + var line: string = getline(lnum) + var indent: string = matchstr(line, '^\s*') + var tailing: string = matchstr(line, '\s*$') + if !empty(indent) + if indent !~# '^\t* \{0,7}$' + ReportError('testdir/' .. fname, lnum, 'invalid indent') + endif + endif + if !empty(tailing) + ReportError('testdir/' .. fname, lnum, 'tailing spaces') + endif + endif + endfor + close + endfor +enddef + +" mnv: shiftwidth=2 sts=2 expandtab nofoldenable |