blob: 8cd6f77be30ec8e93d3cdfb6b87bac8757ae3a0f [file] [log] [blame]
Bram Moolenaar88227442017-01-17 22:16:00 +01001" Test :retab
Bram Moolenaar6d91bcb2020-08-12 18:50:36 +02002
Bram Moolenaar88227442017-01-17 22:16:00 +01003func SetUp()
4 new
5 call setline(1, "\ta \t b c ")
6endfunc
7
8func TearDown()
9 bwipe!
10endfunc
11
12func Retab(bang, n)
13 let l:old_tabstop = &tabstop
14 let l:old_line = getline(1)
15 exe "retab" . a:bang . a:n
16 let l:line = getline(1)
17 call setline(1, l:old_line)
18 if a:n > 0
19 " :retab changes 'tabstop' to n with argument n > 0.
20 call assert_equal(a:n, &tabstop)
21 exe 'set tabstop=' . l:old_tabstop
22 else
23 " :retab does not change 'tabstop' with empty or n <= 0.
24 call assert_equal(l:old_tabstop, &tabstop)
25 endif
26 return l:line
27endfunc
28
29func Test_retab()
30 set tabstop=8 noexpandtab
31 call assert_equal("\ta\t b c ", Retab('', ''))
32 call assert_equal("\ta\t b c ", Retab('', 0))
33 call assert_equal("\ta\t b c ", Retab('', 8))
34 call assert_equal("\ta\t b\t c\t ", Retab('!', ''))
35 call assert_equal("\ta\t b\t c\t ", Retab('!', 0))
36 call assert_equal("\ta\t b\t c\t ", Retab('!', 8))
37
38 call assert_equal("\t\ta\t\t\tb c ", Retab('', 4))
39 call assert_equal("\t\ta\t\t\tb\t\t c\t ", Retab('!', 4))
40
41 call assert_equal(" a\t\tb c ", Retab('', 10))
42 call assert_equal(" a\t\tb c ", Retab('!', 10))
43
44 set tabstop=8 expandtab
45 call assert_equal(" a b c ", Retab('', ''))
46 call assert_equal(" a b c ", Retab('', 0))
47 call assert_equal(" a b c ", Retab('', 8))
48 call assert_equal(" a b c ", Retab('!', ''))
49 call assert_equal(" a b c ", Retab('!', 0))
50 call assert_equal(" a b c ", Retab('!', 8))
51
52 call assert_equal(" a b c ", Retab(' ', 4))
53 call assert_equal(" a b c ", Retab('!', 4))
54
55 call assert_equal(" a b c ", Retab(' ', 10))
56 call assert_equal(" a b c ", Retab('!', 10))
57
58 set tabstop=4 noexpandtab
59 call assert_equal("\ta\t\tb c ", Retab('', ''))
60 call assert_equal("\ta\t\tb\t\t c\t ", Retab('!', ''))
61 call assert_equal("\t a\t\t\tb c ", Retab('', 3))
62 call assert_equal("\t a\t\t\tb\t\t\tc\t ", Retab('!', 3))
63 call assert_equal(" a\t b c ", Retab('', 5))
64 call assert_equal(" a\t b\t\t c\t ", Retab('!', 5))
65
66 set tabstop=4 expandtab
67 call assert_equal(" a b c ", Retab('', ''))
68 call assert_equal(" a b c ", Retab('!', ''))
69 call assert_equal(" a b c ", Retab('', 3))
70 call assert_equal(" a b c ", Retab('!', 3))
71 call assert_equal(" a b c ", Retab('', 5))
72 call assert_equal(" a b c ", Retab('!', 5))
Bram Moolenaar6e287032022-02-12 15:42:18 +000073
74 set tabstop& expandtab&
Bram Moolenaar88227442017-01-17 22:16:00 +010075endfunc
76
77func Test_retab_error()
78 call assert_fails('retab -1', 'E487:')
79 call assert_fails('retab! -1', 'E487:')
Bram Moolenaarb7081e12021-09-04 18:47:28 +020080 call assert_fails('ret -1000', 'E487:')
81 call assert_fails('ret 10000', 'E475:')
82 call assert_fails('ret 80000000000000000000', 'E475:')
Bram Moolenaar88227442017-01-17 22:16:00 +010083endfunc
Bram Moolenaar6d91bcb2020-08-12 18:50:36 +020084
Bram Moolenaar8bea1712022-06-15 20:49:35 +010085func RetabLoop()
86 while 1
87 set ts=4000
88 retab 4
89 endwhile
90endfunc
91
92func Test_retab_endless()
Bram Moolenaar308660b2022-06-16 12:10:48 +010093 " inside try/catch we can catch the error message
Bram Moolenaar6e287032022-02-12 15:42:18 +000094 call setline(1, "\t0\t")
95 let caught = 'no'
96 try
Bram Moolenaar8bea1712022-06-15 20:49:35 +010097 call RetabLoop()
98 catch /E1240:/
Bram Moolenaar93974232022-06-12 23:05:07 +010099 let caught = v:exception
Bram Moolenaar6e287032022-02-12 15:42:18 +0000100 endtry
Bram Moolenaar8bea1712022-06-15 20:49:35 +0100101 call assert_match('E1240:', caught)
Bram Moolenaar83497f82022-06-15 22:11:45 +0100102
Bram Moolenaar8bea1712022-06-15 20:49:35 +0100103 set tabstop&
104endfunc
105
106func Test_nocatch_retab_endless()
Bram Moolenaar308660b2022-06-16 12:10:48 +0100107 " when not inside try/catch an interrupt is generated to get out of loops
Bram Moolenaar8bea1712022-06-15 20:49:35 +0100108 call setline(1, "\t0\t")
109 call assert_fails('call RetabLoop()', ['E1240:', 'Interrupted'])
110
Bram Moolenaar6e287032022-02-12 15:42:18 +0000111 set tabstop&
112endfunc
113
114
Bram Moolenaar6d91bcb2020-08-12 18:50:36 +0200115" vim: shiftwidth=2 sts=2 expandtab