legacy tests: Remove legacy tests for MzScheme (test70)

This commit is contained in:
David Bürgin 2015-04-05 15:32:08 +02:00 committed by Michael Reed
parent d41322fafb
commit 4657cd53d3
5 changed files with 2 additions and 76 deletions

1
.gitignore vendored
View File

@ -22,7 +22,6 @@
# Files generated by the tests # Files generated by the tests
/src/nvim/testdir/del /src/nvim/testdir/del
/src/nvim/testdir/mbyte.vim /src/nvim/testdir/mbyte.vim
/src/nvim/testdir/mzscheme.vim
/src/nvim/testdir/lua.vim /src/nvim/testdir/lua.vim
/src/nvim/testdir/small.vim /src/nvim/testdir/small.vim
/src/nvim/testdir/tiny.vim /src/nvim/testdir/tiny.vim

View File

@ -22,7 +22,7 @@ SCRIPTS := test_autoformat_join.out \
test52.out test53.out test55.out \ test52.out test53.out test55.out \
test57.out test58.out test59.out test60.out \ test57.out test58.out test59.out test60.out \
test61.out test62.out test63.out test64.out test65.out \ test61.out test62.out test63.out test64.out test65.out \
test68.out test69.out test70.out \ test68.out test69.out \
test71.out test73.out test74.out \ test71.out test73.out test74.out \
test76.out test78.out test79.out test80.out \ test76.out test78.out test79.out test80.out \
test82.out test83.out test85.out \ test82.out test83.out test85.out \
@ -85,7 +85,7 @@ test1.out: $(VIMPROG)
$(SCRIPTS) $(SCRIPTS_GUI): $(VIMPROG) test1.out $(SCRIPTS) $(SCRIPTS_GUI): $(VIMPROG) test1.out
RM_ON_RUN := test.out X* viminfo RM_ON_RUN := test.out X* viminfo
RM_ON_START := tiny.vim small.vim mbyte.vim mzscheme.vim lua.vim test.ok RM_ON_START := tiny.vim small.vim mbyte.vim lua.vim test.ok
RUN_VIM := VIMRUNTIME=$(SCRIPTSOURCE); export VIMRUNTIME; $(TOOL) $(VIMPROG) -u unix.vim -U NONE -i viminfo --noplugin -s dotest.in RUN_VIM := VIMRUNTIME=$(SCRIPTSOURCE); export VIMRUNTIME; $(TOOL) $(VIMPROG) -u unix.vim -U NONE -i viminfo --noplugin -s dotest.in
clean: clean:

View File

@ -14,7 +14,6 @@ set like small.vim above. tiny.vim is sourced by tests that require the
If Vim was not compiled with the +multi_byte feature, the mbyte.vim script will If Vim was not compiled with the +multi_byte feature, the mbyte.vim script will
be set like small.vim above. mbyte.vim is sourced by tests that require the be set like small.vim above. mbyte.vim is sourced by tests that require the
+multi_byte feature. +multi_byte feature.
Similar logic is applied to the +mzscheme feature, using mzscheme.vim.
Similar logic is applied to the +lua feature, using lua.vim. Similar logic is applied to the +lua feature, using lua.vim.
STARTTEST STARTTEST
@ -32,15 +31,11 @@ ae! test.ok
w! test.out w! test.out
qa! qa!
:w! mbyte.vim :w! mbyte.vim
:w! mzscheme.vim
:w! lua.vim :w! lua.vim
:" :"
:" If +multi_byte feature supported, make mbyte.vim empty. :" If +multi_byte feature supported, make mbyte.vim empty.
:if has("multi_byte") | sp another | w! mbyte.vim | q | endif :if has("multi_byte") | sp another | w! mbyte.vim | q | endif
:" :"
:" If +mzscheme feature supported, make mzscheme.vim empty.
:if has("mzscheme") | sp another | w! mzscheme.vim | q | endif
:"
:" If +lua feature supported, make lua.vim empty. :" If +lua feature supported, make lua.vim empty.
:if has("lua") | sp another | w! lua.vim | q | endif :if has("lua") | sp another | w! lua.vim | q | endif
:" :"

View File

@ -1,62 +0,0 @@
Smoke test for MzScheme interface and mzeval() function
STARTTEST
:so mzscheme.vim
:function! MzRequire()
:redir => l:mzversion
:mz (version)
:redir END
:if strpart(l:mzversion, 1, 1) < "4"
:" MzScheme versions < 4.x:
:mz (require (prefix vim- vimext))
:else
:" newer versions:
:mz (require (prefix-in vim- 'vimext))
:mz (require r5rs)
:endif
:endfunction
:silent call MzRequire()
:mz (define l '("item0" "dictionary with list OK" "item2"))
:mz (define h (make-hash))
:mz (hash-set! h "list" l)
/^1
:" change buffer contents
:mz (vim-set-buff-line (vim-eval "line('.')") "1 changed line 1")
:" scalar test
:let tmp_string = mzeval('"string"')
:let tmp_1000 = mzeval('1000')
:if tmp_string . tmp_1000 == "string1000"
:let scalar_res = "OK"
:else
:let scalar_res = "FAILED"
:endif
:call append(search("^1"), "scalar test " . scalar_res)
:" dictionary containing a list
:let tmp = mzeval("h")["list"][1]
:/^2/put =tmp
:" circular list (at the same time test lists containing lists)
:mz (set-car! (cddr l) l)
:let l2 = mzeval("h")["list"]
:if l2[2] == l2
:let res = "OK"
:else
:let res = "FAILED: " . l2[2]
:endif
:call setline(search("^3"), "circular test " . res)
:" funcrefs
:mz (define vim:max (vim-eval "function('max')"))
:mz (define m (vim:max '(1 100 8)))
:let m = mzeval('m')
:if m == 100
:let fref_res = "OK"
:else
:let fref_res = "FAILED: " . m
:end
:call append(line('$'), 'funcrefs '. fref_res)
:?^1?,$w! test.out
:qa!
ENDTEST
1 line 1
2 line 2
3 line 3

View File

@ -1,6 +0,0 @@
1 changed line 1
scalar test OK
2 line 2
dictionary with list OK
circular test OK
funcrefs OK