clear all;

pl = plist('type', 'lowpass', 'Win', specwin('Kaiser', 10, 150), 'fs', 100, 'fc', 20);
f1 = mfir(pl);

xmlfile = 'mfir.xml';
save(f1, xmlfile);

% load
f2 = mfir(xmlfile);

if f1 ~= f2
  error('### mfir filters are not the same')
end