update tests

Author: Alexander-Barth

README.md

@@ -46,7 +46,7 @@ ds_sub = @select(ds, time == DateTime(2001,1,1)
     && 7 <= longitude <= 11
     && 42.3 <= latitude <= 44.5)
 
-# save selection as NetCDF file
+# save selection as a NetCDF file
 NCDataset("$(dataset_id)_selection.nc","c") do ds_nc
     write(ds_nc,ds_sub)
 end

test/runtests.jl

@@ -22,18 +22,18 @@ using CommonDataModel: iswritable, attribnames, parentdataset
     close(ds)
 
     ds = NCDataset(nczarr_name)
-    ds2 = ZarrDataset(fname)
+    dsz = ZarrDataset(fname)
 
-    @test Set(dimnames(ds2)) == Set(dimnames(ds))
+    @test Set(dimnames(dsz)) == Set(dimnames(ds))
 
     for (name,len) in ds.dim
-        @test ds2.dim[name] == len
+        @test dsz.dim[name] == len
     end
 
     for (varname,v) in ds
-        @test haskey(ds2,varname)
+        @test haskey(dsz,varname)
 
-        v2 = ds2[varname]
+        v2 = dsz[varname]
         @test Array(v2) == Array(v)
 
         for (attribname,attribval) in v.attrib
@@ -42,18 +42,23 @@ using CommonDataModel: iswritable, attribnames, parentdataset
     end
 
     for (attribname,attribval) in ds.attrib
-        @test ds2.attrib[attribname] == attribval
+        @test dsz.attrib[attribname] == attribval
     end
 
     io = IOBuffer()
-    show(io,ds)
+    show(io,dsz)
     str = String(take!(io))
     @test occursin("title",str)
 
-    @test !iswritable(ds)
-    @test "title" in attribnames(ds)
-    @test isnothing(parentdataset(ds))
+    @test !iswritable(dsz)
+    @test "title" in attribnames(dsz)
+    @test isnothing(parentdataset(dsz))
 
+    zvar = ZarrDataset(fname) do ds3
+        Array(ds3["var"])
+    end
+
+    @test zvar == Array(ds["var"])
     close(ds)
-    close(ds2)
+    close(dsz)
 end