function test_plist_mfind()

% Test the mfind function of plist class.
% 
% M Hueller 26-11-09
% 
% $Id: test_plist_mfind.m,v 1.1 2009/11/26 14:03:48 mauro Exp $
% 

% Make some parameters

p1 = param('a', 1);
p2 = param('b', 2);
p3 = param('c', 3);
p4 = param('a', 4);

% make plists
pl1 = plist([p1 p2]);
pl2 = plist(p3);
pl3 = plist([p2 p4]);

% mfind with one argument
p1_f = mfind(pl1, 'a')
p2_f = mfind(pl1, 'b')
p3_f = mfind(pl1, 'c')

% mfind with more than one argument
p1_f = mfind(pl1, 'a', 'b')
p2_f = mfind(pl1, 'b', 'c')
p3_f = mfind(pl1, 'a', 'a')
p4_f = mfind(pl2, 'a', 'a')
p5_f = mfind(pl2, 'b', 'a', 'c')
p6_f = mfind(pl2, 'c')
p7_f = mfind(pl3, 'a', 'b', 'c')
p8_f = mfind(pl3, 'b', 'a', 'c')
p9_f = mfind(pl3, 'b', 'd')



% END