tests/testthat/test-basic.R

In details: Create Details HTML Tag for Markdown and Package Documentation

testthat::context('basic')

testthat::describe('basic',{
  
  it('empty',{
       testthat::expect_error(
         details::details(),
         regexp = 'argument "object" is missing'
        )
       })
  
  it('object',{
    testthat::expect_equal(
      print(details::details(mtcars,output = 'character')),
      unlist(strsplit(bench_fun(mtcars),'\\n'))
    )
  })
  
  it('dots',{
    testthat::expect_equal(
      print(details::details(mtcars,output = 'character',row.names = FALSE)),
      unlist(strsplit(bench_fun(mtcars,row.names = FALSE),'\\n'))
    )
  })

  it('file',{
    testthat::expect_equal(
      print(details::details(object = 'helpers.R',output = 'character')),
      unlist(strsplit(bench_fun(readLines('helpers.R')),'\\n'))
    )
  })

  it('non file singleton',{
    testthat::expect_equal(
      print(details::details(mtcars[1,1],output = 'character')),
      unlist(strsplit(bench_fun(mtcars[1,1]),'\\n'))
    )
  })
    
  it('no lang',{
    testthat::expect_equal(
      print(details::details(object = 'helpers.R',output = 'character',lang = 'none')),
      unlist(strsplit(bench_fun(readLines('helpers.R'),lang = 'none'),'\\n'))
    )
  })
  
})