tests/testthat/test-footnote.R

In ThinkR-open/remedy: 'RStudio' Addins to Simplify 'Markdown' Writing

testthat::context("footnotes")

sec <- scratch_file()

testthat::describe('footnotes',{
  
  skip_if_not_rstudio()
  testthat::skip_on_travis()
  
  it('empty',{
    
    footnoter()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),'^[]')
    
    set_text(sec = sec)
  })

  it('highlighted',{
    
    set_text('some text',sec = sec, mark = entire_document)
    
    footnoter()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),'^[some text]')
    
    set_text(sec = sec)
  })
  
  it('multiline',{
    
    set_text('some text\n more text',sec = sec, mark = entire_document)
    
    footnoter()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),c('^[some text',' more text]'))
    
    set_text(sec = sec)
  })
  
  it('multiselect',{
    
    set_text('some text\n more text',sec = sec, mark = individual_lines)
    
    footnoter()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),c('^[some text]','^[ more text]'))
    
    set_text(sec = sec)
  })
  
})