Mercurial > vim
view runtime/doc/test_urls.vim @ 34485:157cf882799f v9.1.0150
patch 9.1.0150: Several minor 'winfixbuf' issues
Commit: https://github.com/vim/vim/commit/4bb505e28cac0389561fff78d8bbe0319c2bcf2f
Author: Sean Dewar <6256228+seandewar@users.noreply.github.com>
Date: Tue Mar 5 20:39:07 2024 +0100
patch 9.1.0150: Several minor 'winfixbuf' issues
Problem: several minor 'winfixbuf' issues exist, mostly relating to the
quickfix list
Solution: address them and adjust tests. Retab and reflow a few things too.
(Sean Dewar)
Things touched include:
- Replace the semsgs with gettext'd emsgs.
- Handle window switching in ex_listdo properly, so curbuf and curwin
are kept in-sync and trigger autocommands; handle those properly.
- Don't change the list entry index in qf_jump_edit_buffer if we fail
due to 'wfb' (achieved by returning FAIL; QF_ABORT should only be used
if the list was changed).
- Make qf_jump_edit_buffer actually switch to prevwin when using `:cXX`
commands **outside** of the list window if 'wfb' is set in curwin.
Handle autocommands properly in case they mess with the list.
NOTE: previously, it seemed to split if 'wfb' was set, but do nothing
and fail if prevwin is *valid*. This behaviour seemed strange, and maybe
unintentional? Now it aligns more with what's described for the `:cXX`
commands in the original PR description when used outside a list window,
I think.
- In both functions, only consider prevwin if 'wfb' isn't set for it;
fallback to splitting otherwise.
- Use win_split to split. Not sure if there was a specific reason for
using ex_splitview. win_split is simpler and respects modifiers like
:vertical that may have been used. Plus, its return value can be checked
for setting opened_window in qf code (technically win_split_ins autocmds
could immediately close it or change windows, in which the qf code might
close some other window on failure; it's already the case elsewhere,
though).
closes: #14142
Signed-off-by: Sean Dewar <6256228+seandewar@users.noreply.github.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 05 Mar 2024 20:45:04 +0100 |
parents | e09acb1daea7 |
children | 7191ebc28df2 |
line wrap: on
line source
" Test for URLs in help documents. " " Opens a new window with all found URLS followed by return code from curl " (anything other than 0 means unreachable) " " Written by Christian Brabandt. func Test_check_URLs() "20.10.23, added by Restorer if has("win32") let s:outdev = 'nul' else let s:outdev = '/dev/null' endif " Restorer: For Windows users. If "curl" or "weget" is installed on the system " but not in %PATH%, add the full routes for them to this environment variable. if executable('curl') " Note: does not follow redirects! let s:command1 = 'curl --silent --fail --output ' ..s:outdev.. ' --head ' let s:command2 = "" elseif executable('wget') " Note: only allow a couple of redirects let s:command1 = 'wget --quiet -S --spider --max-redirect=2 --timeout=5 --tries=2 -O ' ..s:outdev.. ' ' let s:command2 = "" elseif has("win32") "20.10.23, added by Restorer if executable('powershell') if 2 == system('powershell -nologo -noprofile "$psversiontable.psversion.major"') echoerr 'To work in OS Windows requires the program "PowerShell" version 3.0 or higher' return endif let s:command1 = \ "powershell -nologo -noprofile \"{[Net.ServicePointManager]::SecurityProtocol = 'Tls12, Tls11, Tls, Ssl3'};try{(Invoke-WebRequest -MaximumRedirection 2 -TimeoutSec 5 -Uri " let s:command2 = ').StatusCode}catch{exit [int]$Error[0].Exception.Status}"' endif else echoerr 'Only works when "curl" or "wget", or "powershell" is available' return endif " Do the testing. set report =999 set nomore shm +=s let pat='\(https\?\|ftp\)://[^\t* ]\+' exe 'helpgrep' pat helpclose let urls = map(getqflist(), 'v:val.text') " do not use submatch(1)! let urls = map(urls, {key, val -> matchstr(val, pat)}) " remove examples like user@host (invalid urls) let urls = filter(urls, 'v:val !~ "@"') " Remove example URLs which are invalid let urls = filter(urls, {key, val -> val !~ '\<\(\(my\|some\)\?host\|machine\|hostname\|file\)\>'}) new put =urls " remove some more invalid items " empty lines "20.10.23, Restorer: '_' is a little faster, see `:h global` v/./d _ " remove # anchors %s/#.*$//e " remove trailing stuff (parenthesis, dot, comma, quotes), but only for HTTP " links g/^h/s#[.),'"`/>][:.,]\?$## g#^[hf]t\?tp:/\(/\?\.*\)$#d _ silent! g/ftp://,$/d _ silent! g/=$/d _ let a = getline(1,'$') let a = uniq(sort(a)) %d _ call setline(1, a) %s/.*/\=TestURL(submatch(0))/ " highlight the failures /.* \([0-9]*[1-9]\|[0-9]\{2,}\)$ endfunc func TestURL(url) " Relies on the return code to determine whether a page is valid echom printf("Testing URL: %d/%d %s", line('.'), line('$'), a:url) call system(s:command1 .. shellescape(a:url) .. s:command2) return printf("%s %d", a:url, v:shell_error) endfunc call Test_check_URLs() " vim: sw=2 sts=2 et