diff main/netcdf/inst/test_netcdf.m @ 11985:0ac51d6aa20e octave-forge

restructure test (1)
author abarth93
date Mon, 29 Jul 2013 19:21:36 +0000
parents ff60a97891c9
children 2f62d37d5abc
line wrap: on
line diff
--- a/main/netcdf/inst/test_netcdf.m	Mon Jul 29 19:03:05 2013 +0000
+++ b/main/netcdf/inst/test_netcdf.m	Mon Jul 29 19:21:36 2013 +0000
@@ -1,7 +1,12 @@
+function test_netcdf()
+
 import_netcdf
 
+test_netcdf_constant
+
 libver = netcdf.inqLibVers();
 
+
 fname = [tempname '-octave-netcdf.nc'];
 
 ncid = netcdf.create(fname,'NC_CLOBBER');
@@ -10,24 +15,7 @@
 unlimdimIDs = netcdf.inqUnlimDims(ncid);
 assert(isempty(unlimdimIDs));
 
-names = netcdf.getConstantNames();
-assert(any(strcmp(names,'NC_WRITE')));
 
-assert(netcdf.getConstant('NC_NOWRITE') == 0)
-assert(netcdf.getConstant('NC_WRITE') == 1)
-
-assert(netcdf.getConstant('NC_64BIT_OFFSET') == ...
-       netcdf.getConstant('64BIT_OFFSET'))
-
-assert(netcdf.getConstant('NC_64BIT_OFFSET') == ...
-       netcdf.getConstant('64bit_offset'))
-
-assert(isa(netcdf.getConstant('fill_byte'),'int8'))
-assert(isa(netcdf.getConstant('fill_ubyte'),'uint8'))
-assert(isa(netcdf.getConstant('fill_float'),'single'))
-
-
-netcdf.getConstantNames();
 
 n = 10;
 m = 5;