clear all;


p1 = param('a', 'val');
p2 = param('a', 2);
p3 = param('a', specwin('Hanning', 20));

pl = plist([p1 p2 p3]);

% Save
xmlfile = 'plist.xml';
save(pl, xmlfile);

% load
ql = plist(xmlfile);

if pl ~= ql
  error('### plists are not the same')
end