Waveform Database Software Package (WFDB) for MATLAB and Octave 0.10.0
(481 bytes)
function [tests,pass,perf]=test_sqrs(varargin)
inputs={'verbose'};
verbose=0;
for n=1:nargin
if(~isempty(varargin{n}))
eval([inputs{n} '=varargin{n};']);
end
end
%Test the examples
test_string={'sqrs(''challenge/2013/set-a/a01'',[],1000);'};
clean_up={['delete([pwd filesep ''challenge'' filesep ''2013'' filesep ''set-a'' filesep ''*'']);' ...
'rmdir([pwd filesep ''challenge''],''s'')']};
[tests,pass,perf]=test_wrapper(test_string,clean_up,verbose);