aboutsummaryrefslogtreecommitdiff
path: root/src/nvim/testdir/test_restricted.vim
diff options
context:
space:
mode:
Diffstat (limited to 'src/nvim/testdir/test_restricted.vim')
-rw-r--r--src/nvim/testdir/test_restricted.vim103
1 files changed, 0 insertions, 103 deletions
diff --git a/src/nvim/testdir/test_restricted.vim b/src/nvim/testdir/test_restricted.vim
deleted file mode 100644
index a29f7c33d3..0000000000
--- a/src/nvim/testdir/test_restricted.vim
+++ /dev/null
@@ -1,103 +0,0 @@
-" Test for "rvim" or "vim -Z"
-
-source shared.vim
-
-"if has('win32') && has('gui')
-" " Win32 GUI shows a dialog instead of displaying the error in the last line.
-" finish
-"endif
-
-func Test_restricted()
- call Run_restricted_test('!ls', 'E145:')
-endfunc
-
-func Run_restricted_test(ex_cmd, error)
- let cmd = GetVimCommand('Xrestricted')
- if cmd == ''
- return
- endif
-
- " Use a VimEnter autocommand to avoid that the error message is displayed in
- " a dialog with an OK button.
- call writefile([
- \ "func Init()",
- \ " silent! " . a:ex_cmd,
- \ " call writefile([v:errmsg], 'Xrestrout')",
- \ " qa!",
- \ "endfunc",
- \ "au VimEnter * call Init()",
- \ ], 'Xrestricted')
- call system(cmd . ' -Z')
- call assert_match(a:error, join(readfile('Xrestrout')))
-
- call delete('Xrestricted')
- call delete('Xrestrout')
-endfunc
-
-func Test_restricted_lua()
- if !has('lua')
- throw 'Skipped: Lua is not supported'
- endif
- call Run_restricted_test('lua print("Hello, Vim!")', 'E981:')
- call Run_restricted_test('luado return "hello"', 'E981:')
- call Run_restricted_test('luafile somefile', 'E981:')
- call Run_restricted_test('call luaeval("expression")', 'E145:')
-endfunc
-
-func Test_restricted_mzscheme()
- if !has('mzscheme')
- throw 'Skipped: MzScheme is not supported'
- endif
- call Run_restricted_test('mzscheme statement', 'E981:')
- call Run_restricted_test('mzfile somefile', 'E981:')
- call Run_restricted_test('call mzeval("expression")', 'E145:')
-endfunc
-
-func Test_restricted_perl()
- if !has('perl')
- throw 'Skipped: Perl is not supported'
- endif
- " TODO: how to make Safe mode fail?
- " call Run_restricted_test('perl system("ls")', 'E981:')
- " call Run_restricted_test('perldo system("hello")', 'E981:')
- " call Run_restricted_test('perlfile somefile', 'E981:')
- " call Run_restricted_test('call perleval("system(\"ls\")")', 'E145:')
-endfunc
-
-func Test_restricted_python()
- if !has('python')
- throw 'Skipped: Python is not supported'
- endif
- call Run_restricted_test('python print "hello"', 'E981:')
- call Run_restricted_test('pydo return "hello"', 'E981:')
- call Run_restricted_test('pyfile somefile', 'E981:')
- call Run_restricted_test('call pyeval("expression")', 'E145:')
-endfunc
-
-func Test_restricted_python3()
- if !has('python3')
- throw 'Skipped: Python3 is not supported'
- endif
- call Run_restricted_test('py3 print "hello"', 'E981:')
- call Run_restricted_test('py3do return "hello"', 'E981:')
- call Run_restricted_test('py3file somefile', 'E981:')
- call Run_restricted_test('call py3eval("expression")', 'E145:')
-endfunc
-
-func Test_restricted_ruby()
- if !has('ruby')
- throw 'Skipped: Ruby is not supported'
- endif
- call Run_restricted_test('ruby print "Hello"', 'E981:')
- call Run_restricted_test('rubydo print "Hello"', 'E981:')
- call Run_restricted_test('rubyfile somefile', 'E981:')
-endfunc
-
-func Test_restricted_tcl()
- if !has('tcl')
- throw 'Skipped: Tcl is not supported'
- endif
- call Run_restricted_test('tcl puts "Hello"', 'E981:')
- call Run_restricted_test('tcldo puts "Hello"', 'E981:')
- call Run_restricted_test('tclfile somefile', 'E981:')
-endfunc