107dc18ffSBram Moolenaar" Test for :scriptnames
207dc18ffSBram Moolenaar
307dc18ffSBram Moolenaarfunc Test_scriptnames()
407dc18ffSBram Moolenaar  call writefile(['let did_load_script = 123'], 'Xscripting')
507dc18ffSBram Moolenaar  source Xscripting
607dc18ffSBram Moolenaar  call assert_equal(123, g:did_load_script)
707dc18ffSBram Moolenaar
807dc18ffSBram Moolenaar  let scripts = split(execute('scriptnames'), "\n")
907dc18ffSBram Moolenaar  let last = scripts[-1]
1007dc18ffSBram Moolenaar  call assert_match('\<Xscripting\>', last)
1107dc18ffSBram Moolenaar  let lastnr = substitute(last, '\D*\(\d\+\):.*', '\1', '')
1207dc18ffSBram Moolenaar  exe 'script ' . lastnr
1307dc18ffSBram Moolenaar  call assert_equal('Xscripting', expand('%:t'))
1407dc18ffSBram Moolenaar
1507dc18ffSBram Moolenaar  call assert_fails('script ' . (lastnr + 1), 'E474:')
1607dc18ffSBram Moolenaar  call assert_fails('script 0', 'E939:')
1707dc18ffSBram Moolenaar
1807dc18ffSBram Moolenaar  new
1907dc18ffSBram Moolenaar  call setline(1, 'nothing')
2007dc18ffSBram Moolenaar  call assert_fails('script ' . lastnr, 'E37:')
2107dc18ffSBram Moolenaar  exe 'script! ' . lastnr
2207dc18ffSBram Moolenaar  call assert_equal('Xscripting', expand('%:t'))
2307dc18ffSBram Moolenaar
2407dc18ffSBram Moolenaar  bwipe
2507dc18ffSBram Moolenaar  call delete('Xscripting')
2607dc18ffSBram Moolenaarendfunc
27*6d91bcb4SBram Moolenaar
28*6d91bcb4SBram Moolenaar" vim: shiftwidth=2 sts=2 expandtab
29