tests/testthat/test-load_yahoo_pe.R

In kristian-bak/kb.yahoo: Simple data loading from yahoo

test_that("Test: load_yahoo_pe", {

  res <- load_yahoo_pe(ticker = c("NOVO-B.CO", "HLUN-B.CO"))

  expect_equal(class(res), "numeric")

  expect_false(
    res %>%
      is.na() %>%
      all()
  )

})