tests/testthat/test-bsef.R

test_that('BSEF API accesible', {
  skip_on_cran()
  non_empty_data <- bsef(as.Date("2014-09-18"), as.Date("2014-09-19"), "IR")
  expect_false(identical(non_empty_data, tibble::tibble()))
  empty_data <- bsef(as.Date("2014-09-20"), asset_class = "IR")
  expect_true(identical(empty_data, tibble::tibble()))
})

Try the dataonderivatives package in your browser

Any scripts or data that you put into this service are public.

dataonderivatives documentation built on Jan. 4, 2022, 5:07 p.m.