Maintenance scheduled for Thursday, October 22nd at 15:00 MDT. Expected downtime <1 hour.

Commit 95b5435d authored by Blodgett, David L.'s avatar Blodgett, David L.

missing nc_close

parent 62f3a48a
......@@ -92,9 +92,10 @@ test_that("errors", {
nc_file <- write_geometry(nc_file=tempfile(), geom_data = pointData)
nc <- nc_open(nc_file, write = TRUE)
ncatt_put(nc, 0,"Conventions", "garbage")
expect_warning(ncdfgeom:::check_netcdf(nc_file), 'File does not advertise CF conventions, unexpected behavior may result.')
nc_close(nc)
expect_warning(ncdfgeom:::check_netcdf(nc_file), 'File does not advertise CF conventions, unexpected behavior may result.')
nc <- open.nc(nc_file, write = TRUE)
RNetCDF::att.put.nc(nc, "NC_GLOBAL", "Conventions", "NC_CHAR", "CF-1.8")
RNetCDF::att.delete.nc(nc, pkg.env$geom_container_var_name, pkg.env$geom_type_attr_name)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment