tests/testthat/test-print.R

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

testthat::context('print')

testthat::describe('print clipr',{
  testthat::skip_on_travis()
  skip_if_no_clipboard()

  it('clipr',{

    print(details::details('test',output = 'clipr'))

    testthat::expect_equal(
      unlist(strsplit(bench_fun('test'),'\\n')),
      clipr::read_clip()
    )
  })
})

testthat::describe('print methods',{
  it('console',{
    testthat::expect_output(
      print(details::details('test')),
      regexp = bench_fun('test')
    )    
  })
  
  it('character',{
    testthat::expect_equal(
      unlist(strsplit(bench_fun('test'),'\\n')),
      print(details::details('test',output = 'character'))
    )    
  })
  
})