function [ok] = all_ok(quick)
if nargin < 1
quick = true;
end
test_path;
ok = true;
t0 = cputime;
ok = ok & one_ok('affine_ok_box');
ok = ok & one_ok('blkdiag_mul_ok');
ok = ok & one_ok('blkdiag_mul_t_ok');
ok = ok & one_ok('kuhn_tucker_ok');
ok = ok & one_ok('newton_step_ok');
ok = ok & one_ok('nonlinear_ok_simple');
ok = ok & one_ok('sumsq_grad_ok');
ok = ok & one_ok('sumsq_hes_ok');
ok = ok & one_ok('sumsq_obj_ok');
ok = ok & one_ok('tridiag_solve_ok');
if ~ quick
ok = ok & one_ok('nonlinear_ok_box');
ok = ok & one_ok('nonlinear_ok_sin');
end
%
t1 = cputime;
if ok
disp(['All tests passed: cputime (secs) = ', num2str(t1-t0)]);
else
disp(['One or more tests failed: cputime (secs) = ', num2str(t1-t0)]);
end
return
end
function [ok] = one_ok(name)
ok = feval(name);
if ok
['Ok: ', name ]
else
['Error: ', name ]
end
return
end