tests/testthat/test-extractCode.R

test_that("Length of vector result", {
  # expect_equal(length(extractCode(url = "http://rpubs.com/aephidayatuloh/sendgmail")), 1)
  expect_error(extractCode(url = 'http://rpubs.com/aephidayatuloh/sendgmail'))
})
aephidayatuloh/rpubs documentation built on Oct. 24, 2020, 12:34 a.m.