# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1438802481 14400
# Node ID fe488ffe5f4b13e0143de6cd0923d55d8b66c52a
# Parent  099bdf98f7247ba65caf3487737367e13d1e8d89
* __run_test_suite__.m: Return number of passed, failed, and skipped tests.

diff -r 099bdf98f724 -r fe488ffe5f4b scripts/testfun/__run_test_suite__.m
--- a/scripts/testfun/__run_test_suite__.m	Tue Aug 04 23:09:43 2015 -0400
+++ b/scripts/testfun/__run_test_suite__.m	Wed Aug 05 15:21:21 2015 -0400
@@ -21,7 +21,8 @@
 ## Undocumented internal function.
 ## @end deftypefn
 
-function __run_test_suite__ (fcndirs, fixedtestdirs)
+function [pass, fail, xfail, skip] = __run_test_suite__ (fcndirs, fixedtestdirs)
+
   testsdir = octave_config_info ("octtestsdir");
   libinterptestdir = fullfile (testsdir, "libinterp");
   liboctavetestdir = fullfile (testsdir, "liboctave");
@@ -117,6 +118,14 @@
     warning (orig_wstate);
     page_screen_output (pso);
   end_unwind_protect
+
+  if (nargout > 0)
+    pass = np;
+    fail = nfail;
+    xfail = dxf;
+    skip = xsk;
+  endif
+
 endfunction
 
 function print_test_file_name (nm)