test_make_struct_jd

 Test script for function make_struct_jd

 by J. Decker (CEA-IRFM) <joan.decker@cea.fr> and Y.Peysson (CEA-IRFM) <yves.peysson@cea.fr>

0001 function test_make_struct_jd
0002 %
0003 % Test script for function make_struct_jd
0004 %
0005 % by J. Decker (CEA-IRFM) <joan.decker@cea.fr> and Y.Peysson (CEA-IRFM) <yves.peysson@cea.fr>
0006 %
0007 display_mode = 1;
0008 c = 2;
0009 d = 1;
0010 %
0011 disp('test of the function make_struct_jd');
0012 disp(' ');
0013 %
0014 [a,b] = testfun(c,d);
0015 %
0016 disp(['Direct calculation : a = ',num2str(a),'; b = ',num2str(b)]);
0017 disp(' ');
0018 %
0019 loadstruct = '';
0020 [a,b] = make_struct_jd(loadstruct,display_mode,'testfun',c,d);
0021 disp(['Empty loadstruct : a = ',num2str(a),'; b = ',num2str(b)]);
0022 %
0023 loadstruct.testfun = '';
0024 [a,b] = make_struct_jd(loadstruct,display_mode,'testfun',c,d);
0025 disp(['Empty loadstruct.testfun : a = ',num2str(a),'; b = ',num2str(b)]);
0026 %
0027 loadstruct.testfun.a = a;
0028 loadstruct.testfun.b = b;
0029 [a,b] = make_struct_jd(loadstruct,display_mode,'testfun',c,d);
0030 disp(['Filled loadstruct.testfun : a = ',num2str(a),'; b = ',num2str(b)]);
0031 %
0032 end
0033 %
0034 
0035