function OK = mkvar_test
%mkvar_test  test for mkvar
%
%See also: mkvar

isequal(mkvar('1#','_','r'),'x_' )
isequal(mkvar('1#','_','a'),'x1_')
isequal(mkvar({'1#'},'_','r'),{'x_'})
isequal(mkvar({'1#'},'_','a'),{'x1_'})

isequal(mkvar(['1#';'2@'],'_','r'),['x_';'x_'])
isequal(mkvar(['1#';'2@'],'_','a'),['x1_';'x2_'])
isequal(mkvar(cellstr(['1#';'2@']),'_','r'),{'x_','x_'}')
isequal(mkvar(cellstr(['1#';'2@']),'_','a'),{'x1_','x2_'}')
