# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1386366407 18000
# Node ID 523dd79ee726f4873374604a1ac6116555a3f7bb
# Parent  0fa235a252a5c26ea2f539469742bc7152de4101
also check for xtest in __run_test_suite__

* __run_test_suite__.m (has_tests): Also return true for files that
only contain %!xtest.

diff -r 0fa235a252a5 -r 523dd79ee726 scripts/testfun/__run_test_suite__.m
--- a/scripts/testfun/__run_test_suite__.m	Fri Dec 06 16:39:56 2013 -0500
+++ b/scripts/testfun/__run_test_suite__.m	Fri Dec 06 16:46:47 2013 -0500
@@ -155,8 +155,9 @@
   if (fid >= 0)
     str = fread (fid, "*char")';
     fclose (fid);
-    retval = ! isempty (regexp (str, '^%!(assert|error|fail|test|warning)',
-                                     'lineanchors', 'once'));
+    retval = ! isempty (regexp (str,
+                                '^%!(assert|error|fail|test|xtest|warning)',
+                                'lineanchors', 'once'));
   else
     error ("fopen failed: %s", f);
   endif