tests/testthat/test-ncep2.R

In AustralianAntarcticDivision/raadfiles: File Database Management for 'raadtools'

context("ncep2")

test_that("NCEP2 files good", {
    skip_if_not(!is.null(get_raad_data_roots()))
    skip_if_not(!is.null(getOption("raadfiles.database.status")))
    skip_on_ci()
    uwnd <- ncep2_uwnd_6hr_files()
    uwnd %>% expect_s3_class("tbl_df") %>% expect_named(c("date", "fullname", "root"))
    expect_true(inherits(uwnd$date, "POSIXct"))
    expect_true(all(grepl("uwnd", basename(uwnd$fullname))))
    vwnd <- ncep2_vwnd_6hr_files()
    expect_true(all(grepl("vwnd", basename(vwnd$fullname))))
})