Test audit

devtools/test/absconvgaussTest.m

@@ -1,9 +1,11 @@
+absconvgaussTest0();
+
+
+function absconvgaussTest0()
 %ABSCONVGAUSSTEST
 %
 % This file tests the absconvgauss routine
 
-clearvars; close all;
-addpaths_loc();
 a = 0.75;
 
 b = -0.75;
@@ -46,6 +48,11 @@
     assert(min(errsg) < 1e-6);
 end
 
+
+
+end
+
+
 function [d,d2] = acgder(x,a,b,h)
 [~,d,d2] = chnk.spcl.absconvgauss(x,a,b,h);
 end

devtools/test/adapgausswtsTest.m

@@ -1,16 +1,17 @@
+adapgausswtsTest0();
+
+
+function adapgausswtsTest0()
 
 %ADAPGAUSSWTSTEST
 %
 % define geometry and test adaptive integration routine
 
-clearvars; close all;
 iseed = 8675309;
 rng(iseed);
 
 zk = randn() + 1i*randn();
 
-addpaths_loc();
-
 cparams = [];
 cparams.eps = 1.0e-10;
 cparams.nover = 2;
@@ -116,3 +117,8 @@
 matcomp = mat1(istart:iend,jstart:jend);
 
 assert(norm(matcomp-mat,'inf') < 1e-11);
+
+
+end
+
+

devtools/test/arclengthfunTest.m

@@ -1,11 +1,13 @@
+arclengthfunTest0();
+
+
+function arclengthfunTest0()
 %ARCLENGTHFUNTEST tests the arclengthfun routine for computing distance
 % along length of curve
 % 
 
-clearvars; close all;
 seed = 8675309;
 rng(seed);
-addpaths_loc();
 
 % geometry parameters and construction
 
@@ -33,4 +35,9 @@
 [s, nchs, ~] = arclengthfun(chnkrtotal);
 
 assert(norm(s(:,1:nchs(1)) - ts) < 1e-12);
-assert(norm(s(:,nchs(1)+1:end) - rfac*ts) < 1e-12);
+assert(norm(s(:,nchs(1)+1:end) - rfac*ts) < 1e-12);
+
+
+end
+
+