tests/testthat/test_missing_file.R

In oce: Analysis of Oceanographic Data

library(oce)
test_that("all read() functions give similar errors for missing files",
    {
        msg <- "cannot find file 'no such file'"
        expect_error(read.adp("no such file"), msg)
        expect_error(read.adp.ad2cp("no such file"), msg)
        expect_error(read.adp.rdi("no such file"), msg)
        expect_error(read.adp.nortek("no such file"), msg)
        expect_error(read.adp.sontek("no such file"), msg)
        expect_error(read.adp.sontek.serial("no such file"), msg)
        expect_error(read.adv("no such file"), msg)
        expect_error(read.adv.nortek("no such file"), msg)
        expect_error(read.adv.sontek.serial("no such file"), msg)
        expect_error(read.adv.sontek.adr("no such file"), msg)
        expect_error(read.adv.sontek.text("no such file"), msg)
        expect_error(read.amsr("no such file"), msg)
        expect_error(read.aquadopp("no such file"), msg)
        expect_error(read.aquadoppProfiler("no such file"), msg)
        expect_error(read.aquadoppHR("no such file"), msg)
        expect_error(read.argo("no such file"), msg)
        expect_error(read.argo.copernicus("no such file"), msg)
        expect_error(read.bremen("no such file"), msg)
        expect_error(read.cm("no such file"), msg)
        expect_error(read.coastline("no such file"), msg)
        expect_error(read.coastline.shapefile("no such file"), msg)
        expect_error(read.coastline.openstreetmap("no such file"), msg)
        expect_error(read.ctd("no such file"), msg)
        expect_error(read.ctd.aml("no such file"), msg)
        expect_error(read.ctd.sbe("no such file"), msg)
        expect_error(read.ctd.ssda("no such file"), msg)
        expect_error(read.ctd.woce("no such file"), msg)
        expect_error(read.ctd.woce.other("no such file"), msg)
        expect_error(read.ctd.odf("no such file"), msg)
        expect_error(read.ctd.odv("no such file"), msg)
        expect_error(read.ctd.itp("no such file"), msg)
        expect_error(read.echosounder("no such file"), msg)
        expect_error(read.g1sst("no such file"), msg)
        expect_error(read.gps("no such file"), msg)
        expect_error(read.index("no such file"), msg)
        expect_error(read.landsat("no such file"), msg)
        expect_error(read.lisst("no such file"), msg)
        expect_error(read.lobo("no such file"), msg)
        expect_error(read.met("no such file"), msg)
        expect_error(read.topo("no such file"), msg)
        expect_error(read.netcdf("no such file"), msg)
        expect_error(read.oce("no such file"), msg)
        expect_error(read.odf("no such file"), msg)
        expect_error(read.rsk("no such file"), msg)
        expect_error(read.sealevel("no such file"), msg)
        expect_error(read.section("no such file"), msg)
        expect_error(read.woa("no such file"), msg)
        expect_error(read.xbt("no such file"), msg)
        expect_error(read.xbt.edf("no such file"), msg)
        expect_error(read.xbt.noaa1("no such file"), msg)
    })