1library(unitizer)
2library(fansi)
3
4unitizer_sect('simple tabs', {
5  string <- '1\t12\t123\t1234\t12345678'
6  tabs_as_spaces(string)
7  tabs_as_spaces(string, c(2, 3, 4, 5, 8))
8  tabs_as_spaces(string, c(2, 8))
9  tabs_as_spaces(1:3)
10})
11unitizer_sect('newlines', {
12  string.n <- paste0(
13    '1\t12\t123\t1234\t12345678\n',
14    '1\t12\t123\t1234\t12345678'
15  )
16  tabs_as_spaces(string.n)
17  tabs_as_spaces(string.n, c(2, 3, 4, 8))
18  tabs_as_spaces(string.n, c(2, 8))
19})
20unitizer_sect('corner cases', {
21  tabs_as_spaces('')
22  tabs_as_spaces('\t')
23  tabs_as_spaces('\n')
24  tabs_as_spaces(c(string, string, string))
25})
26unitizer_sect('bad inputs', {
27  tabs_as_spaces(string, warn=1:3)
28  tabs_as_spaces(string, tab.stops='hello')
29  tabs_as_spaces(string, ctl='hello')
30  tabs_as_spaces(string, ctl=0)
31})
32