unit_test.m

基于matlab的面向对象的信号处理类库。主要应用于音频、语音信号的一些处理。内含简单的使用说明

function result = unit_test(title, expect_pass, testcode)
% UNIT_TEST Test whether a code executes as expected
%
% unit_test('eq', 1, '1==1') results in a pass
% unit_test('eq', 0, '0==1') results in an expected failure
% unit_test('eq', 1, '0==1') results in an unexpected failure
% unit_test('eq', 0, '1==1') results in an unexpected pass

% Inspired by Paul Kienzle's and Stefan van der Walt's octave unit tests


% $Id: unit_test.m 31 2004-07-28 10:46:46Z mairas $

global unitres;

%% Sanity check input parameters
if nargin < 3 | nargin > 4
  error('Function unit_test expects 3 or 4 parameters.');
end

if ~isstr(title)
  error('Expecting title (arg 1) to be a string.');
end

if ~isstr(testcode)
  error('Expecting testcode (arg 3) to be a string.');
end

if (expect_pass ~= 0 & expect_pass ~= 1)
  error('Expecting expect_pass (arg 2) to be 0 or 1.');
end

unitres.total = unitres.total + 1;

pass=0;
try
  foo=evalin('caller',[testcode ';']);
  pass=(all(all(foo))==1);
catch
  disp(lasterr);
  pass=0;
end

if expect_pass & pass
  unitres.pass = unitres.pass + 1;
  disp([title ' ok']);
elseif expect_pass & ~pass
  unitres.fail = unitres.fail + 1;
  disp([title ' FAIL']);
elseif ~expect_pass & pass
  unitres.upass = unitres.upass + 1;
elseif ~expect_pass & ~pass
  disp([title ' UPASS']);
  unitres.efail = unitres.efail + 1;
  disp([title ' ok']);
end