function [tests,pass,perf]=test_tach(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={['[hr]=tach(''challenge/2013/set-a/a01'',''fqrs'');' ... 'plot(hr);grid on;hold on;close all']}; [tests,pass,perf]=test_wrapper(test_string,[],verbose);