" development/tests/test-keymaps-vim-prefix.vim — driven by
" development/tests/test-keymaps-vim.sh.
"
" Custom-prefix regression. The shell driver sets
" `g:nuwiki_map_prefix = '<Leader>n'` *before* the ftplugin loads, so this
" harness asserts the whole wiki command family relocates under `<Leader>n*`
" while nothing remains under the default `<Leader>w*`. Mirrors vimwiki's
" `g:vimwiki_map_prefix` and the Lua-side `map_prefix` option.

let s:results = []
let s:pass = 0
let s:fail = 0
let s:out = $NUWIKI_KEYMAP_RESULTS

function! s:record(ok, name, detail) abort
  let l:line = (a:ok ? 'PASS' : 'FAIL') . ' ' . a:name
  if a:detail !=# ''
    let l:line .= ' — ' . a:detail
  endif
  call add(s:results, l:line)
  if a:ok
    let s:pass += 1
  else
    let s:fail += 1
  endif
endfunction

function! s:has_map(lhs, mode) abort
  let l:d = maparg(a:lhs, a:mode, 0, 1)
  return !empty(l:d) && get(l:d, 'buffer', 0)
endfunction

" Every <prefix>* mapping must now live under <Leader>n (prefix = <Leader>n).
let s:relocated = [
      \ ['<Leader>nw', 'n'], ['<Leader>nt', 'n'], ['<Leader>ns', 'n'], ['<Leader>ni', 'n'],
      \ ['<Leader>n<Leader>w', 'n'], ['<Leader>n<Leader>y', 'n'], ['<Leader>n<Leader>t', 'n'],
      \ ['<Leader>n<Leader>m', 'n'], ['<Leader>n<Leader>i', 'n'],
      \ ['<Leader>nn', 'n'], ['<Leader>nd', 'n'], ['<Leader>nr', 'n'], ['<Leader>nc', 'n'],
      \ ['<Leader>nh', 'n'], ['<Leader>nhh', 'n'], ['<Leader>nha', 'n'],
      \ ]
for s:e in s:relocated
  let s:ok = s:has_map(s:e[0], s:e[1])
  call s:record(s:ok ? 1 : 0, 'prefix.relocated.' . s:e[1] . '.' . s:e[0],
        \ s:ok ? '' : s:e[0] . ' not bound under custom prefix')
endfor

" The default <Leader>w* family must be GONE (relocated, not duplicated).
let s:gone = [
      \ ['<Leader>ww', 'n'], ['<Leader>wr', 'n'], ['<Leader>wh', 'n'],
      \ ['<Leader>w<Leader>w', 'n'],
      \ ]
for s:e in s:gone
  let s:ok = !s:has_map(s:e[0], s:e[1])
  call s:record(s:ok ? 1 : 0, 'prefix.default_gone.' . s:e[1] . '.' . s:e[0],
        \ s:ok ? '' : s:e[0] . ' still mapped despite custom prefix')
endfor

" Non-prefix maps (links group) are unaffected by the prefix change.
let s:cr = s:has_map('<CR>', 'n')
call s:record(s:cr ? 1 : 0, 'prefix.cr_unaffected', s:cr ? '' : '<CR> lost')

call add(s:results, '')
call add(s:results, printf('SUMMARY: %d passed, %d failed', s:pass, s:fail))
call writefile(s:results, s:out)
execute (s:fail == 0 ? 'qall!' : 'cquit!')