function OK=noos_read_test
%noos_read_test

MTestCategory.Unit;
disp(['... running test:',mfilename])

n0(1).header = cell([1 0]);
n0(1).datenum = [452461 452461];
n0(1).value = [3 3];
n0(2).header = {'# 4' '# 5'};
n0(2).datenum = ones(1,4) * 452461;
n0(2).value = ones(1,4) * 7;
n0(3).header = {'# 8' '# 9' '# 10'};
n0(3).datenum = ones(1,6) * 452461;
n0(3).value = ones(1,6) * 12;

OK = isequal(n0,noos_read('noos0.txt'))

n1(1).header = {'# 1' '# 1'};
n1(1).datenum = [452461 452461];
n1(1).value = [3 3];
n1(2).header = {'# 4' '# 5'};
n1(2).datenum = ones(1,4) * 452461;
n1(2).value = ones(1,4) * 7;
n1(3).header = {'# 8' '# 9' '# 10'};
n1(3).datenum = ones(1,6) * 452461;
n1(3).value = ones(1,6) * 12;

OK = OK & isequal(n1,noos_read('noos1.txt'));