octave: scripts/testfun/oruntests.m annotate

annotate scripts/testfun/oruntests.m @ 27898:4d6d21839dfd

remove Author: jwe and Adapted-by: jwe lines from source files These lines have little meaning now in the age of modern version control systems. Files affected: url-transfer.cc, url-transfer.h, acot.m, acoth.m, acsc.m, acsch.m, asec.m, asech.m, cot.m, coth.m, csc.m, csch.m, sec.m, sech.m, cart2pol.m, cart2sph.m, deal.m, fliplr.m, flipud.m, int2str.m, logspace.m, num2str.m, pol2cart.m, rot90.m, sortrows.m, sph2cart.m, waitbar.m, doc.m, hsv2rgb.m, rgb2hsv.m, beep.m, isstr.m, setstr.m, strmatch.m, cond.m, rank.m, trace.m, bug_report.m, cast.m, delete.m, dir.m, list_primes.m, ls.m, ls_command.m, menu.m, pack.m, recycle.m, substruct.m, version.m, glpk.m, axis.m, box.m, grid.m, __axis_label__.m, text.m, title.m, view.m, xlabel.m, ylabel.m, zlabel.m, bar.m, barh.m, comet3.m, hist.m, line.m, loglog.m, mesh.m, patch.m, plot.m, polar.m, __bar__.m, __line__.m, __plt__.m, __stem__.m, semilogx.m, semilogy.m, sombrero.m, stairs.m, stem.m, surface.m, __default_plot_options__.m, __gnuplot_drawnow__.m, __next_line_color__.m, __plt_get_axis_arg__.m, __pltopt__.m, clf.m, closereq.m, gca.m, gnuplot_binary.in.m, isfigure.m, meshgrid.m, __gnuplot_draw_axes__.m, __gnuplot_draw_figure__.m, shg.m, addpref.m, getpref.m, ispref.m, loadprefs.m, prefsfile.m, saveprefs.m, rmpref.m, setpref.m, ismember.m, setdiff.m, union.m, hankel.m, hilb.m, vander.m, median.m, std.m, cstrcat.m, isletter.m, str2num.m, strcat.m, oruntests.m, rundemos.m, asctime.m, clock.m, ctime.m, date.m, etime.m, is_leap_year.m.

author	John W. Eaton <jwe@octave.org>
date	Thu, 02 Jan 2020 15:43:01 -0500
parents	8a04f5454350
children	695bb9322a21

