[test] format test script, addpath in ci script

Author: fangq

test/run_redbird_test.m

@@ -37,14 +37,13 @@ function run_redbird_test(tests)
     tests = {'util', 'jac', 'prop', 'mesh', 'forward', 'solver', 'recon'};
 end
 
-global RB_FAIL RB_TOTAL;
+global RB_FAIL RB_TOTAL
 RB_FAIL = 0;
 RB_TOTAL = 0;
 
 if (~exist('rbrun', 'file'))
-    addpath(fullfile(fileparts(mfilename('fullpath')), '..', 'matlab'));
+    addpath([fileparts(which(mfilename)) filesep '..' filesep 'matlab']);
 end
-addpath(fileparts(mfilename('fullpath')));
 
 bar = char(ones(1, 79) * 61);
 

test/test_redbird.m

@@ -22,11 +22,19 @@
 % -- this function is part of Redbird-m toolbox
 %
 
-global RB_RTOL RB_ATOL RB_FAIL RB_TOTAL;
-if isempty(RB_RTOL); RB_RTOL = 1e-9; end
-if isempty(RB_ATOL); RB_ATOL = 1e-12; end
-if isempty(RB_FAIL); RB_FAIL = 0; end
-if isempty(RB_TOTAL); RB_TOTAL = 0; end
+global RB_RTOL RB_ATOL RB_FAIL RB_TOTAL
+if isempty(RB_RTOL)
+    RB_RTOL = 1e-9;
+end
+if isempty(RB_ATOL)
+    RB_ATOL = 1e-12;
+end
+if isempty(RB_FAIL)
+    RB_FAIL = 0;
+end
+if isempty(RB_TOTAL)
+    RB_TOTAL = 0;
+end
 
 RB_TOTAL = RB_TOTAL + 1;
 
@@ -39,15 +47,15 @@
     end
     pass = threw;
     report(testname, pass, 'expected an error');
-    return;
+    return
 end
 
 try
     if (ischar(expected) && strcmp(expected, 'noerror'))
         fhandle(varargin{:});
         pass = true;
         report(testname, pass, 'no error');
-        return;
+        return
     end
     out = fhandle(varargin{:});
     [pass, msg] = compare(out, expected, RB_RTOL, RB_ATOL);
@@ -69,19 +77,19 @@
     catch err
         why = sprintf('predicate threw: %s', err.message);
     end
-    return;
+    return
 end
 if isnumeric(expected) || islogical(expected)
     if ~isequal(size(actual), size(expected))
         why = sprintf('size mismatch: got [%s], expected [%s]', ...
                       sprintf('%d ', size(actual)), sprintf('%d ', size(expected)));
-        return;
+        return
     end
     a = double(actual(:));
     e = double(expected(:));
     if any(isnan(a) ~= isnan(e))
         why = 'NaN pattern mismatch';
-        return;
+        return
     end
     a(isnan(a)) = 0;
     e(isnan(e)) = 0;
@@ -94,54 +102,54 @@
         why = sprintf('numerical mismatch at idx %d: |%g-%g|=%g > %g', ...
                       bad, a(bad), e(bad), diff(bad), tol(max(numel(tol), 1)));
     end
-    return;
+    return
 end
 if ischar(expected)
     ok = ischar(actual) && strcmp(actual, expected);
     if ~ok
         why = 'string mismatch';
     end
-    return;
+    return
 end
 if iscell(expected)
     if ~iscell(actual) || ~isequal(size(actual), size(expected))
         why = 'cell shape mismatch';
-        return;
+        return
     end
     for k = 1:numel(expected)
         [ok2, why2] = compare(actual{k}, expected{k}, rtol, atol);
         if ~ok2
             why = sprintf('cell{%d}: %s', k, why2);
-            return;
+            return
         end
     end
     ok = true;
-    return;
+    return
 end
 if isstruct(expected)
     if ~isstruct(actual)
         why = 'expected struct';
-        return;
+        return
     end
     fn = fieldnames(expected);
     for k = 1:numel(fn)
         if ~isfield(actual, fn{k})
             why = sprintf('missing field %s', fn{k});
-            return;
+            return
         end
         [ok2, why2] = compare(actual.(fn{k}), expected.(fn{k}), rtol, atol);
         if ~ok2
             why = sprintf('field %s: %s', fn{k}, why2);
-            return;
+            return
         end
     end
     ok = true;
-    return;
+    return
 end
 why = sprintf('unsupported expected type %s', class(expected));
 
 function report(testname, pass, msg)
-global RB_FAIL;
+global RB_FAIL
 if pass
     fprintf(1, 'Testing %s: ok\n', testname);
 else