Mercurial > octave

changeset 28942:fc4bb4bd1d5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use '##' as lead-in for full-line comments. * condeig.m, mustBeMember.m, runge_kutta_interpolate.m, lsqnonneg.m, pqpnonneg.m, sqp.m, pkg.m, fplot.m, isosurface.m, __gnuplot_draw_axes__.m, profexport.m, bicgstab.m, factorial.m, movmad.m, movmax.m, movmean.m, movmedian.m, movmin.m, movprod.m, movstd.m, movsum.m, movvar.m, fA.m, fB.m, fC.m, one.m, two.m, df_vr.m, u_vr.m, myclass2.m, foo_subsref_subsasgn.m, Blork.m, CPrecedenceTester1.m, Cork.m, display.m, display.m, get.m, set.m, display.m, Sneetch.m, Snork.m, Spork.m, jit.tst, line-continue.tst, mk_bc_overloads_expected.m, arg_nest.m, no_closure.m, persistent_nest.m, recursive_nest.m, recursive_nest2.m, scope0.m, scope1.m, scope2.m, scope3.m, script_nest.m, script_nest_2.m, script_nest_script.m, script_nest_script_2.m, pkg.tst: Use '##' as lead-in for full-line comments.
author Rik <rik@octave.org>
date Thu, 15 Oct 2020 14:30:01 -0700
parents c06fb493b18e
children e3a337a57588
files scripts/linear-algebra/condeig.m scripts/miscellaneous/mustBeMember.m scripts/ode/private/runge_kutta_interpolate.m scripts/optimization/lsqnonneg.m scripts/optimization/pqpnonneg.m scripts/optimization/sqp.m scripts/pkg/pkg.m scripts/plot/draw/fplot.m scripts/plot/draw/isosurface.m scripts/plot/util/private/__gnuplot_draw_axes__.m scripts/profiler/profexport.m scripts/sparse/bicgstab.m scripts/specfun/factorial.m scripts/statistics/movmad.m scripts/statistics/movmax.m scripts/statistics/movmean.m scripts/statistics/movmedian.m scripts/statistics/movmin.m scripts/statistics/movprod.m scripts/statistics/movstd.m scripts/statistics/movsum.m scripts/statistics/movvar.m test/bug-35448/fA.m test/bug-35448/fB.m test/bug-35448/fC.m test/bug-36025/@testclass/one.m test/bug-36025/@testclass/two.m test/bug-38236/df_vr.m test/bug-38236/u_vr.m test/bug-58593/myclass2.m test/classdef/foo_subsref_subsasgn.m test/classes/@Blork/Blork.m test/classes/@CPrecedenceTester1/CPrecedenceTester1.m test/classes/@Cork/Cork.m test/classes/@Dork/display.m test/classes/@Gork/display.m test/classes/@Gork/get.m test/classes/@Gork/set.m test/classes/@Pork/display.m test/classes/@Sneetch/Sneetch.m test/classes/@Snork/Snork.m test/classes/@Spork/Spork.m test/jit.tst test/line-continue.tst test/mk_bc_overloads_expected.m test/nest/arg_nest.m test/nest/no_closure.m test/nest/persistent_nest.m test/nest/recursive_nest.m test/nest/recursive_nest2.m test/nest/scope0.m test/nest/scope1.m test/nest/scope2.m test/nest/scope3.m test/nest/script_nest.m test/nest/script_nest_2.m test/nest/script_nest_script.m test/nest/script_nest_script_2.m test/pkg/pkg.tst
diffstat 59 files changed, 160 insertions(+), 160 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/linear-algebra/condeig.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/linear-algebra/condeig.m	Thu Oct 15 14:30:01 2020 -0700
@@ -134,7 +134,7 @@
 %! assert (lambda, expected_lambda, 0.001);
 %! assert (c, expected_c, 0.001);
 
-# Test empty input
+## Test empty input
 %!assert (condeig ([]), [])
 
 ## Test input validation
--- a/scripts/miscellaneous/mustBeMember.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/miscellaneous/mustBeMember.m	Thu Oct 15 14:30:01 2020 -0700
@@ -53,8 +53,8 @@
       label = "input";
     endif
     n_bad = numel (find (tf));
