blob: d6886b0f0c16fc1a0b62a152db59e1e3fc5b9a68 [file] [log] [blame]
Bram Moolenaar12c44922017-01-08 13:26:03 +01001" Tests for system() and systemlist()
2
3function! Test_System()
4 if !executable('echo') || !executable('cat') || !executable('wc')
5 return
6 endif
Bram Moolenaar9d9c3562017-01-08 13:55:06 +01007 let out = system('echo 123')
8 " On Windows we may get a trailing space.
9 if out != "123 \n"
10 call assert_equal("123\n", out)
11 endif
12
13 let out = systemlist('echo 123')
14 " On Windows we may get a trailing space and CR.
15 if out != ["123 \r"]
16 call assert_equal(['123'], out)
17 endif
18
Bram Moolenaar12c44922017-01-08 13:26:03 +010019 call assert_equal('123', system('cat', '123'))
20 call assert_equal(['123'], systemlist('cat', '123'))
21 call assert_equal(["as\<NL>df"], systemlist('cat', ["as\<NL>df"]))
Bram Moolenaar31f19ce2017-01-08 14:14:43 +010022
Bram Moolenaar12c44922017-01-08 13:26:03 +010023 new Xdummy
24 call setline(1, ['asdf', "pw\<NL>er", 'xxxx'])
Bram Moolenaar31f19ce2017-01-08 14:14:43 +010025 let out = system('wc -l', bufnr('%'))
26 " On OS/X we get leading spaces
27 let out = substitute(out, '^ *', '', '')
28 call assert_equal("3\n", out)
Bram Moolenaar9d9c3562017-01-08 13:55:06 +010029
30 let out = systemlist('wc -l', bufnr('%'))
31 " On Windows we may get a trailing CR.
32 if out != ["3\r"]
Bram Moolenaar31f19ce2017-01-08 14:14:43 +010033 " On OS/X we get leading spaces
34 if type(out) == v:t_list
35 let out[0] = substitute(out[0], '^ *', '', '')
36 endif
Bram Moolenaar9d9c3562017-01-08 13:55:06 +010037 call assert_equal(['3'], out)
38 endif
39
40 let out = systemlist('cat', bufnr('%'))
41 " On Windows we may get a trailing CR.
42 if out != ["asdf\r", "pw\<NL>er\r", "xxxx\r"]
43 call assert_equal(['asdf', "pw\<NL>er", 'xxxx'], out)
44 endif
Bram Moolenaar12c44922017-01-08 13:26:03 +010045 bwipe!
46
47 call assert_fails('call system("wc -l", 99999)', 'E86:')
48endfunction
Bram Moolenaar2b7bc562017-01-14 19:24:52 +010049
50function! Test_system_exmode()
Bram Moolenaar97d62d42017-01-16 22:53:57 +010051 if has('unix') " echo $? only works on Unix
52 let cmd = ' -es -u NONE -c "source Xscript" +q; echo $?'
53 " Need to put this in a script, "catch" isn't found after an unknown
54 " function.
55 call writefile(['try', 'call doesnotexist()', 'catch', 'endtry'], 'Xscript')
56 let a = system(v:progpath . cmd)
57 call assert_equal('0', a[0])
58 call assert_equal(0, v:shell_error)
Bram Moolenaarfad609d2017-01-14 19:38:36 +010059 endif
60
Bram Moolenaar2b7bc562017-01-14 19:24:52 +010061 " Error before try does set error flag.
62 call writefile(['call nosuchfunction()', 'try', 'call doesnotexist()', 'catch', 'endtry'], 'Xscript')
Bram Moolenaar97d62d42017-01-16 22:53:57 +010063 if has('unix') " echo $? only works on Unix
64 let a = system(v:progpath . cmd)
65 call assert_notequal('0', a[0])
66 endif
Bram Moolenaar2b7bc562017-01-14 19:24:52 +010067
Bram Moolenaar97d62d42017-01-16 22:53:57 +010068 let cmd = ' -es -u NONE -c "source Xscript" +q'
Bram Moolenaar2b7bc562017-01-14 19:24:52 +010069 let a = system(v:progpath . cmd)
70 call assert_notequal(0, v:shell_error)
Bram Moolenaar2b7bc562017-01-14 19:24:52 +010071 call delete('Xscript')
Bram Moolenaar97d62d42017-01-16 22:53:57 +010072
73 if has('unix') " echo $? only works on Unix
74 let cmd = ' -es -u NONE -c "call doesnotexist()" +q; echo $?'
75 let a = system(v:progpath. cmd)
76 call assert_notequal(0, a[0])
77 endif
78
79 let cmd = ' -es -u NONE -c "call doesnotexist()" +q'
80 let a = system(v:progpath. cmd)
81 call assert_notequal(0, v:shell_error)
82
83 if has('unix') " echo $? only works on Unix
84 let cmd = ' -es -u NONE -c "call doesnotexist()|let a=1" +q; echo $?'
85 let a = system(v:progpath. cmd)
86 call assert_notequal(0, a[0])
87 endif
88
89 let cmd = ' -es -u NONE -c "call doesnotexist()|let a=1" +q'
90 let a = system(v:progpath. cmd)
91 call assert_notequal(0, v:shell_error)
Bram Moolenaar2b7bc562017-01-14 19:24:52 +010092endfunc