function OK = swan_io_spectrum_test
%swan_io_spectrum_test tets for swan_io_spectrum
%
%See also: swan_io_spectrum

% 1D
i=1;
specfile{i}                 = '.\slancur\a33cur01.spc';
D0(i).mxc                   = 13;
D0(i).myc                   = 1;
D0(i).dimension_of_spectrum = 1;
D0(i).number_of_quantities  = 3;

% 1D
i=2;
specfile{i}                 = '.\refrac\a11ref01.spc';
D0(i).mxc                   = 13;
D0(i).myc                   = 1;
D0(i).dimension_of_spectrum = 1;
D0(i).number_of_quantities  = 3;

flds = fieldnames(D0);
OK = [];
for i=1:length(specfile)
for j=1:length(flds)
    D(i) = swan_io_spectrum(specfile{i});
    fld = flds{i};
    OK(end+1) = D(i).(fld)==D0(i).(fld);
end
end



