Mercurial > octave-nkf
annotate scripts/testfun/__run_test_suite__.m @ 17338:1c89599167a6
maint: End m-files with 1 blank line.
Simplifies automated grammarchecking script.
* scripts/@ftp/ascii.m, scripts/@ftp/binary.m, scripts/@ftp/cd.m,
scripts/@ftp/close.m, scripts/@ftp/delete.m, scripts/@ftp/dir.m,
scripts/@ftp/display.m, scripts/@ftp/ftp.m, scripts/@ftp/loadobj.m,
scripts/@ftp/mget.m, scripts/@ftp/mkdir.m, scripts/@ftp/mput.m,
scripts/@ftp/rename.m, scripts/@ftp/rmdir.m, scripts/@ftp/saveobj.m,
scripts/audio/lin2mu.m, scripts/audio/loadaudio.m, scripts/audio/mu2lin.m,
scripts/audio/record.m, scripts/audio/saveaudio.m, scripts/audio/setaudio.m,
scripts/deprecated/__error_text__.m, scripts/deprecated/cut.m,
scripts/deprecated/error_text.m, scripts/deprecated/isstr.m,
scripts/deprecated/polyderiv.m, scripts/deprecated/studentize.m,
scripts/deprecated/sylvester_matrix.m, scripts/general/bicubic.m,
scripts/general/celldisp.m, scripts/general/colon.m,
scripts/general/cplxpair.m, scripts/general/del2.m, scripts/general/display.m,
scripts/general/isdir.m, scripts/general/isequaln.m, scripts/general/loadobj.m,
scripts/general/private/__isequal__.m, scripts/general/private/__splinen__.m,
scripts/general/profexplore.m, scripts/general/quadgk.m,
scripts/general/randi.m, scripts/general/repmat.m, scripts/general/saveobj.m,
scripts/geometry/delaunay.m, scripts/help/__unimplemented__.m,
scripts/help/doc_cache_create.m, scripts/help/get_first_help_sentence.m,
scripts/help/help.m, scripts/help/print_usage.m,
scripts/help/private/__additional_help_message__.m,
scripts/help/private/__strip_html_tags__.m, scripts/help/type.m,
scripts/image/imfinfo.m, scripts/image/imformats.m, scripts/image/imread.m,
scripts/image/imwrite.m, scripts/image/private/__imfinfo__.m,
scripts/image/private/__imread__.m, scripts/image/private/__imwrite__.m,
scripts/image/private/imageIO.m, scripts/image/private/imwrite_filename.m,
scripts/image/private/ind2x.m, scripts/io/beep.m, scripts/io/strread.m,
scripts/io/textread.m, scripts/io/textscan.m, scripts/linear-algebra/krylov.m,
scripts/linear-algebra/subspace.m, scripts/miscellaneous/bug_report.m,
scripts/miscellaneous/bunzip2.m, scripts/miscellaneous/cast.m,
scripts/miscellaneous/copyfile.m, scripts/miscellaneous/debug.m,
scripts/miscellaneous/dir.m, scripts/miscellaneous/dump_prefs.m,
scripts/miscellaneous/error_ids.m, scripts/miscellaneous/fileattrib.m,
scripts/miscellaneous/gunzip.m, scripts/miscellaneous/isdeployed.m,
scripts/miscellaneous/ismac.m, scripts/miscellaneous/mex.m,
scripts/miscellaneous/mexext.m, scripts/miscellaneous/mkoctfile.m,
scripts/miscellaneous/movefile.m, scripts/miscellaneous/namelengthmax.m,
scripts/miscellaneous/news.m, scripts/miscellaneous/pack.m,
scripts/miscellaneous/perl.m,
scripts/miscellaneous/private/display_info_file.m,
scripts/miscellaneous/python.m, scripts/miscellaneous/rmappdata.m,
scripts/miscellaneous/run.m, scripts/miscellaneous/tar.m,
scripts/miscellaneous/tempname.m, scripts/miscellaneous/untar.m,
scripts/miscellaneous/unzip.m, scripts/miscellaneous/what.m,
scripts/miscellaneous/zip.m, scripts/optimization/fminunc.m,
scripts/optimization/fsolve.m, scripts/optimization/fzero.m,
scripts/optimization/glpk.m, scripts/optimization/optimget.m,
scripts/optimization/optimset.m, scripts/optimization/qp.m,
scripts/optimization/sqp.m, scripts/path/pathdef.m, scripts/pkg/pkg.m,
scripts/pkg/private/build.m, scripts/pkg/private/describe.m,
scripts/pkg/private/dirempty.m, scripts/pkg/private/get_forge_download.m,
scripts/pkg/private/get_forge_pkg.m,
scripts/pkg/private/get_unsatisfied_deps.m, scripts/pkg/private/install.m,
scripts/pkg/private/is_architecture_dependent.m,
scripts/pkg/private/list_forge_packages.m, scripts/pkg/private/rebuild.m,
scripts/pkg/private/shell.m, scripts/pkg/private/uninstall.m,
scripts/plot/axes.m, scripts/plot/box.m, scripts/plot/closereq.m,
scripts/plot/diffuse.m, scripts/plot/ezpolar.m, scripts/plot/findfigs.m,
scripts/plot/gco.m, scripts/plot/guidata.m, scripts/plot/guihandles.m,
scripts/plot/hdl2struct.m, scripts/plot/linkprop.m, scripts/plot/peaks.m,
scripts/plot/print.m, scripts/plot/private/__add_datasource__.m,
scripts/plot/private/__axis_label__.m, scripts/plot/private/__clabel__.m,
scripts/plot/private/__color_str_rgb__.m, scripts/plot/private/__contour__.m,
scripts/plot/private/__default_plot_options__.m,
scripts/plot/private/__errcomm__.m, scripts/plot/private/__file_filter__.m,
scripts/plot/private/__fltk_file_filter__.m,
scripts/plot/private/__getlegenddata__.m,
scripts/plot/private/__gnuplot_open_stream__.m,
scripts/plot/private/__gnuplot_print__.m,
scripts/plot/private/__go_draw_axes__.m,
scripts/plot/private/__interp_cube__.m, scripts/plot/private/__is_function__.m,
scripts/plot/private/__line__.m, scripts/plot/private/__marching_cube__.m,
scripts/plot/private/__next_line_style__.m, scripts/plot/private/__patch__.m,
scripts/plot/private/__pie__.m, scripts/plot/private/__pltopt__.m,
scripts/plot/private/__quiver__.m, scripts/plot/private/__scatter__.m,
scripts/plot/private/__stem__.m, scripts/plot/private/__uigetdir_fltk__.m,
scripts/plot/private/__uigetfile_fltk__.m,
scripts/plot/private/__uiobject_split_args__.m,
scripts/plot/private/__uiputfile_fltk__.m, scripts/plot/refresh.m,
scripts/plot/saveas.m, scripts/plot/shg.m, scripts/plot/specular.m,
scripts/plot/sphere.m, scripts/plot/struct2hdl.m, scripts/plot/subplot.m,
scripts/plot/uicontextmenu.m, scripts/plot/uicontrol.m, scripts/plot/uipanel.m,
scripts/plot/uipushtool.m, scripts/plot/uiresume.m,
scripts/plot/uitoggletool.m, scripts/plot/uitoolbar.m, scripts/plot/uiwait.m,
scripts/plot/waitforbuttonpress.m, scripts/polynomial/pchip.m,
scripts/polynomial/polyeig.m, scripts/polynomial/ppval.m,
scripts/prefs/addpref.m, scripts/prefs/getpref.m, scripts/prefs/ispref.m,
scripts/prefs/private/loadprefs.m, scripts/prefs/private/prefsfile.m,
scripts/prefs/private/saveprefs.m, scripts/prefs/setpref.m,
scripts/set/private/validargs.m, scripts/set/unique.m,
scripts/signal/arch_fit.m, scripts/signal/arch_rnd.m,
scripts/signal/arch_test.m, scripts/signal/arma_rnd.m,
scripts/signal/durbinlevinson.m, scripts/signal/fractdiff.m,
scripts/signal/freqz.m, scripts/signal/freqz_plot.m, scripts/signal/hurst.m,
scripts/signal/periodogram.m, scripts/signal/private/rectangle_lw.m,
scripts/signal/private/rectangle_sw.m, scripts/signal/private/triangle_sw.m,
scripts/signal/spectral_adf.m, scripts/signal/spectral_xdf.m,
scripts/signal/stft.m, scripts/signal/synthesis.m, scripts/signal/yulewalker.m,
scripts/sparse/colperm.m, scripts/sparse/eigs.m, scripts/sparse/etreeplot.m,
scripts/sparse/gmres.m, scripts/sparse/private/__sprand_impl__.m,
scripts/sparse/spdiags.m, scripts/sparse/sprandn.m, scripts/specfun/bessel.m,
scripts/specfun/betaln.m, scripts/specfun/expint.m,
scripts/special-matrix/gallery.m, scripts/startup/__finish__.m,
scripts/statistics/base/qqplot.m, scripts/statistics/distributions/tcdf.m,
scripts/statistics/distributions/wienrnd.m,
scripts/statistics/models/logistic_regression.m,
scripts/statistics/models/private/logistic_regression_derivatives.m,
scripts/statistics/models/private/logistic_regression_likelihood.m,
scripts/statistics/tests/anova.m, scripts/statistics/tests/bartlett_test.m,
scripts/statistics/tests/chisquare_test_homogeneity.m,
scripts/statistics/tests/chisquare_test_independence.m,
scripts/statistics/tests/cor_test.m,
scripts/statistics/tests/f_test_regression.m,
scripts/statistics/tests/hotelling_test.m,
scripts/statistics/tests/hotelling_test_2.m,
scripts/statistics/tests/kolmogorov_smirnov_test_2.m,
scripts/statistics/tests/kruskal_wallis_test.m,
scripts/statistics/tests/manova.m, scripts/statistics/tests/mcnemar_test.m,
scripts/statistics/tests/prop_test_2.m, scripts/statistics/tests/run_test.m,
scripts/statistics/tests/sign_test.m, scripts/statistics/tests/t_test.m,
scripts/statistics/tests/t_test_2.m,
scripts/statistics/tests/t_test_regression.m,
scripts/statistics/tests/u_test.m, scripts/statistics/tests/var_test.m,
scripts/statistics/tests/welch_test.m,
scripts/statistics/tests/wilcoxon_test.m, scripts/statistics/tests/z_test.m,
scripts/statistics/tests/z_test_2.m, scripts/strings/strcat.m,
scripts/strings/strjoin.m, scripts/strings/strsplit.m,
scripts/testfun/__have_feature__.m, scripts/testfun/__printf_assert__.m,
scripts/testfun/__prog_output_assert__.m, scripts/testfun/__run_test_suite__.m,
scripts/time/clock.m, scripts/time/datenum.m, scripts/ui/errordlg.m,
scripts/ui/private/message_dialog.m: End m-files with 1 blank line.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 28 Aug 2013 08:33:02 -0700 |
parents | fa724bdd52d0 |
children | 6dbc866379e2 |
rev | line source |
---|---|
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
1 ## Copyright (C) 2005-2012 David Bateman |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
2 ## |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
3 ## This file is part of Octave. |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
4 ## |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
5 ## Octave is free software; you can redistribute it and/or modify it |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
6 ## under the terms of the GNU General Public License as published by |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
7 ## the Free Software Foundation; either version 3 of the License, or (at |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
8 ## your option) any later version. |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
9 ## |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
10 ## Octave is distributed in the hope that it will be useful, but |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
13 ## General Public License for more details. |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
14 ## |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
15 ## You should have received a copy of the GNU General Public License |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
16 ## along with Octave; see the file COPYING. If not, see |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
17 ## <http://www.gnu.org/licenses/>. |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
18 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
19 ## -*- texinfo -*- |
16816
12005245b645
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16030
diff
changeset
|
20 ## @deftypefn {Function File} {} __run_test_suite__ (@var{fcndirs}, @var{fixedtestdirs}) |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
21 ## Undocumented internal function. |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
22 ## @end deftypefn |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
23 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
24 function __run_test_suite__ (fcndirs, fixedtestdirs) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
25 testsdir = octave_config_info ("octtestsdir"); |
16030
1af8d21608b7
rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
26 libinterptestdir = fullfile (testsdir, "libinterp"); |
1af8d21608b7
rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
27 liboctavetestdir = fullfile (testsdir, "liboctave"); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
28 fixedtestdir = fullfile (testsdir, "fixed"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
29 fcnfiledir = octave_config_info ("fcnfiledir"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
30 if (nargin == 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
31 fcndirs = { libinterptestdir, liboctavetestdir, fcnfiledir }; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
32 fixedtestdirs = { fixedtestdir }; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
33 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
34 global files_with_no_tests = {}; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
35 global files_with_tests = {}; |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
36 ## FIXME: These names don't really make sense if we are running |
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
37 ## tests for an installed copy of Octave. |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
38 global topsrcdir = fcnfiledir; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
39 global topbuilddir = testsdir; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
40 pso = page_screen_output (); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
41 warn_state = warning ("query", "quiet"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
42 warning ("on", "quiet"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
43 try |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
44 page_screen_output (false); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
45 warning ("off", "Octave:deprecated-function"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
46 fid = fopen ("fntests.log", "wt"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
47 if (fid < 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
48 error ("could not open fntests.log for writing"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
49 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
50 test ("", "explain", fid); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
51 dp = dn = dxf = dsk = 0; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
52 puts ("\nIntegrated test scripts:\n\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
53 for i = 1:length (fcndirs) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
54 [p, n, xf, sk] = run_test_script (fid, fcndirs{i}); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
55 dp += p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
56 dn += n; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
57 dxf += xf; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
58 dsk += sk; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
59 endfor |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
60 puts ("\nFixed test scripts:\n\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
61 for i = 1:length (fixedtestdirs) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
62 [p, n, xf, sk] = run_test_dir (fid, fixedtestdirs{i}); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
63 dp += p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
64 dn += n; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
65 dxf += xf; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
66 dsk += sk; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
67 endfor |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
68 puts ("\nSummary:\n\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
69 nfail = dn - dp; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
70 printf (" PASS %6d\n", dp); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
71 printf (" FAIL %6d\n", nfail); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
72 if (dxf > 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
73 printf (" XFAIL %6d\n", dxf); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
74 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
75 if (dsk > 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
76 printf (" SKIPPED %6d\n", dsk); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
77 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
78 puts ("\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
79 puts ("See the file test/fntests.log for additional details.\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
80 if (dxf > 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
81 puts ("\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
82 puts ("Expected failures (listed as XFAIL above) are known bugs.\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
83 puts ("Please help improve Octave by contributing fixes for them.\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
84 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
85 if (dsk > 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
86 puts ("\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
87 puts ("Tests are most often skipped because the features they require\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
88 puts ("have been disabled. Features are most often disabled because\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
89 puts ("they require dependencies that were not present when Octave\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
90 puts ("was built. The configure script should have printed a summary\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
91 puts ("at the end of its run indicating which dependencies were not found.\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
92 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
93 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
94 ## Weed out deprecated and private functions |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
95 weed_idx = cellfun (@isempty, regexp (files_with_tests, '\<deprecated\>|\<private\>', 'once')); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
96 files_with_tests = files_with_tests(weed_idx); |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
97 weed_idx = cellfun (@isempty, regexp (files_with_no_tests, '\<deprecated\>|\<private\>', 'once')); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
98 files_with_no_tests = files_with_no_tests(weed_idx); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
99 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
100 report_files_with_no_tests (files_with_tests, files_with_no_tests, ".m"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
101 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
102 puts ("\nPlease help improve Octave by contributing tests for\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
103 puts ("these files (see the list in the file fntests.log).\n\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
104 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
105 fprintf (fid, "\nFiles with no tests:\n\n%s", |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
106 list_in_columns (files_with_no_tests, 80)); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
107 fclose (fid); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
108 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
109 page_screen_output (pso); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
110 warning (warn_state.state, "quiet"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
111 catch |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
112 page_screen_output (pso); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
113 warning (warn_state.state, "quiet"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
114 disp (lasterr ()); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
115 end_try_catch |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
116 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
117 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
118 function print_test_file_name (nm) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
119 filler = repmat (".", 1, 55-length (nm)); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
120 printf (" %s %s", nm, filler); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
121 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
122 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
123 function print_pass_fail (n, p) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
124 if (n > 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
125 printf (" PASS %4d/%-4d", p, n); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
126 nfail = n - p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
127 if (nfail > 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
128 printf (" FAIL %d", nfail); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
129 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
130 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
131 puts ("\n"); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
132 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
133 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
134 function retval = has_functions (f) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
135 n = length (f); |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
136 if (n > 3 && strcmpi (f((end-2):end), ".cc")) |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
137 fid = fopen (f); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
138 if (fid >= 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
139 str = fread (fid, "*char")'; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
140 fclose (fid); |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
141 retval = ! isempty (regexp (str,'^(DEFUN|DEFUN_DLD)\>', |
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
142 'lineanchors', 'once')); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
143 else |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
144 error ("fopen failed: %s", f); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
145 endif |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
146 elseif (n > 2 && strcmpi (f((end-1):end), ".m")) |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
147 retval = true; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
148 else |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
149 retval = false; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
150 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
151 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
152 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
153 function retval = has_tests (f) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
154 fid = fopen (f); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
155 if (fid >= 0) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
156 str = fread (fid, "*char")'; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
157 fclose (fid); |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
158 retval = ! isempty (regexp (str, '^%!(assert|error|fail|test|warning)', |
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
159 'lineanchors', 'once')); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
160 else |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
161 error ("fopen failed: %s", f); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
162 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
163 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
164 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
165 function [dp, dn, dxf, dsk] = run_test_dir (fid, d); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
166 global files_with_tests; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
167 global files_with_no_tests; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
168 lst = dir (d); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
169 dp = dn = dxf = dsk = 0; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
170 for i = 1:length (lst) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
171 nm = lst(i).name; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
172 if (lst(i).isdir |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
173 && nm(1) != "." && ! strcmp (nm, "private") && nm(1) != "@") |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
174 [p, n, xf, sk] = run_test_dir (fid, [d, filesep, nm]); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
175 dp += p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
176 dn += n; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
177 dxf += xf; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
178 dsk += sk; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
179 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
180 endfor |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
181 saved_dir = pwd (); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
182 unwind_protect |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
183 chdir (d); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
184 for i = 1:length (lst) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
185 nm = lst(i).name; |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
186 if (length (nm) > 4 && strcmpi (nm((end-3):end), ".tst")) |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
187 p = n = xf = sk = 0; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
188 ffnm = fullfile (d, nm); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
189 if (has_tests (ffnm)) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
190 print_test_file_name (nm); |
16030
1af8d21608b7
rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
191 [p, n, xf, sk] = test (nm, "quiet", fid); |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
192 print_pass_fail (n, p); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
193 files_with_tests(end+1) = ffnm; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
194 else |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
195 files_with_no_tests(end+1) = ffnm; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
196 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
197 dp += p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
198 dn += n; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
199 dxf += xf; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
200 dsk += sk; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
201 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
202 endfor |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
203 unwind_protect_cleanup |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
204 chdir (saved_dir); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
205 end_unwind_protect |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
206 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
207 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
208 function [dp, dn, dxf, dsk] = run_test_script (fid, d); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
209 global files_with_tests; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
210 global files_with_no_tests; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
211 global topsrcdir; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
212 global topbuilddir; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
213 lst = dir (d); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
214 dp = dn = dxf = dsk = 0; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
215 for i = 1:length (lst) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
216 nm = lst(i).name; |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
217 if (lst(i).isdir && nm(1) != ".") |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
218 [p, n, xf, sk] = run_test_script (fid, [d, filesep, nm]); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
219 dp += p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
220 dn += n; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
221 dxf += xf; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
222 dsk += sk; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
223 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
224 endfor |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
225 for i = 1:length (lst) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
226 nm = lst(i).name; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
227 ## Ignore hidden files |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
228 if (nm(1) == '.') |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
229 continue |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
230 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
231 f = fullfile (d, nm); |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
232 if ((length (nm) > 2 && strcmpi (nm((end-1):end), ".m")) |
16030
1af8d21608b7
rename all test files in the test directory from test_X.m to X.tst
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
233 || (length (nm) > 4 |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
234 && ( strcmpi (nm((end-3):end), "-tst") |
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
235 || strcmpi (nm((end-3):end), ".tst")))) |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
236 p = n = xf = 0; |
17182
fa724bdd52d0
__run_test_suite__.m: Recode regexps for performance. Don't search private '.' dirs.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
237 ## Only run if it contains %!test, %!assert, %!error, %!fail, or %!warning |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
238 if (has_tests (f)) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
239 tmp = strrep (f, [topsrcdir, filesep], ""); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
240 tmp = strrep (tmp, [topbuilddir, filesep], ""); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
241 print_test_file_name (tmp); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
242 [p, n, xf, sk] = test (f, "quiet", fid); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
243 print_pass_fail (n, p); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
244 dp += p; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
245 dn += n; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
246 dxf += xf; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
247 dsk += sk; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
248 files_with_tests(end+1) = f; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
249 else |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
250 ## To reduce the list length, only mark .cc files that contain |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
251 ## DEFUN definitions. |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
252 files_with_no_tests(end+1) = f; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
253 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
254 endif |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
255 endfor |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
256 ## printf("%s%s -> passes %d of %d tests\n", ident, d, dp, dn); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
257 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
258 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
259 function n = num_elts_matching_pattern (lst, pat) |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
260 n = sum (cellfun (@(x) !isempty (x), regexp (lst, pat, 'once'))); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
261 endfunction |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
262 |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
263 function report_files_with_no_tests (with, without, typ) |
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16816
diff
changeset
|
264 pat = ['\' typ "$"]; |
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
265 n_with = num_elts_matching_pattern (with, pat); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
266 n_without = num_elts_matching_pattern (without, pat); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
267 n_tot = n_with + n_without; |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
268 printf ("\n%d (of %d) %s files have no tests.\n", n_without, n_tot, typ); |
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
diff
changeset
|
269 endfunction |
17338
1c89599167a6
maint: End m-files with 1 blank line.
Rik <rik@octave.org>
parents:
17182
diff
changeset
|
270 |