-    # FIXME: Fancy inclusion of bad_val & valid values in the error message.
-    #        Probably use mat2str() in a try/catch for that.
+    ## FIXME: Fancy inclusion of bad_val & valid values in the error message.
+    ##        Probably use mat2str() in a try/catch for that.
     error ("%s must be one of the specified valid values; found %d elements that were not", ...
            label, n_bad);
   endif
--- a/scripts/ode/private/runge_kutta_interpolate.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/ode/private/runge_kutta_interpolate.m	Thu Oct 15 14:30:01 2020 -0700
@@ -60,12 +60,12 @@
 ## at the time t_out using 2nd order Hermite interpolation.
 function x_out = quadratic_interpolation (t, x, der, t_out)
 
-  # coefficients of the parabola
+  ## coefficients of the parabola
   a = -(x(:,1) - x(:,2) - der(:).*(t(1)-t(2))) / (t(1) - t(2))^2;
   b = der(:) - 2*t(1).*a;
   c = x(:,1) - a*t(1)^2 - b*t(1);
 
-  # evaluate in t_out
+  ## evaluate in t_out
   x_out = a*t_out.^2 + b*t_out + c;
 
 endfunction
--- a/scripts/optimization/lsqnonneg.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/optimization/lsqnonneg.m	Thu Oct 15 14:30:01 2020 -0700
@@ -237,7 +237,7 @@
 %! xnew = [0;0.6929];
 %! assert (lsqnonneg (C, d), xnew, 0.0001);
 
-# Test input validation
+## Test input validation
 %!error <Invalid call> lsqnonneg ()
 %!error <Invalid call> lsqnonneg (1)
 %!error <C .* must be numeric matrices> lsqnonneg ({1},2)
--- a/scripts/optimization/pqpnonneg.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/optimization/pqpnonneg.m	Thu Oct 15 14:30:01 2020 -0700
@@ -239,7 +239,7 @@
 %! d = rand (20, 1);
 %! assert (pqpnonneg (C'*C, -C'*d), lsqnonneg (C, d), 100*eps);
 
-# Test input validation
+## Test input validation
 %!error <Invalid call> pqpnonneg ()
 %!error <Invalid call> pqpnonneg (1)
 %!error <C .* must be numeric matrices> pqpnonneg ({1},2)
--- a/scripts/optimization/sqp.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/optimization/sqp.m	Thu Oct 15 14:30:01 2020 -0700
@@ -390,8 +390,8 @@
 
   info = 0;
   iter = 0;
-  # report ();  # Called with no arguments to initialize reporting
-  # report (iter, qp_iter, alpha, __sqp_nfun__, obj);
+  ## report ();  # Called with no arguments to initialize reporting
+  ## report (iter, qp_iter, alpha, __sqp_nfun__, obj);
 
   while (++iter < iter_max)
 
@@ -533,7 +533,7 @@
 
     A = A_new;
 
-    # report (iter, qp_iter, alpha, __sqp_nfun__, obj);
+    ## report (iter, qp_iter, alpha, __sqp_nfun__, obj);
 
   endwhile
 
--- a/scripts/pkg/pkg.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/pkg/pkg.m	Thu Oct 15 14:30:01 2020 -0700
@@ -406,7 +406,7 @@
 
   confirm_recursive_rmdir (false, "local");
 
-  # valid actions in alphabetical order
+  ## valid actions in alphabetical order
   available_actions = {"build", "describe", "global_list",  "install", ...
                        "list", "load", "local_list", "prefix", "rebuild", ...
                        "test", "uninstall", "unload", "update"};
--- a/scripts/plot/draw/fplot.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/plot/draw/fplot.m	Thu Oct 15 14:30:01 2020 -0700
@@ -228,7 +228,7 @@
     endif
     hl = plot (hax, x, y, fmt{:});
     if (isempty (get (hl(1), "displayname")))
-      # set displayname for legend if FMT didn't contain a name
+      ## Set displayname for legend if FMT did not contain a name.
       if (isvector (y))
         set (hl, "displayname", nam);
       else
@@ -238,7 +238,7 @@
         set (hl, {"displayname"}, nams(:));
       endif
     endif
-    # properties past as input arguments override other properties
+    ## Properties passed as input arguments override other properties.
     if (! isempty (prop_vals))
       set (hl, prop_vals{:});
     endif
