Waveform Database Software Package (WFDB) for MATLAB and Octave 0.10.0
(1,795 bytes)
function [tests,pass,perf]=test_wrann(varargin)
inputs={'verbose'};
verbose=0;
for n=1:nargin
if(~isempty(varargin{n}))
eval([inputs{n} '=varargin{n};']);
end
end
%Test the examples
test1_str=[ '[ann,type,subtype,chan,num]=rdann(''challenge/2013/set-a/a01'',''fqrs'');' ...
'wrann(''challenge/2013/set-a/a01'',''test'',ann,type,subtype,chan,num);' ...
'[ann,type,subtype,chan,num]=rdann(''challenge/2013/set-a/a01'',''fqrs'');' ...
'wrann(''challenge/2013/set-a/a01'',''test'',ann,type,subtype,chan,num);' ...
'[ann2,type2,subtype2,chan2,num2]=rdann(''challenge/2013/set-a/a01'',''test'',[],[],1);' ...
'err=sum(ann ~= ann2);'];
test2_str=[ '[ann,type,subtype,chan,num]=rdann(''mitdb/100'',''atr'');' ...
'wrann(''mitdb/100'',''test'',ann,type,subtype,chan,num);'];
%Test that comments are being written
test3_str=['[ann,type,subtype,chan,num,comments]=rdann(''afdb/04015'',''atr'');' ...
'wrann(''afdb/04015'',''test'',ann,type,subtype,chan,num,comments);' ...
'[ann2,type2,subtype2,chan2,num2, comments2]=rdann(''afdb/04015'',''test'');'...
'equal=strcmp([comments{:}],[comments2{:}]);' ...
'if(equal==0);error(''comments are incorrect'');end;' ];
test_string={test1_str,test2_str, test3_str};
clean_up={['delete([pwd filesep ''challenge'' filesep ''2013'' filesep ''set-a'' filesep ''*'']);' ...
'rmdir([pwd filesep ''challenge''],''s'');'], ...
['delete([pwd filesep ''mitdb'' filesep ''100'' filesep ''*'']);' ...
'rmdir([pwd filesep ''mitdb''],''s'');'] ...
['delete([pwd filesep ''afdb'' filesep ''*'']);' ...
'rmdir([pwd filesep ''afdb''],''s'');'], ...
};
[tests,pass,perf]=test_wrapper(test_string,clean_up,verbose);