rev	line source
26376 00f796120a6d maint: Update copyright dates in all source files. John W. Eaton <jwe@octave.org> parents: 25781 diff changeset	1 ## Copyright (C) 2010-2019 John W. Eaton
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	2 ##
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	3 ## This file is part of Octave.
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	4 ##
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24483 diff changeset	5 ## Octave is free software: you can redistribute it and/or modify it
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24483 diff changeset	7 ## the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	8 ## (at your option) any later version.
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	9 ##
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	13 ## GNU General Public License for more details.
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	14 ##
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24483 diff changeset	17 ## <https://www.gnu.org/licenses/>.
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	18
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	19 ## -- texinfo --
27115 8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	20 ## @deftypefn {} {} oruntests ()
8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	21 ## @deftypefnx {} {} oruntests (@var{directory})
19025 f27140dd13a6 doc: Update documentation for assert, rundemos, runtests. Rik <rik@octave.org> parents: 18110 diff changeset	22 ## Execute built-in tests for all m-files in the specified @var{directory}.
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests. Rik <rik@octave.org> parents: 18110 diff changeset	23 ##
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests. Rik <rik@octave.org> parents: 18110 diff changeset	24 ## Test blocks in any C++ source files (@file{*.cc}) will also be executed
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests. Rik <rik@octave.org> parents: 18110 diff changeset	25 ## for use with dynamically linked oct-file functions.
17148 fa14aa77b514 Allow relative directory name for rundemos/runtests. Rik <rik@octave.org> parents: 16724 diff changeset	26 ##
20162 2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19865 diff changeset	27 ## If no directory is specified, operate on all directories in Octave's search
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19865 diff changeset	28 ## path for functions.
19025 f27140dd13a6 doc: Update documentation for assert, rundemos, runtests. Rik <rik@octave.org> parents: 18110 diff changeset	29 ## @seealso{rundemos, test, path}
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	30 ## @end deftypefn
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	31
27115 8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	32 function oruntests (directory)
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	33
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	34 if (nargin == 0)
16724 b7667fcb9fbc Substitute ostrsplit() for strsplit(). Ben Abbott <bpabbott@mac.com> parents: 16403 diff changeset	35 dirs = ostrsplit (path (), pathsep ());
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	36 do_class_dirs = true;
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	37 elseif (nargin == 1)
18059 b675665ce328 Simplify directory testing code for rundemos, runtests. Rik <rik@octave.org> parents: 18054 diff changeset	38 dirs = {canonicalize_file_name(directory)};
25781 e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489) Rik <rik@octave.org> parents: 25054 diff changeset	39 if (isempty (dirs{1}) \|\| ! isfolder (dirs{1}))
18059 b675665ce328 Simplify directory testing code for rundemos, runtests. Rik <rik@octave.org> parents: 18054 diff changeset	40 ## Search for directory name in path
b675665ce328 Simplify directory testing code for rundemos, runtests. Rik <rik@octave.org> parents: 18054 diff changeset	41 if (directory(end) == '/' \|\| directory(end) == '\')
b675665ce328 Simplify directory testing code for rundemos, runtests. Rik <rik@octave.org> parents: 18054 diff changeset	42 directory(end) = [];
17148 fa14aa77b514 Allow relative directory name for rundemos/runtests. Rik <rik@octave.org> parents: 16724 diff changeset	43 endif
18110 2217bc116aa9 maint: Dummy merge with gui-release, ignoring all recent backout merges Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 18105 diff changeset	44 fullname = dir_in_loadpath (directory);
18054 70e83c641b48 Accept a bare directory name for rundemos and runtests. Rik <rik@octave.org> parents: 18053 diff changeset	45 if (isempty (fullname))
27115 8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	46 error ("oruntests: DIRECTORY argument must be a valid pathname");
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	47 endif
18054 70e83c641b48 Accept a bare directory name for rundemos and runtests. Rik <rik@octave.org> parents: 18053 diff changeset	48 dirs = {fullname};
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	49 endif
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	50 do_class_dirs = false;
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	51 else
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	52 print_usage ();
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	53 endif
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	54
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	55 for i = 1:numel (dirs)
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	56 d = dirs{i};
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	57 run_all_tests (d, do_class_dirs);
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	58 endfor
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	59
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	60 endfunction
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	61
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	62 function run_all_tests (directory, do_class_dirs)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	63
17459 f271fa40074d runtests.m, rundemos.m: Use readdir, rather than dir, for ~700X speed-up. Rik <rik@octave.org> parents: 17458 diff changeset	64 flist = readdir (directory);
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	65 dirs = {};
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	66 no_tests = {};
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	67 printf ("Processing files in %s:\n\n", directory);
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	68 fflush (stdout);
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	69 for i = 1:numel (flist)
17459 f271fa40074d runtests.m, rundemos.m: Use readdir, rather than dir, for ~700X speed-up. Rik <rik@octave.org> parents: 17458 diff changeset	70 f = flist{i};
19865 e9f89866074c maint: Cleanup some .m files to follow Octave coding conventions. John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	71 if ((length (f) > 2 && strcmpi (f((end-1):end), ".m"))
e9f89866074c maint: Cleanup some .m files to follow Octave coding conventions. John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	72 \|\| (length (f) > 3 && strcmpi (f((end-2):end), ".cc")))
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	73 ff = fullfile (directory, f);
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	74 if (has_tests (ff))
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	75 print_test_file_name (f);
24480 04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	76 [p, n, xf, xb, sk, rtsk, rgrs] = test (ff, "quiet");
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	77 print_pass_fail (p, n, xf, xb, sk, rtsk, rgrs);
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	78 fflush (stdout);
17456 2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	79 elseif (has_functions (ff))
17459 f271fa40074d runtests.m, rundemos.m: Use readdir, rather than dir, for ~700X speed-up. Rik <rik@octave.org> parents: 17458 diff changeset	80 no_tests(end+1) = f;
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	81 endif
17459 f271fa40074d runtests.m, rundemos.m: Use readdir, rather than dir, for ~700X speed-up. Rik <rik@octave.org> parents: 17458 diff changeset	82 elseif (f(1) == "@")
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	83 f = fullfile (directory, f);
25781 e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489) Rik <rik@octave.org> parents: 25054 diff changeset	84 if (isfolder (f))
17459 f271fa40074d runtests.m, rundemos.m: Use readdir, rather than dir, for ~700X speed-up. Rik <rik@octave.org> parents: 17458 diff changeset	85 dirs(end+1) = f;
f271fa40074d runtests.m, rundemos.m: Use readdir, rather than dir, for ~700X speed-up. Rik <rik@octave.org> parents: 17458 diff changeset	86 endif
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	87 endif
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	88 endfor
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	89 if (! isempty (no_tests))
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	90 printf ("\nThe following files in %s have no tests:\n\n", directory);
96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	91 printf ("%s", list_in_columns (no_tests));
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	92 endif
17457 a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	93
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	94 ## Recurse into class directories since they are implied in the path
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	95 if (do_class_dirs)
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	96 for i = 1:numel (dirs)
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	97 d = dirs{i};
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	98 run_all_tests (d, false);
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	99 endfor
a4f86f459744 rundemos.m, runtests.m: Include class directories in path (bug #40053) Mike Miller <mtmiller@ieee.org> parents: 17456 diff changeset	100 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	101
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	102 endfunction
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	103
17456 2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	104 function retval = has_functions (f)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	105
17456 2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	106 n = length (f);
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	107 if (n > 3 && strcmpi (f((end-2):end), ".cc"))
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	108 fid = fopen (f);
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	109 if (fid < 0)
27115 8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	110 error ("oruntests: fopen failed: %s", f);
17456 2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	111 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	112 str = fread (fid, "*char")';
ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	113 fclose (fid);
ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	114 retval = ! isempty (regexp (str,'^(?:DEFUN\|DEFUN_DLD\|DEFUNX)\>',
ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	115 'lineanchors', 'once'));
17456 2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	116 elseif (n > 2 && strcmpi (f((end-1):end), ".m"))
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	117 retval = true;
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	118 else
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	119 retval = false;
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	120 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	121
17456 2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	122 endfunction
2c2a6801cb57 rundemos.m, runtests.m: Operate on .cc files (bug #40052) Mike Miller <mtmiller@ieee.org> parents: 17148 diff changeset	123
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	124 function retval = has_tests (f)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	125
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	126 fid = fopen (f);
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	127 if (fid < 0)
27115 8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	128 error ("oruntests: fopen failed: %s", f);
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	129 endif
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	130
ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	131 str = fread (fid, "*char").';
ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	132 fclose (fid);
24480 04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	133 retval = ! isempty (regexp (str,
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	134 '^%!(assert\|error\|fail\|test\|xtest\|warning)',
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	135 'lineanchors', 'once'));
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	136
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	137 endfunction
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	138
24480 04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	139 function print_pass_fail (p, n, xf, xb, sk, rtsk, rgrs)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	140
24480 04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	141 if ((n + sk + rtsk + rgrs) > 0)
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	142 printf (" PASS %4d/%-4d", p, n);
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	143 nfail = n - p - xf - xb - rgrs;
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	144 if (nfail > 0)
24480 04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	145 printf ("\n%71s %3d", "FAIL ", nfail);
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	146 endif
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	147 if (rgrs > 0)
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	148 printf ("\n%71s %3d", "REGRESSION", rgrs);
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	149 endif
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	150 if (xb > 0)
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	151 printf ("\n%71s %3d", "(reported bug) XFAIL", xb);
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	152 endif
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	153 if (xf > 0)
04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	154 printf ("\n%71s %3d", "(expected failure) XFAIL", xf);
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	155 endif
24483 dac2ad033c43 use same wording and order for individual test results and summary John W. Eaton <jwe@octave.org> parents: 24480 diff changeset	156 if (sk > 0)
dac2ad033c43 use same wording and order for individual test results and summary John W. Eaton <jwe@octave.org> parents: 24480 diff changeset	157 printf ("\n%71s %3d", "(missing feature) SKIP", sk);
dac2ad033c43 use same wording and order for individual test results and summary John W. Eaton <jwe@octave.org> parents: 24480 diff changeset	158 endif
dac2ad033c43 use same wording and order for individual test results and summary John W. Eaton <jwe@octave.org> parents: 24480 diff changeset	159 if (rtsk > 0)
dac2ad033c43 use same wording and order for individual test results and summary John W. Eaton <jwe@octave.org> parents: 24480 diff changeset	160 printf ("\n%71s %3d", "(run-time condition) SKIP", rtsk);
dac2ad033c43 use same wording and order for individual test results and summary John W. Eaton <jwe@octave.org> parents: 24480 diff changeset	161 endif
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	162 endif
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	163 puts ("\n");
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 21634 diff changeset	164
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	165 endfunction
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	166
3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	167 function print_test_file_name (nm)
24480 04d1a3ea26a3 runtests.m: Update printing of output. Rik <rik@octave.org> parents: 23220 diff changeset	168 filler = repmat (".", 1, 60-length (nm));
21634 96518f623c91 Backed out changeset dcf8922b724b Mike Miller <mtmiller@octave.org> parents: 21633 diff changeset	169 printf (" %s %s", nm, filler);
10496 3b77db443cc0 scripts/testfun/runtests.m: new function John W. Eaton <jwe@octave.org> parents: diff changeset	170 endfunction
17148 fa14aa77b514 Allow relative directory name for rundemos/runtests. Rik <rik@octave.org> parents: 16724 diff changeset	171
fa14aa77b514 Allow relative directory name for rundemos/runtests. Rik <rik@octave.org> parents: 16724 diff changeset	172
27115 8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	173 %!error oruntests ("foo", 1)
8a04f5454350 Deprecate 'runtests' function (bug #56325). Rik <rik@octave.org> parents: 26376 diff changeset	174 %!error <DIRECTORY argument> oruntests ("#_TOTALLY_/_INVALID_/_PATHNAME_#")

Mercurial > octave

annotate scripts/testfun/oruntests.m @ 27898:4d6d21839dfd