--- a/scripts/plot/draw/isosurface.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/plot/draw/isosurface.m	Thu Oct 15 14:30:01 2020 -0700
@@ -168,7 +168,7 @@
     warning ("isosurface: triangulation is empty");
   endif
 
-  # remove faces for which at least one of the vertices is NaN
+  ## remove faces for which at least one of the vertices is NaN
   vert_nan = 1:size (fvc.vertices, 1);
   vert_nan(any (isnan (fvc.vertices), 2)) = NaN;
   fvc.faces = vert_nan(fvc.faces);
--- a/scripts/plot/util/private/__gnuplot_draw_axes__.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/plot/util/private/__gnuplot_draw_axes__.m	Thu Oct 15 14:30:01 2020 -0700
@@ -635,7 +635,7 @@
             titlespec{data_idx} = ['title "' tmp '"'];
             obj.displayname = tmpdispname;
             if (! isempty (findobj (obj.parent, "-property", "format", "-depth", 0)))
-              # Place phantom errorbar data for legend
+              ## Place phantom errorbar data for legend
               data{data_idx} = NaN (4,1);
               usingclause{data_idx} = sprintf ("record=1 using ($1):($2):($3):($4)");
               switch (get (obj.parent, "format"))
--- a/scripts/profiler/profexport.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/profiler/profexport.m	Thu Oct 15 14:30:01 2020 -0700
@@ -207,18 +207,18 @@
   template = __readTemplate ("hierarchical.html");
   entryTemplate = __readTemplate ("hierarchical_entry.html");
 
-  % Fill in basic data and parent breadcrumbs.
+  ## Fill in basic data and parent breadcrumbs.
   res = template;
   res = strrep (res, "%title", name);
   parentsStr = __hierarchicalParents (parents);
   res = strrep (res, "%parents", parentsStr);
 
-  % Set this page's counter and update parents struct with it.
+  ## Set this page's counter and update parents struct with it.
   mine = cnt++;
   parents{end}.cnt = mine;
   file = sprintf ("%s/hierarchy-%d.html", dir, mine);
 
-  % Sort children by time.
+  ## Sort children by time.
   times = -[ children.TotalTime ];
   [~, p] = sort (times);
   children = children(p);
--- a/scripts/sparse/bicgstab.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/sparse/bicgstab.m	Thu Oct 15 14:30:01 2020 -0700
@@ -213,7 +213,7 @@
   ## Check consistency and  type of A, M1, M2
   [Afun, M1fun, M2fun] =  __alltohandles__ (A, b, M1, M2, "bicgstab");
 
-  # Check if input tol are empty (set them to default if necessary)
+  ## Check if input tol are empty (set them to default if necessary)
   [tol, maxit, x0] = __default__input__ ({1e-06, min(rows(b), 20), ...
                     zeros(rows (b), 1)}, tol, maxit, x0);
 
--- a/scripts/specfun/factorial.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/specfun/factorial.m	Thu Oct 15 14:30:01 2020 -0700
@@ -53,9 +53,9 @@
   ## This doesn't seem particularly worth copying--for example uint8 would
   ## saturate for n > 5.  If desired, however, the following code could be
   ## uncommented.
-  # if (! isfloat (x))
-  #   x = cast (x, class (n));
-  # endif
+  ## if (! isfloat (x))
+  ##   x = cast (x, class (n));
+  ## endif
 
 endfunction
 
