Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 1 | " Test :suspend |
| 2 | |
| 3 | source shared.vim |
| 4 | |
Bram Moolenaar | a8356bc | 2019-04-14 14:31:11 +0200 | [diff] [blame^] | 5 | func CheckSuspended(buf, fileExists) |
| 6 | call WaitForAssert({-> assert_match('[$#] $', term_getline(a:buf, '.'))}) |
| 7 | |
| 8 | if a:fileExists |
| 9 | call assert_equal(['foo'], readfile('Xfoo')) |
| 10 | else |
| 11 | " Without 'autowrite', buffer should not be written. |
| 12 | call assert_equal(0, filereadable('Xfoo')) |
| 13 | endif |
| 14 | |
| 15 | call term_sendkeys(a:buf, "fg\<CR>\<C-L>") |
| 16 | call WaitForAssert({-> assert_equal(' 1 foo', term_getline(a:buf, '.'))}) |
| 17 | endfunc |
| 18 | |
Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 19 | func Test_suspend() |
| 20 | if !has('terminal') || !executable('/bin/sh') |
| 21 | return |
| 22 | endif |
| 23 | |
| 24 | let buf = term_start('/bin/sh') |
| 25 | " Wait for shell prompt. |
Bram Moolenaar | 0f62cf5 | 2018-11-03 21:09:15 +0100 | [diff] [blame] | 26 | call WaitForAssert({-> assert_match('[$#] $', term_getline(buf, '.'))}) |
Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 27 | |
| 28 | call term_sendkeys(buf, v:progpath |
| 29 | \ . " --clean -X" |
| 30 | \ . " -c 'set nu'" |
| 31 | \ . " -c 'call setline(1, \"foo\")'" |
| 32 | \ . " Xfoo\<CR>") |
| 33 | " Cursor in terminal buffer should be on first line in spawned vim. |
| 34 | call WaitForAssert({-> assert_equal(' 1 foo', term_getline(buf, '.'))}) |
| 35 | |
| 36 | for suspend_cmd in [":suspend\<CR>", |
| 37 | \ ":stop\<CR>", |
| 38 | \ ":suspend!\<CR>", |
| 39 | \ ":stop!\<CR>", |
| 40 | \ "\<C-Z>"] |
| 41 | " Suspend and wait for shell prompt. |
| 42 | call term_sendkeys(buf, suspend_cmd) |
Bram Moolenaar | a8356bc | 2019-04-14 14:31:11 +0200 | [diff] [blame^] | 43 | call CheckSuspended(buf, 0) |
Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 44 | endfor |
| 45 | |
| 46 | " Test that :suspend! with 'autowrite' writes content of buffers if modified. |
| 47 | call term_sendkeys(buf, ":set autowrite\<CR>") |
| 48 | call assert_equal(0, filereadable('Xfoo')) |
| 49 | call term_sendkeys(buf, ":suspend\<CR>") |
| 50 | " Wait for shell prompt. |
Bram Moolenaar | a8356bc | 2019-04-14 14:31:11 +0200 | [diff] [blame^] | 51 | call CheckSuspended(buf, 1) |
Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 52 | |
Bram Moolenaar | 3020ccb | 2019-01-17 22:13:54 +0100 | [diff] [blame] | 53 | " Quit gracefully to dump coverage information. |
| 54 | call term_sendkeys(buf, ":qall!\<CR>") |
| 55 | call term_wait(buf) |
| 56 | call Stop_shell_in_terminal(buf) |
| 57 | |
Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 58 | exe buf . 'bwipe!' |
| 59 | call delete('Xfoo') |
Bram Moolenaar | 3b30168 | 2018-09-22 21:37:39 +0200 | [diff] [blame] | 60 | endfunc |