tests/testthat/test-extract_badges.R

In codemeta/codemetar: Generate 'CodeMeta' Metadata for R Packages

test_that("we can parse md and html badges", {
  f <- system.file("examples/README_fakepackage.md", package="codemetar")
  badges <- extract_badges(f)
  testthat::expect_equal(nrow(badges), 5)
  testthat::expect_true(grepl("–", badges$text[5]))


  f <- system.file("examples/README_fakepackage2.md", package="codemetar")
  badges <- extract_badges(f)
  testthat::expect_equal(nrow(badges), 11)
  testthat::expect_true(grepl("–", badges$text[6]))

  f <- system.file("examples/README_fakepackage3.md", package="codemetar")
  badges <- extract_badges(f)
  testthat::expect_equal(nrow(badges), 5)
})

test_that("we can parse drake README html", {
  skip_on_cran()
  skip_if_offline()
  f <- "https://raw.githubusercontent.com/ropensci/drake/master/README.md"
  badges <- extract_badges(f)
  testthat::expect_true(nrow(badges) > 1)
})