# HG changeset patch
# User Rik <rik@octave.org>
# Date 1386090249 28800
# Node ID 49609fbc5a8e59cc97922198bc1ac1b8ade2d9a2
# Parent  b330e4da766fffb1ae86bb3b52d5804cd06a79f8
runtests.m: Also runtests for files that only contain %!xtest (bug #40780)

* runtests.m : Add xtest to regexp searching for test code in m-file.

diff -r b330e4da766f -r 49609fbc5a8e scripts/testfun/runtests.m
--- a/scripts/testfun/runtests.m	Thu Dec 05 10:34:12 2013 -0500
+++ b/scripts/testfun/runtests.m	Tue Dec 03 09:04:09 2013 -0800
@@ -127,7 +127,7 @@
   if (fid >= 0)
     str = fread (fid, "*char").';
     fclose (fid);
-    retval = ! isempty (regexp (str, '^%!(?:test|assert|error|warning)',
+    retval = ! isempty (regexp (str, '^%!(?:test|xtest|assert|error|warning)',
                                      'lineanchors', 'once'));
   else
     error ("runtests: fopen failed: %s", f);