tests/testthat/test-get_total_fund_value.R

test_that("get_total_fund_value() is numeric and greater than 30billion for certain date", {
  value_date <- "03-28-2019"
  total_fund_value <- get_total_fund_value(value_date)

  expect_equal(as.character(lapply(total_fund_value, class)), "numeric")
  expect_true(total_fund_value > 30000000000)
})
AZASRS/AZASRS documentation built on Sept. 30, 2020, 9:26 p.m.