| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118 |
- " Test :retab
- source check.vim
- func SetUp()
- new
- call setline(1, "\ta \t b c ")
- endfunc
- func TearDown()
- bwipe!
- endfunc
- func Retab(bang, n)
- let l:old_tabstop = &tabstop
- let l:old_line = getline(1)
- exe "retab" . a:bang . a:n
- let l:line = getline(1)
- call setline(1, l:old_line)
- if a:n > 0
- " :retab changes 'tabstop' to n with argument n > 0.
- call assert_equal(a:n, &tabstop)
- exe 'set tabstop=' . l:old_tabstop
- else
- " :retab does not change 'tabstop' with empty or n <= 0.
- call assert_equal(l:old_tabstop, &tabstop)
- endif
- return l:line
- endfunc
- func Test_retab()
- set tabstop=8 noexpandtab
- call assert_equal("\ta\t b c ", Retab('', ''))
- call assert_equal("\ta\t b c ", Retab('', 0))
- call assert_equal("\ta\t b c ", Retab('', 8))
- call assert_equal("\ta\t b\t c\t ", Retab('!', ''))
- call assert_equal("\ta\t b\t c\t ", Retab('!', 0))
- call assert_equal("\ta\t b\t c\t ", Retab('!', 8))
- call assert_equal("\t\ta\t\t\tb c ", Retab('', 4))
- call assert_equal("\t\ta\t\t\tb\t\t c\t ", Retab('!', 4))
- call assert_equal(" a\t\tb c ", Retab('', 10))
- call assert_equal(" a\t\tb c ", Retab('!', 10))
- set tabstop=8 expandtab
- call assert_equal(" a b c ", Retab('', ''))
- call assert_equal(" a b c ", Retab('', 0))
- call assert_equal(" a b c ", Retab('', 8))
- call assert_equal(" a b c ", Retab('!', ''))
- call assert_equal(" a b c ", Retab('!', 0))
- call assert_equal(" a b c ", Retab('!', 8))
- call assert_equal(" a b c ", Retab(' ', 4))
- call assert_equal(" a b c ", Retab('!', 4))
- call assert_equal(" a b c ", Retab(' ', 10))
- call assert_equal(" a b c ", Retab('!', 10))
- set tabstop=4 noexpandtab
- call assert_equal("\ta\t\tb c ", Retab('', ''))
- call assert_equal("\ta\t\tb\t\t c\t ", Retab('!', ''))
- call assert_equal("\t a\t\t\tb c ", Retab('', 3))
- call assert_equal("\t a\t\t\tb\t\t\tc\t ", Retab('!', 3))
- call assert_equal(" a\t b c ", Retab('', 5))
- call assert_equal(" a\t b\t\t c\t ", Retab('!', 5))
- set tabstop=4 expandtab
- call assert_equal(" a b c ", Retab('', ''))
- call assert_equal(" a b c ", Retab('!', ''))
- call assert_equal(" a b c ", Retab('', 3))
- call assert_equal(" a b c ", Retab('!', 3))
- call assert_equal(" a b c ", Retab('', 5))
- call assert_equal(" a b c ", Retab('!', 5))
- set tabstop& expandtab&
- endfunc
- func Test_retab_error()
- call assert_fails('retab -1', 'E487:')
- call assert_fails('retab! -1', 'E487:')
- call assert_fails('ret -1000', 'E487:')
- call assert_fails('ret 10000', 'E475:')
- call assert_fails('ret 80000000000000000000', 'E475:')
- endfunc
- func RetabLoop()
- while 1
- set ts=4000
- retab 4
- endwhile
- endfunc
- func Test_retab_endless()
- " inside try/catch we can catch the error message
- call setline(1, "\t0\t")
- let caught = 'no'
- try
- call RetabLoop()
- catch /E1240:/
- let caught = v:exception
- endtry
- call assert_match('E1240:', caught)
- set tabstop&
- endfunc
- func Test_nocatch_retab_endless()
- " when not inside try/catch an interrupt is generated to get out of loops
- call setline(1, "\t0\t")
- call assert_fails('call RetabLoop()', ['E1240:', 'Interrupted'])
- set tabstop&
- endfunc
- " vim: shiftwidth=2 sts=2 expandtab
|
