test_all.m

function OK = test_all
% function OK = test_all
%
% function calling all tests and printing diagnostics.  
% should be called after major changes. 
%
% the called tests should output some information, that can be
% interpreted. The called tests should not break with an error, such that
% this routine will consecutively perform all tests, even if a failed
% test occurs.

% Bernard Haasdonk 20.8.2007

test_names = {'test_basisgen_init',...
              'test_cacheable_object', ...
              'test_matlab_convdiff',...
              'test_checkpointing',...
              'test_data_tree',...
              'test_ei_detailed',...
              'test_fail',...
              'test_gradient_approx',...
              'test_gradient_approx_matrix', ...
              'test_indexed_node',...
              'test_ldgfunc', ...
              'test_ldg_derivative',...
              'test_ldg_orthogonality', ...
              'test_lebesgue', ...
              'test_linear_convection',...
              'test_matlab_convdiff',...
              'test_orthonormalize',...
              'test_p_part',...
              'test_porsche',...
              'test_power_vector2',...
              'test_rb_basisgen', ...
              'test_rb_lin_evol', ...
              'test_rb_local_ext', ...
              'test_rb_richards_fv', ...
              'test_stochastic_assessment',...
              'test_subgrid_operators',...
              'test_two_phase_datafunc',...
              'test_twophase_jacobian',...
              'test_xpart_map'};
%             'test_fakeMPI_basisgen',...

OKs = zeros(1,length(test_names));

for i = 1:length(test_names);
  disp('-----------------------------------------------------------')
  disp(['testing ', test_names{i}]);
  try
    OKs(i) = feval(test_names{i});
  catch
    warning(['test ',test_names{i},' failed!']);
    OKs(i) = 0;
  end;
  if OKs(i)==0
    disp(' => failed')
  else    
    disp(' => success')
  end;
end;

disp('-----------------------------------------------------------')
disp('test results:');
resstr = {'failed', 'OK'};
for i = 1:length(test_names);
  disp([test_names{i},' => ' resstr{OKs(i)+1}]);
end;
disp('-----------------------------------------------------------')

OK = all(OKs);



%| \docupdate