speed.m test failures

[Marco Atzeri]

On cygwin the tests are failing with


------------------------------------------------------------
>>>>> processing /pub/hg/octave/scripts/testfun/speed.m
  ***** test
 [order, n, T_f1, T_f2] = speed ("airy (x)", "x = rand (n, 10)", [100, 
1000]);
 assert (isstruct (order));
 assert (size (order), [1, 1]);
 assert (fieldnames (order), {"p"; "a"});
 assert (isnumeric (n));
 assert (size (n), [1, 15]);
 assert (isnumeric (T_f1));
 assert (size (T_f1), [1, 15]);
 assert (isnumeric (T_f1));
 assert (size (T_f2), [1, 15]);
!!!!! test failed
assert (size (n),[1, 15]) expected
    1   15
but got
    1   11
values do not match
  ***** test
 [order, n, T_f1, T_f2] = speed ("sum (x)", "", [100, 1000], "v = 0; 
for i = 1:l
ength (x), v += x(i); end");
 assert (isstruct (order));
 assert (size (order), [1, 1]);
 assert (fieldnames (order), {"p"; "a"});
 assert (isnumeric (n));
 assert (size (n), [1, 15]);
 assert (isnumeric (T_f1));
 assert (size (T_f1), [1, 15]);
 assert (isnumeric (T_f1));
 assert (size (T_f2), [1, 15]);
!!!!! test failed
subscript indices must be either positive integers or logicals
-------------------------------------------------

the first test can be correct with the following

 assert (size (n,1), 1);
 assert ((size (n,2)>10));
 assert (isnumeric (T_f1));
 assert (size (T_f1,1), 1);
 assert ((size (T_f1,2)>10));
 assert (isnumeric (T_f2));
 assert (size (T_f2,1), 1);
 assert ((size (T_f2,2)>10));

but the second test seems incorrectly implemented, and the
message:
"subscript indices must be either positive integers or logicals"
is at least puzzling.
Or is the "speed" function still incomplete ?

Regards
Marco