Skip to content
Snippets Groups Projects
Commit 95b5435d authored by Blodgett, David L.'s avatar Blodgett, David L.
Browse files

missing nc_close

parent 62f3a48a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
tests/testthat/test_check_ncdf.R
+ 2
− 1
View file @ 95b5435d
...@@ -92,9 +92,10 @@ test_that("errors", { ...@@ -92,9 +92,10 @@ test_that("errors", {
nc_file <- write_geometry(nc_file=tempfile(), geom_data = pointData) nc_file <- write_geometry(nc_file=tempfile(), geom_data = pointData)
nc <- nc_open(nc_file, write = TRUE) nc <- nc_open(nc_file, write = TRUE)
ncatt_put(nc, 0,"Conventions", "garbage") 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) 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) nc <- open.nc(nc_file, write = TRUE)
RNetCDF::att.put.nc(nc, "NC_GLOBAL", "Conventions", "NC_CHAR", "CF-1.8") 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) RNetCDF::att.delete.nc(nc, pkg.env$geom_container_var_name, pkg.env$geom_type_attr_name)
......
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