clear all;

s1 = specwin('Hanning', 100);

xmlfile = 'specwin.xml';
save(s1, xmlfile)

% load
s2 = specwin(xmlfile);

if s1 ~= s2
  error('### specwins are not the same')
end
