1*07dc18ffSBram Moolenaar" Test for :scriptnames
2*07dc18ffSBram Moolenaar
3*07dc18ffSBram Moolenaarfunc Test_scriptnames()
4*07dc18ffSBram Moolenaar  call writefile(['let did_load_script = 123'], 'Xscripting')
5*07dc18ffSBram Moolenaar  source Xscripting
6*07dc18ffSBram Moolenaar  call assert_equal(123, g:did_load_script)
7*07dc18ffSBram Moolenaar
8*07dc18ffSBram Moolenaar  let scripts = split(execute('scriptnames'), "\n")
9*07dc18ffSBram Moolenaar  let last = scripts[-1]
10*07dc18ffSBram Moolenaar  call assert_match('\<Xscripting\>', last)
11*07dc18ffSBram Moolenaar  let lastnr = substitute(last, '\D*\(\d\+\):.*', '\1', '')
12*07dc18ffSBram Moolenaar  exe 'script ' . lastnr
13*07dc18ffSBram Moolenaar  call assert_equal('Xscripting', expand('%:t'))
14*07dc18ffSBram Moolenaar
15*07dc18ffSBram Moolenaar  call assert_fails('script ' . (lastnr + 1), 'E474:')
16*07dc18ffSBram Moolenaar  call assert_fails('script 0', 'E939:')
17*07dc18ffSBram Moolenaar
18*07dc18ffSBram Moolenaar  new
19*07dc18ffSBram Moolenaar  call setline(1, 'nothing')
20*07dc18ffSBram Moolenaar  call assert_fails('script ' . lastnr, 'E37:')
21*07dc18ffSBram Moolenaar  exe 'script! ' . lastnr
22*07dc18ffSBram Moolenaar  call assert_equal('Xscripting', expand('%:t'))
23*07dc18ffSBram Moolenaar
24*07dc18ffSBram Moolenaar  bwipe
25*07dc18ffSBram Moolenaar  call delete('Xscripting')
26*07dc18ffSBram Moolenaarendfunc
27