tests/test_qdm.R

In ClimDown: Climate Downscaling Library for Daily Climate Model Output

.setUp <- function() {
    ci.file <<- tempfile(fileext='.nc')
    ClimDown::ci.netcdf.wrapper('./tiny_gcm.nc', './tiny_obs.nc', ci.file, 'tasmax')
}

.tearDown <- function() {
    unlink(ci.file)
}

test.qdm <- function() {
    out.nc <- tempfile(fileext='.nc')
    options(
        calibration.end=as.POSIXct('1972-12-31', tz='GMT'),
        cend=as.POSIXct('1972-12-31', tz='GMT')
    )
    ClimDown::qdm.netcdf.wrapper('./tiny_obs.nc', ci.file, out.nc, 'tasmax')
    unlink(out.nc)
    checkTrue(TRUE)
}