tests/testthat/test_reanalysis_sources.R

In AustralianAntarcticDivision/blueant: Antarctic and Southern Ocean Environmental Data Sources

context("reanalysis data sources")
test_that("NCEP2 source works",{
    src <- sources_reanalysis()
    ## default to monthly
    expect_equal(nrow(src), 3)
    expect_identical(src$name, c("NCEP-DOE Reanalysis 2 monthly averages", "NCEP-DOE Reanalysis 1 monthly averages", "CCMP Wind Product V2"))
    ## can have 6h or daily, too
    src <- sources_reanalysis("NCEP-DOE Reanalysis 2",time_resolutions=c("month","day","6h"))
    expect_equal(nrow(src),3)
    expect_error(sources_reanalysis("NCEP-DOE Reanalysis 2",time_resolutions="monkey"))
    expect_equal(nrow(sources_reanalysis("monkey")),0) ## nothing matching
})