--- a/scripts/statistics/movmad.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movmad.m	Thu Oct 15 14:30:01 2020 -0700
@@ -140,7 +140,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([0.5; repmat(2/3,8,1); 0.5], movmad ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movmax.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movmax.m	Thu Oct 15 14:30:01 2020 -0700
@@ -141,7 +141,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([(2:10).'; 10], movmax ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movmean.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movmean.m	Thu Oct 15 14:30:01 2020 -0700
@@ -140,7 +140,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([1.5; (2:9).'; 9.5], movmean ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movmedian.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movmedian.m	Thu Oct 15 14:30:01 2020 -0700
@@ -140,7 +140,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([1.5; (2:9).'; 9.5], movmedian ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movmin.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movmin.m	Thu Oct 15 14:30:01 2020 -0700
@@ -141,7 +141,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([1; (1:9).'], movmin ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movprod.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movprod.m	Thu Oct 15 14:30:01 2020 -0700
@@ -141,7 +141,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([2; 6; 24; 60; 120; 210; 336; 504; 720; 90], movprod ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movstd.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movstd.m	Thu Oct 15 14:30:01 2020 -0700
@@ -167,7 +167,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([1/sqrt(2); ones(8,1); 1/sqrt(2)], movstd ((1:10).', 3), 1e-8)
 
 %!test <*56765>
--- a/scripts/statistics/movsum.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movsum.m	Thu Oct 15 14:30:01 2020 -0700
@@ -141,7 +141,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([(3:3:27).'; 19], movsum ((1:10).', 3))
 
 ## Test input validation
--- a/scripts/statistics/movvar.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/scripts/statistics/movvar.m	Thu Oct 15 14:30:01 2020 -0700
@@ -166,7 +166,7 @@
 
 
 ## FIXME: Need functional BIST tests
-# test for bug #55241
+## test for bug #55241
 %!assert ([0.5; ones(8,1); 0.5], movvar ((1:10).', 3))
 
 %!test <*56765>
--- a/test/bug-35448/fA.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-35448/fA.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# fA.m
+## fA.m
 function y = fA (x, f)
   global gfun
   if (nargin < 2)
--- a/test/bug-35448/fB.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-35448/fB.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# fB.m
+## fB.m
 function y = fB (x)
   y = x;
 endfunction
--- a/test/bug-35448/fC.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-35448/fC.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# fC.m
+## fC.m
 function y = fC (x)
   y = x;
 endfunction
--- a/test/bug-36025/@testclass/one.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-36025/@testclass/one.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-% function ONE return item "X"
+%% function ONE return item "X"
 
 function a = one (m)
   a = m.x;
--- a/test/bug-36025/@testclass/two.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-36025/@testclass/two.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-% function TWO returns item "Y"
+%% function TWO returns item "Y"
 
 function a = one (m)
   a = m.y;
--- a/test/bug-38236/df_vr.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-38236/df_vr.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,2 +1,2 @@
-# df_vr.m
+## df_vr.m
 vr = 7;
--- a/test/bug-38236/u_vr.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-38236/u_vr.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# u_vr.m
+## u_vr.m
 
 ## define and exectute "__demo__" once
 eval ("function __demo__ ();  df_vr;  v = vr * 2; endfunction");
--- a/test/bug-58593/myclass2.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/bug-58593/myclass2.m	Thu Oct 15 14:30:01 2020 -0700
@@ -13,16 +13,16 @@
       case '.'
         switch (S(1).subs)
         case 'data'
-          % Transform: obj.data --> obj.data_
+          %% Transform: obj.data --> obj.data_
           r = obj.data_;
           if (length (S) > 1)
             r = subsref (r, S(2:end));
           end
         case 'alldata'
-          % Transform: obj.data --> obj.data_(1:end)
-          % This statement should trigger *builtin* subsref *twice* (one
-          % for the evaluation of 'end', and the other for the whole rvalue).
-          % 'end' here is also builtin 'end'
+          %% Transform: obj.data --> obj.data_(1:end)
+          %% This statement should trigger *builtin* subsref *twice* (one
+          %% for the evaluation of 'end', and the other for the whole rvalue).
+          %% 'end' here is also builtin 'end'
           r = obj.data_(1:end);
 
           if (length (S) > 1)
@@ -32,7 +32,7 @@
           error ('Incorrect usage');
         end
       case '()'
-        % Transform: obj(index) --> obj.data_(index)
+        %% Transform: obj(index) --> obj.data_(index)
         r = subsref (obj.data_, S);
       otherwise
         error ('Incorrect usage');
@@ -44,25 +44,25 @@
       case '.'
         switch (S(1).subs)
         case 'data'
-          % Transform: obj.data --> obj.data_
+          %% Transform: obj.data --> obj.data_
           if (length (S)>1)
             B = subsasgn (obj.data_, S(2:end), B);
           end
           obj.data_ = B;
         case 'alldata'
-          % Transform: obj.data --> obj.data_(1:end)
+          %% Transform: obj.data --> obj.data_(1:end)
           if (length (S)>1)
             B = subsasgn (obj.data_(1:end), S(2:end), B);
           end
-          % This statement should trigger *builtin* subsref to evaluate 'end',
-          % then *builtin* subsasgn for the whole assignment expression
-          % 'end' here is also builtin 'end'
+          %% This statement should trigger *builtin* subsref to evaluate 'end',
+          %% then *builtin* subsasgn for the whole assignment expression
+          %% 'end' here is also builtin 'end'
           obj.data_(1:end) = B;
         otherwise
           error ('Incorrect usage');
         end
       case '()'
-        % Transform: obj(index) --> obj.data_(index)
+        %% Transform: obj(index) --> obj.data_(index)
         obj.data_ = subsasgn (obj.data_, S, B);
       otherwise
         error ('Incorrect usage');
@@ -70,7 +70,7 @@
     end
 
     function r = end (obj, k, n)
-      % We subtract 1 from the "real" end of obj.data_
+      %% We subtract 1 from the "real" end of obj.data_
       r = builtin ('end', obj.data_, k, n) - 1;
     end
   end
--- a/test/classdef/foo_subsref_subsasgn.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classdef/foo_subsref_subsasgn.m	Thu Oct 15 14:30:01 2020 -0700
@@ -31,7 +31,7 @@
           if (S(1).type == "()")
             varargout = {obj.x(S(1).subs{1})};
           elseif (S(1).type == "{}")
-            % Note in ML R2018b "x{1:3}" expects "nargout == 3".
+            %% Note in ML R2018b "x{1:3}" expects "nargout == 3".
             varargout = num2cell (obj.x(S(1).subs{1}));
           elseif (S(1).type == "." && S(1).subs == 'x')
             varargout = {obj.x};
@@ -40,7 +40,7 @@
               'foo_subsref_subsasgn: Invalid syntax');
           end
         case 2
-          % Note in ML R2018b "x(1)(1)" is not allowed.
+          %% Note in ML R2018b "x(1)(1)" is not allowed.
           if (S(1).type == "{}" && (S(2).type == "{}" || S(2).type == "()"))
             varargout = {obj.x(S(1).subs{1}, S(2).subs{1})};
           elseif (S(1).type == "." && S(1).subs == 'x' ...
@@ -68,7 +68,7 @@
               'foo_subsref_subsasgn: Invalid syntax');
           end
         case 2
-          % Note in ML R2018b "x(1)(1)" is not allowed.
+          %% Note in ML R2018b "x(1)(1)" is not allowed.
           if (S(1).type == "{}" && (S(2).type == "{}" || S(2).type == "()"))
             obj.x(S(1).subs{1}, S(2).subs{1}) = varargin{1};
           elseif (S(1).type == "." && S(1).subs == 'x' ...
--- a/test/classes/@Blork/Blork.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Blork/Blork.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function s = Blork (bleek)
-% Test class.
+%% Test class.
 
   if (nargin == 1 && isa (bleek, 'Blork'))
     s = bleek;
--- a/test/classes/@CPrecedenceTester1/CPrecedenceTester1.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@CPrecedenceTester1/CPrecedenceTester1.m	Thu Oct 15 14:30:01 2020 -0700
@@ -3,6 +3,6 @@
   x = struct ('useless_data', pi);
   x = class (x, 'CPrecedenceTester1');
 
-  % don't change anything as far as precedence is concerned
+  %% don't change anything as far as precedence is concerned
 
 end
--- a/test/classes/@Cork/Cork.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Cork/Cork.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function s = Cork (click)
-% Test class.
+%% Test class.
 
   if (nargin == 1 && isa (click, 'Cork'))
     s = click;
--- a/test/classes/@Dork/display.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Dork/display.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function display (s)
-%  Display the critical info for an amplifier
+%%  Display the critical info for an amplifier
 
    gick = get (s, 'gick');
    disp ([inputname(1),'.gick = ']);
--- a/test/classes/@Gork/display.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Gork/display.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function display (s)
-%  Display the critical info for a Gork.
+%%  Display the critical info for a Gork.
 
    dork_base = s.Dork
    %pork_base = s.Pork
--- a/test/classes/@Gork/get.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Gork/get.m	Thu Oct 15 14:30:01 2020 -0700
@@ -6,8 +6,8 @@
     case 'gark'
       v = s.gark;
     otherwise
-      % Note that get/set for multiple parents is hard.  We only do one
-      % branch of the parent tree just to test this stuff out.
+      %% Note that get/set for multiple parents is hard.  We only do one
+      %% branch of the parent tree just to test this stuff out.
       v = get (s.Dork,propName);
   end
 
--- a/test/classes/@Gork/set.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Gork/set.m	Thu Oct 15 14:30:01 2020 -0700
@@ -15,8 +15,8 @@
       case 'gark'
         s.gark = propValue;
       otherwise
-        % Note that get/set for multiple parents is hard.  We only do one
-        % branch of the parent tree just to test this stuff out.
+        %% Note that get/set for multiple parents is hard.  We only do one
+        %% branch of the parent tree just to test this stuff out.
         s.Dork = set (s.Dork, propName, propValue);
     end
   end
--- a/test/classes/@Pork/display.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Pork/display.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function display (s)
-%  Display the critical info for an amplifier
+%%  Display the critical info for an amplifier
 
    geek = get (s, 'geek');
    disp ([inputname(1),'.geek = ']);
--- a/test/classes/@Sneetch/Sneetch.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Sneetch/Sneetch.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function s = Sneetch (mcbean)
-% Test class: should produce error.
+%% Test class: should produce error.
 
   if (nargin == 1 && isa (mcbean, 'Sneetch'))
     s = mcbean;
--- a/test/classes/@Snork/Snork.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Snork/Snork.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function s = Snork (gick)
-% Test class.
+%% Test class.
 
   if (nargin == 1 && isa (gick, 'Snork'))
     s = gick;
--- a/test/classes/@Spork/Spork.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/classes/@Spork/Spork.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,5 +1,5 @@
 function s = Spork (geek)
-% Test class.
+%% Test class.
 
     if (nargin == 1 && isa (geek, 'Spork'))
       s = geek;
--- a/test/jit.tst	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/jit.tst	Thu Oct 15 14:30:01 2020 -0700
@@ -192,17 +192,17 @@
 %! assert (abs (result - 1/9) < 1e-5);
 %! assert (jit_failcnt, 0);
 
-# %!testif HAVE_LLVM
-# %! jit_failcnt (0);
-# %! temp = 1+1i;
-# %! nan = NaN;
-# %! while (1)
-# %!   temp = temp - 1i;
-# %!   temp = temp * nan;
-# %!   break;
-# %! endwhile
-# %! assert (imag (temp), 0);
-# %! assert (jit_failcnt, 0);
+## %!testif HAVE_LLVM
+## %! jit_failcnt (0);
+## %! temp = 1+1i;
+## %! nan = NaN;
+## %! while (1)
+## %!   temp = temp - 1i;
+## %!   temp = temp * nan;
+## %!   break;
+## %! endwhile
+## %! assert (imag (temp), 0);
+## %! assert (jit_failcnt, 0);
 
 %!testif HAVE_LLVM
 %! jit_failcnt (0);
@@ -217,15 +217,15 @@
 %! assert (imag (temp), 0);
 %! assert (jit_failcnt, 0);
 
-# %!testif HAVE_LLVM
-# %! jit_failcnt (0);
-# %! temp = 1+1i;
-# %! while (1)
-# %!   temp = temp * 5;
-# %!   break;
-# %! endwhile
-# %! assert (temp, 5+5i);
-# %! assert (jit_failcnt, 0);
+## %!testif HAVE_LLVM
+## %! jit_failcnt (0);
+## %! temp = 1+1i;
+## %! while (1)
+## %!   temp = temp * 5;
+## %!   break;
+## %! endwhile
+## %! assert (temp, 5+5i);
+## %! assert (jit_failcnt, 0);
 
 %!testif HAVE_LLVM
 %! jit_failcnt (0);
@@ -249,22 +249,22 @@
 %! assert (sum (mat) == total);
 %! assert (jit_failcnt, 0);
 
-# %!testif HAVE_LLVM
-# %! jit_failcnt (0);
-# %! nr = 1001;
-# %! mat = [3 1 5];
-# %! try
-# %!   for i = 1:nr
-# %!     if (i > 500)
-# %!       result = mat(100);
-# %!     else
-# %!       result = i;
-# %!     endif
-# %!   endfor
-# %! catch
-# %! end_try_catch
-# %! assert (result == 500);
-# %! assert (jit_failcnt, 0);
+## %!testif HAVE_LLVM
+## %! jit_failcnt (0);
+## %! nr = 1001;
+## %! mat = [3 1 5];
+## %! try
+## %!   for i = 1:nr
+## %!     if (i > 500)
+## %!       result = mat(100);
+## %!     else
+## %!       result = i;
+## %!     endif
+## %!   endfor
+## %! catch
+## %! end_try_catch
+## %! assert (result == 500);
+## %! assert (jit_failcnt, 0);
 
 %!function result = gen_test (n)
 %!  result = double (rand (1, n) > .01);
@@ -388,14 +388,14 @@
 %! endfor
 %!endfunction
 
-# %!testif HAVE_LLVM
-# %! jit_failcnt (0);
-# %! lasterr ("");
-# %! try
-# %!   test_divide ();
-# %! end_try_catch
-# %! assert (strcmp (lasterr (), "division by zero"));
-# %! assert (jit_failcnt, 0);
+## %!testif HAVE_LLVM
+## %! jit_failcnt (0);
+## %! lasterr ("");
+## %! try
+## %!   test_divide ();
+## %! end_try_catch
+## %! assert (strcmp (lasterr (), "division by zero"));
+## %! assert (jit_failcnt, 0);
 
 %!testif HAVE_LLVM
 %! jit_failcnt (0);
@@ -459,17 +459,17 @@
 %! assert (a == 9);
 %! assert (jit_failcnt, 0);
 
-# %!testif HAVE_LLVM
-# %! jit_failcnt (0);
-# %! num = 2;
-# %! a = zeros (1, num);
-# %! i = 1;
-# %! while i <= num
-# %!   a(i) = norm (eye (i));
-# %!   ++i;
-# %! endwhile
-# %! assert (a, ones (1, num));
-# %! assert (jit_failcnt, 0);
+## %!testif HAVE_LLVM
+## %! jit_failcnt (0);
+## %! num = 2;
+## %! a = zeros (1, num);
+## %! i = 1;
+## %! while i <= num
+## %!   a(i) = norm (eye (i));
+## %!   ++i;
+## %! endwhile
+## %! assert (a, ones (1, num));
+## %! assert (jit_failcnt, 0);
 
 %!function test_compute_idom ()
 %! while (li <= length (l1) && si <= length (s1))
@@ -583,14 +583,14 @@
 %! assert (id (1, 2), 1);
 %! assert (jit_failcnt, 0);
 
-# %!testif HAVE_LLVM
-# %! jit_failcnt (0);
-# %! lasterr ("");
-# %! try
-# %!   id ();
-# %! end_try_catch
-# %! assert (strncmp (lasterr (), "'x' undefined near", 18));
-# %! assert (jit_failcnt, 0);
+## %!testif HAVE_LLVM
+## %! jit_failcnt (0);
+## %! lasterr ("");
+## %! try
+## %!   id ();
+## %! end_try_catch
+## %! assert (strncmp (lasterr (), "'x' undefined near", 18));
+## %! assert (jit_failcnt, 0);
 
 ## Restore JIT settings
 %!testif HAVE_LLVM
--- a/test/line-continue.tst	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/line-continue.tst	Thu Oct 15 14:30:01 2020 -0700
@@ -61,7 +61,7 @@
 %!
 %!assert (f (), 1)
 
-# String continuation using '\'
+## String continuation using '\'
 %!assert (["abc\
 %! def"], "abc def")
 
--- a/test/mk_bc_overloads_expected.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/mk_bc_overloads_expected.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,9 +1,9 @@
-% this script is intended to be Matlab compatible
-% first, run the script
+%% this script is intended to be Matlab compatible
+%% first, run the script
 %
-%   ./build_bc_overloads_tests.sh overloads_only
+%%   ./build_bc_overloads_tests.sh overloads_only
 %
-% to generate the overloaded functions.
+%% to generate the overloaded functions.
 %
 ex.double = 1;
 ex.single = single (1);
--- a/test/nest/arg_nest.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/arg_nest.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# arg_nest.m
+## arg_nest.m
 function x = arg_nest
   x = 1;
   A (x);
--- a/test/nest/no_closure.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/no_closure.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# no_closure.m
+## no_closure.m
 function r = no_closure (n)
   if (ischar (n))
     r = nested (n);
--- a/test/nest/persistent_nest.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/persistent_nest.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# persistent_nest
+## persistent_nest
 function y = persistent_nest ()
   persistent x = 0;
   g;
--- a/test/nest/recursive_nest.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/recursive_nest.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# recursive_nest.m
+## recursive_nest.m
 function x = recursive_nest ()
   global recursive_nest_inc = 1
   x = 5;
--- a/test/nest/recursive_nest2.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/recursive_nest2.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# recursive_nest2.m
+## recursive_nest2.m
 function x = recursive_nest2 ()
   x = B (20);
   function v = B (n)
--- a/test/nest/scope0.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/scope0.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# scope0.m
+## scope0.m
 function scope0
   C;
   function A
--- a/test/nest/scope1.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/scope1.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# scope1.m
+## scope1.m
 function scope1 (n)
   value = n;
   if (value)
--- a/test/nest/scope2.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/scope2.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# scope2.m
+## scope2.m
 function scope2
   C;
   function A
--- a/test/nest/scope3.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/scope3.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# scope3.m
+## scope3.m
 function scope3
   C;
   function A
--- a/test/nest/script_nest.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/script_nest.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# script_nest.m
+## script_nest.m
 function x = script_nest
   A (5)
   function A (n)
--- a/test/nest/script_nest_2.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/script_nest_2.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# script_nest.m
+## script_nest.m
 function r = script_nest_2 (x)
   function r = nest_fun ()
     r = 13;
--- a/test/nest/script_nest_script.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/script_nest_script.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,2 +1,2 @@
-# script_nest_script.m
+## script_nest_script.m
 x = 5;
--- a/test/nest/script_nest_script_2.m	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/nest/script_nest_script_2.m	Thu Oct 15 14:30:01 2020 -0700
@@ -1,4 +1,4 @@
-# script_nest_script.m
+## script_nest_script.m
 if (x > 0)
   r = x * 2;
 else
--- a/test/pkg/pkg.tst	Thu Oct 15 21:22:37 2020 +0200
+++ b/test/pkg/pkg.tst	Thu Oct 15 14:30:01 2020 -0700
@@ -79,7 +79,7 @@
 %!
 %!error pkg ("install", "nonexistent.zip")
 
-# -local
+## -local
 %!testif HAVE_Z
 %! for i = 1:numel (mfile_pkg_name)
 %!   silent_pkg_install ("-local", mfile_pkg_tgz{i});
@@ -87,18 +87,18 @@
 %!   pkg ("uninstall", mfile_pkg_name{i});
 %! endfor
 
-# -forge (need check for options?)
+## -forge (need check for options?)
 ## FIXME: Need test
-# We do not test this yet ... fails if no internet connection
-# use dataframe which is an mfile only package
+## We do not test this yet ... fails if no internet connection
+## use dataframe which is an mfile only package
 #%!test
 #%! silent_pkg_install ("-forge", "dataframe");
 #%! pkg ("uninstall", "dataframe");
 
-# -nodeps
+## -nodeps
 ## FIXME: Need test
 
-# -verbose
+## -verbose
 ## FIXME: Need test
 
 ## Action load/unload (within install/uninstall)
@@ -118,17 +118,17 @@
 %!
 %!error <package foobar is not installed> pkg ("load", "foobar")
 
-# -nodeps
+## -nodeps
 ## FIXME: Need test
 
-# -verbose
+## -verbose
 ## FIXME: Need test
 
 ## Action list
 %!test
 %! [user_packages, system_packages] = pkg ("list");
 
-# -forge
+## -forge
 #%!test
 #%! oct_forge_pkgs = pkg ("list", "-forge");
 
@@ -141,7 +141,7 @@
 %! system (["chmod -Rf u+w '" prefix "'"]);     ## FIXME: Work around bug #53578
 %! pkg ("uninstall", mfile_pkg_name{1});
 
-# -verbose
+## -verbose
 ## FIXME: Need test
 
 ## Action prefix
@@ -156,11 +156,11 @@
 
 ## Action build
 ## FIXME: Need test
-# pkg build -verbose /tmp image-*
+## pkg build -verbose /tmp image-*
 
 ## Action rebuild
 ## FIXME: Need test
-# pkg rebuild signal
+## pkg rebuild signal
 
 ## Future commands
 %!error pkg ("whereis", "myfunc.m")