quicwind/all_test.m

   1 function all_test
   2 %plot_mesh_test
   3 %block_example
   4 disp('running all tests')
   5 tol = 1e-9;
   6 err=[
   7     check(@adj_mat_test),...
   8     check(@fun2mat_test),...
   9     check(@mlap3z_test),...
  10     check(@adj_test),...
  11     check(@mass_cons_int_test),...
  12     check(@poisson_fft3z_test),...
  13     check(@wind2flux_test),...
  14     check(@mat_wind_flux_div_test),...
  15     check(@mat_gen_wind_flux_div_test),...
  16     check(@mass_cons_flux_test),...
  17     check(@mat_mul_v_test),...
  18     check(@multigrid_2d_test)
  19     ];
  20 max_err=max(err)
  21 if max_err > tol,
  22     warning(sprintf('error is %s too large for tolerance %s',max_err,tol))
  23 else
  24     disp('all tests OK'),
  25 end
  26     function err=check(f)
  27         err=f();
  28         if abs(err)>tol,
  29             warning(sprintf('error is %s too large for tolerance %s',err,tol))
  30         end
  31     end
  32 end