tests/testthat/test-link.R

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

testthat::context("url and relative link detection")

testthat::describe("urls are detected", {
  it('www',{
    testthat::expect_true(is_link("www.google.com"))  
  })
  it('http',{
    testthat::expect_true(is_link("http://www.google.com"))  
  })
  it('https',{
    testthat::expect_true(is_link("https://www.google.com"))  
  })
})

testthat::describe("(potential) relative links are detected", {
  it('md',{
    testthat::expect_true(is_link("contributing.md"))
  })
  it('Rmd',{
    testthat::expect_true(is_link("report.Rmd"))
  })
  it('subdir file',{
    testthat::expect_true(is_link("figs/plot.png"))
  })
  it('subdir folder',{
    testthat::expect_true(is_link("docs/figs"))
  })
})

testthat::describe("image links are detected", {
  it('png',{
    testthat::expect_true(is_link("plot.png")) 
  })
  it('jpg',{
    testthat::expect_true(is_link("plot.jpg"))
  })
  it('jpeg',{
    testthat::expect_true(is_link("plot.jpeg"))
  })
  it('gif',{
    testthat::expect_true(is_link("funny_cat.gif"))
  })
})

testthat::describe("invalid urls/links are not detected", {
  it('http/s',{
    testthat::expect_false(is_link("http"))
    testthat::expect_false(is_link("https"))
  })
  it('www',{
    testthat::expect_false(is_link("www"))
    testthat::expect_false(is_link("http://www."))
  })
  it('no .com',{
    testthat::expect_false(is_link("www.google."))
  })
})