Waveform Database Software Package (WFDB) for MATLAB and Octave 0.10.0
(773 bytes)
function [tests,pass,perf]=test_rdmat(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=['wfdb2mat(''mitdb/200'');' ...
'[tm,signal,Fs,siginfo]=rdmat(''200m'');'...
'[signal2,Fs2,tm2]=rdsamp(''200m'');' ...
'if(sum(abs(signal-signal2)) ~=0);error(''data reading failed'');end' ...
];
test_string={test1_str};
clean_up={['delete([pwd filesep ''mitdb'' filesep ''*'']);' ...
'if(exist([pwd filesep ''mitdb''],''dir''));rmdir([pwd filesep ''mitdb''],''s'');end;' ...
'delete([pwd filesep ''200m*'']);' ...
]};
[tests,pass,perf]=test_wrapper(test_string,clean_up,verbose);