vim: src/testdir/test_clientserver.vim annotate

annotate src/testdir/test_clientserver.vim @ 11181:13544aa85dc0 v8.0.0477

patch 8.0.0477: the client-server test may hang when failing commit https://github.com/vim/vim/commit/42205551b140bee8b419b24abe210f56bb80b35e Author: Bram Moolenaar <Bram@vim.org> Date: Sat Mar 18 19:42:22 2017 +0100 patch 8.0.0477: the client-server test may hang when failing Problem: The client-server test may hang when failing. Solution: Set a timer. Add assert_report()

author	Christian Brabandt <cb@256bit.org>
date	Sat, 18 Mar 2017 19:45:05 +0100
parents	76fb679a310e
children	eb050472e4b4

rev	line source
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	1 " Tests for the +clientserver feature.
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	2
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	3 if !has('job') \|\| !has('clientserver')
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	4 finish
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	5 endif
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	6
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	7 source shared.vim
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	8
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	9 let s:where = 0
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	10 func Abort(id)
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	11 call assert_report('Test timed out at ' . s:where)
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	12 call FinishTesting()
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	13 endfunc
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	14
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	15 func Test_client_server()
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	16 let cmd = GetVimCommand()
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	17 if cmd == ''
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	18 return
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	19 endif
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	20
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	21 " Some of these commands may hang when failing.
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	22 call timer_start(10000, 'Abort')
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	23
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	24 let s:where = 1
13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	25 let name = 'XVIMTEST'
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	26 let cmd .= ' --servername ' . name
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	27 let g:job = job_start(cmd, {'stoponexit': 'kill', 'out_io': 'null'})
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	28 call WaitFor('job_status(g:job) == "run"')
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	29 if job_status(g:job) != 'run'
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	30 call assert_report('Cannot run the Vim server')
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	31 return
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	32 endif
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	33 let s:where = 2
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	34
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	35 " Takes a short while for the server to be active.
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	36 call WaitFor('serverlist() =~ "' . name . '"')
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	37 call assert_match(name, serverlist())
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	38 let s:where = 3
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	39
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	40 call remote_foreground(name)
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	41 let s:where = 4
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	42
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	43 call remote_send(name, ":let testvar = 'yes'\<CR>")
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	44 let s:where = 5
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	45 call WaitFor('remote_expr("' . name . '", "testvar") == "yes"')
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	46 let s:where = 6
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	47 call assert_equal('yes', remote_expr(name, "testvar"))
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	48 let s:where = 7
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	49
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	50 if has('unix') && has('gui') && !has('gui_running')
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	51 " Running in a terminal and the GUI is avaiable: Tell the server to open
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	52 " the GUI and check that the remote command still works.
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	53 " Need to wait for the GUI to start up, otherwise the send hangs in trying
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	54 " to send to the terminal window.
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	55 call remote_send(name, ":gui -f\<CR>")
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	56 let s:where = 8
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	57 sleep 500m
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	58 call remote_send(name, ":let testvar = 'maybe'\<CR>")
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	59 let s:where = 9
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	60 call WaitFor('remote_expr("' . name . '", "testvar") == "maybe"')
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	61 let s:where = 10
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	62 call assert_equal('maybe', remote_expr(name, "testvar"))
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	63 let s:where = 11
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	64 endif
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	65
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	66 call assert_fails('call remote_send("XXX", ":let testvar = ''yes''\<CR>")', 'E241')
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	67 let s:where = 12
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	68
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	69 " Expression evaluated locally.
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	70 if v:servername == ''
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	71 call remote_startserver('MYSELF')
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	72 let s:where = 13
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	73 call assert_equal('MYSELF', v:servername)
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	74 endif
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	75 let g:testvar = 'myself'
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	76 call assert_equal('myself', remote_expr(v:servername, 'testvar'))
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	77 let s:where = 14
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	78
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	79 call remote_send(name, ":call server2client(expand('<client>'), 'got it')\<CR>", 'g:myserverid')
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	80 let s:where = 15
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	81 call assert_equal('got it', remote_read(g:myserverid))
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	82 let s:where = 16
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11175 diff changeset	83
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	84 call remote_send(name, ":qa!\<CR>")
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	85 let s:where = 17
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	86 call WaitFor('job_status(g:job) == "dead"')
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	87 let s:where = 18
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	88 if job_status(g:job) != 'dead'
11181 13544aa85dc0 patch 8.0.0477: the client-server test may hang when failing Christian Brabandt <cb@256bit.org> parents: 11177 diff changeset	89 call assert_report('Server did not exit')
11175 9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	90 call job_stop(g:job, 'kill')
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	91 endif
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	92 endfunc
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	93
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	94 " Uncomment this line to get a debugging log
9836b701afd9 patch 8.0.0474: the client-server feature is not tested Christian Brabandt <cb@256bit.org> parents: diff changeset	95 " call ch_logfile('channellog', 'w')

Mercurial > vim

annotate src/testdir/test_clientserver.vim @ 11181:13544aa85dc0 v8.0.0477