# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1317829955 25200
# Node ID d5c8c2fe2eed7bb6c287c4c07bdf670f0b21c463
# Parent  635db52feab4fdbe89de10dd95441d28cf53e875
speed.m: Further fixes for 2 speed tests (Bug #34234)

* speed.m: Check only that size of T_f2 is in range 10-15.  It need
not match size of n or T_f1.

diff -r 635db52feab4 -r d5c8c2fe2eed scripts/testfun/speed.m
--- a/scripts/testfun/speed.m	Tue Oct 04 22:06:09 2011 -0700
+++ b/scripts/testfun/speed.m	Wed Oct 05 08:52:35 2011 -0700
@@ -156,7 +156,7 @@
   endif
 
   if (nargin < 2 || isempty (__init))
-    __init = "x = randn(n, 1);";
+    __init = "x = randn (n, 1);";
   endif
 
   if (nargin < 3 || isempty (__max_n))
@@ -396,25 +396,22 @@
 %! assert (fieldnames (order), {"p"; "a"});
 %! assert (isnumeric (n));
 %! assert (length (n) > 10);
-%! n_sz = size (n); 
 %! assert (isnumeric (T_f1));
-%! assert (size (T_f1), n_sz);
+%! assert (size (T_f1), size (n));
 %! assert (isnumeric (T_f2));
-%! assert (size (T_f2), n_sz);
+%! assert (length (T_f2) > 10);
 
 %!test
-%! [order, n, T_f1, T_f2] = speed ("sum (x)", "", [100, 1000], "v = 0; for i = 1:length (x), v += x(i); end");
+%! [order, n, T_f1, T_f2] = speed ("sum (x)", "", [100, 1000], "v = 0; for i = 1:length (x), v += x(i); endfor");
 %! assert (isstruct (order));
 %! assert (size (order), [1, 1]);
 %! assert (fieldnames (order), {"p"; "a"});
 %! assert (isnumeric (n));
 %! assert (length (n) > 10);
-%! n_sz = size (n); 
-%! assert (size (n), [1, 15]);
 %! assert (isnumeric (T_f1));
-%! assert (size (T_f1), n_sz);
+%! assert (size (T_f1), size (n));
 %! assert (isnumeric (T_f2));
-%! assert (size (T_f2), n_sz);
+%! assert (length (T_f2) > 10);
 
 %% Test input validation
 %!error speed ();