view src/testdir/test_scriptnames.vim @ 29457:53d8ef8442d8 v9.0.0070

patch 9.0.0070: using utfc_ptr2char_len() when length is negative Commit: https://github.com/vim/vim/commit/4dc513a22c017b3061287deac74fa55f70a3214c Author: zeertzjq <zeertzjq@outlook.com> Date: Mon Jul 25 19:42:02 2022 +0100 patch 9.0.0070: using utfc_ptr2char_len() when length is negative Problem: Using utfc_ptr2char_len() when length is negative. Solution: Check value of length. (closes https://github.com/vim/vim/issues/10760)
author Bram Moolenaar <Bram@vim.org>
date Mon, 25 Jul 2022 20:45:02 +0200
parents fa09602eae48
children 761631155a90
line wrap: on
line source

" Test for :scriptnames

func Test_scriptnames()
  call writefile(['let did_load_script = 123'], 'Xscripting')
  source Xscripting
  call assert_equal(123, g:did_load_script)

  let scripts = split(execute('scriptnames'), "\n")
  let last = scripts[-1]
  call assert_match('\<Xscripting\>', last)
  let lastnr = substitute(last, '\D*\(\d\+\):.*', '\1', '')
  exe 'script ' . lastnr
  call assert_equal('Xscripting', expand('%:t'))

  call assert_fails('script ' . (lastnr + 1), 'E474:')
  call assert_fails('script 0', 'E939:')

  new
  call setline(1, 'nothing')
  call assert_fails('script ' . lastnr, 'E37:')
  exe 'script! ' . lastnr
  call assert_equal('Xscripting', expand('%:t'))

  bwipe
  call delete('Xscripting')

  let msgs = execute('messages')
  scriptnames
  call assert_equal(msgs, execute('messages'))
endfunc

" vim: shiftwidth=2 sts=2 expandtab