| Bram Moolenaar | 63dbda1 | 2013-02-20 21:12:10 +0100 | [diff] [blame] | 1 | Tests for getbufvar(), getwinvar(), gettabvar() and gettabwinvar(). |
| 2 | vim: set ft=vim : |
| 3 | |
| 4 | STARTTEST |
| 5 | :so small.vim |
| 6 | :" |
| Bram Moolenaar | 54c34fa | 2013-04-15 15:15:35 +0200 | [diff] [blame^] | 7 | :" Test for getbufvar() |
| 8 | :" Use strings to test for memory leaks. |
| 9 | :let b:var_num = '1234' |
| 10 | :let def_num = '5678' |
| Bram Moolenaar | 63dbda1 | 2013-02-20 21:12:10 +0100 | [diff] [blame] | 11 | :$put =string(getbufvar(1, 'var_num')) |
| 12 | :$put =string(getbufvar(1, 'var_num', def_num)) |
| 13 | :$put =string(getbufvar(1, '')) |
| 14 | :$put =string(getbufvar(1, '', def_num)) |
| 15 | :unlet b:var_num |
| 16 | :$put =string(getbufvar(1, 'var_num', def_num)) |
| 17 | :$put =string(getbufvar(1, '')) |
| 18 | :$put =string(getbufvar(1, '', def_num)) |
| 19 | :$put =string(getbufvar(9, '')) |
| 20 | :$put =string(getbufvar(9, '', def_num)) |
| 21 | :unlet def_num |
| 22 | :$put =string(getbufvar(1, '&autoindent')) |
| 23 | :$put =string(getbufvar(1, '&autoindent', 1)) |
| 24 | :" |
| 25 | :" test for getwinvar() |
| 26 | :let w:var_str = "Dance" |
| 27 | :let def_str = "Chance" |
| 28 | :$put =string(getwinvar(1, 'var_str')) |
| 29 | :$put =string(getwinvar(1, 'var_str', def_str)) |
| 30 | :$put =string(getwinvar(1, '')) |
| 31 | :$put =string(getwinvar(1, '', def_str)) |
| 32 | :unlet w:var_str |
| 33 | :$put =string(getwinvar(1, 'var_str', def_str)) |
| 34 | :$put =string(getwinvar(1, '')) |
| 35 | :$put =string(getwinvar(1, '', def_str)) |
| 36 | :$put =string(getwinvar(9, '')) |
| 37 | :$put =string(getwinvar(9, '', def_str)) |
| 38 | :$put =string(getwinvar(1, '&nu')) |
| 39 | :$put =string(getwinvar(1, '&nu', 1)) |
| 40 | :unlet def_str |
| 41 | :" |
| 42 | :" test for gettabvar() |
| 43 | :tabnew |
| 44 | :tabnew |
| 45 | :let t:var_list = [1, 2, 3] |
| 46 | :let def_list = [4, 5, 6, 7] |
| 47 | :tabrewind |
| 48 | :$put =string(gettabvar(3, 'var_list')) |
| 49 | :$put =string(gettabvar(3, 'var_list', def_list)) |
| 50 | :$put =string(gettabvar(3, '')) |
| 51 | :$put =string(gettabvar(3, '', def_list)) |
| 52 | :tablast |
| 53 | :unlet t:var_list |
| 54 | :tabrewind |
| 55 | :$put =string(gettabvar(3, 'var_list', def_list)) |
| 56 | :$put =string(gettabvar(9, '')) |
| 57 | :$put =string(gettabvar(9, '', def_list)) |
| 58 | :$put =string(gettabvar(3, '&nu')) |
| 59 | :$put =string(gettabvar(3, '&nu', def_list)) |
| 60 | :unlet def_list |
| 61 | :tabonly |
| 62 | :" |
| 63 | :" test for gettabwinvar() |
| 64 | :tabnew |
| 65 | :tabnew |
| 66 | :tabprev |
| 67 | :split |
| 68 | :split |
| 69 | :wincmd w |
| 70 | :vert split |
| 71 | :wincmd w |
| 72 | :let w:var_dict = {'dict': 'tabwin'} |
| 73 | :let def_dict = {'dict2': 'newval'} |
| 74 | :wincmd b |
| 75 | :tabrewind |
| 76 | :$put =string(gettabwinvar(2, 3, 'var_dict')) |
| 77 | :$put =string(gettabwinvar(2, 3, 'var_dict', def_dict)) |
| 78 | :$put =string(gettabwinvar(2, 3, '')) |
| 79 | :$put =string(gettabwinvar(2, 3, '', def_dict)) |
| 80 | :tabnext |
| 81 | :3wincmd w |
| 82 | :unlet w:var_dict |
| 83 | :tabrewind |
| 84 | :$put =string(gettabwinvar(2, 3, 'var_dict', def_dict)) |
| 85 | :$put =string(gettabwinvar(2, 3, '')) |
| 86 | :$put =string(gettabwinvar(2, 3, '', def_dict)) |
| 87 | :$put =string(gettabwinvar(2, 9, '')) |
| 88 | :$put =string(gettabwinvar(2, 9, '', def_dict)) |
| 89 | :$put =string(gettabwinvar(9, 3, '')) |
| 90 | :$put =string(gettabwinvar(9, 3, '', def_dict)) |
| 91 | :unlet def_dict |
| 92 | :$put =string(gettabwinvar(2, 3, '&nux')) |
| 93 | :$put =string(gettabwinvar(2, 3, '&nux', 1)) |
| 94 | :tabonly |
| 95 | :" |
| 96 | :/^start/,$wq! test.out |
| 97 | ENDTEST |
| 98 | |
| 99 | start: |