tests/testthat/test-youtube.R

In remedy: 'RStudio' Addins to Simplify 'Markdown' Writing

testthat::context("youtube")

sec <- scratch_file()

testthat::describe('images',{
  
  skip_if_not_rstudio()
  testthat::skip_on_travis()
  
  it('empty html',{
    
    youtuber()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),
                           '<iframe width="100%" height="400" src="https://www.youtube.com/embed/" frameborder="0" allowfullscreen></iframe>'
                           )
    
    set_text(sec = sec)
  })
  
  it('html',{
    
    set_text('https://www.youtube.com/watch?v=O_kYuxP2pLA',sec = sec, mark = entire_document)
    
    youtuber()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),
                           '<iframe width="100%" height="400" src="https://www.youtube.com/embed/O_kYuxP2pLA" frameborder="0" allowfullscreen></iframe>')
    
    set_text(sec = sec)
  })
  it('html width/height',{
    
    remedy_opts$set(list(youtube_height = 100 , youtube_width = 100 ))
    
    set_text('https://www.youtube.com/watch?v=O_kYuxP2pLA',sec = sec, mark = entire_document)
    
    youtuber()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),
                           '<iframe width="100" height="100" src="https://www.youtube.com/embed/O_kYuxP2pLA" frameborder="0" allowfullscreen></iframe>')
    
    set_text(sec = sec)
  })
  
  
  it('html width/height',{
    
    remedy_opts$set(list(youtube_output = 'md'))
    
    set_text('https://www.youtube.com/watch?v=O_kYuxP2pLA',sec = sec, mark = entire_document)
    
    youtuber()
    
    rstudioapi::documentSave(sec$id)
    
    testthat::expect_equal(readLines(sec$path, warn = FALSE),
                           '[![ALT TEXT](http://img.youtube.com/vi/O_kYuxP2pLA/0.jpg)](https://www.youtube.com/watch?v=O_kYuxP2pLA)')
    
    set_text(sec = sec)
  })
})

remedy_opts$restore()