tests/testthat/test-extract_codelist_urls.R

context("extract_codelist_urls")

test_that("extract_codelist_urls() works", {
  d <- extract_codelist_urls("with-note.html")
  expect_s3_class(d, "data.frame")
  expect_equal(nrow(d), 1L)
})
yutannihilation/kokudosuuchiUtils documentation built on May 6, 2019, 5:04 p.m.