# list_volume_funding --------------------------------------------------------- test_that("list_volume_funding returns data.frame or is NULL", { expect_true((is.null(list_volume_funding()) || ("data.frame" %in% class(list_volume_funding())))) }) test_that("list_volume_funding rejects bad input parameters", { expect_error(list_volume_funding(vol_id = "a")) expect_error(list_volume_funding(vol_id = c(1,2))) expect_error(list_volume_funding(vol_id = TRUE)) expect_error(list_volume_funding(vol_id = list(a=1, b=2))) expect_error(list_volume_funding(vol_id = -1)) expect_error(list_volume_funding(vb = -1)) expect_error(list_volume_funding(vb = 3)) expect_error(list_volume_funding(vb = "a")) expect_error(list_volume_funding(vb = list(a=1, b=2))) }) #