94 lines
2.0 KiB
Matlab
94 lines
2.0 KiB
Matlab
%% This code will check the BSM class code in a very basic way.
|
|
%% create an instance
|
|
B=BSM;
|
|
%%
|
|
clear B
|
|
try
|
|
B=BSM('type',3,'Acfl',[],'SPMs'); %#ok<*NASGU> %will create an error
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:getval:ReadBeyondEndInput')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME);
|
|
end
|
|
end
|
|
%%
|
|
clear B
|
|
B=BSM('type',1,'Acfl',[],'SPMs',{});
|
|
%% set SPMs validity check
|
|
B.SPMs=''; %should produce instructions on how to set SPMs
|
|
B.SPMs={'ui'}; %get input from the user
|
|
tmp=B.SPMs; %store for future use
|
|
%B.SPMs={'ui'}; %calling it again will allow me to edit the list
|
|
B.SPMs={}; %clear out SPMs
|
|
try
|
|
B.SPMs={'SPM.mat';'onzin.mat'}; %provides an error if file does not exist
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:SetSPMs:FileNotFound')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME)
|
|
end
|
|
end
|
|
B.SPMs=tmp;
|
|
%% set Type check
|
|
try
|
|
B.Type='onzin'; %gives an error
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:Type:invalid')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME)
|
|
end
|
|
end
|
|
%%
|
|
try
|
|
B.Type=0; %gives an error
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:Type:invalid')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME)
|
|
end
|
|
end
|
|
%%
|
|
B.Type=1; % correct call
|
|
%% set Acfl check
|
|
try
|
|
B.Acfl=0;
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:Acfl:invalid')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME)
|
|
end
|
|
end
|
|
%%
|
|
try
|
|
B.Acfl=-5;
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:Acfl:invalid')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME)
|
|
end
|
|
end
|
|
%%
|
|
try
|
|
B.Acfl='test';
|
|
catch ME
|
|
if strcmpi(ME.identifier,'BSM:Acfl:invalid')
|
|
disp('error properly handled')
|
|
disp(ME);
|
|
else
|
|
rethrow(ME)
|
|
end
|
|
end
|
|
%%
|
|
B.Acfl=[]; |