Mercurial > hg > octave-lyh

comparison scripts/general/isrow.m @ 14039:e98140f84ae0 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test: Rewrite %!tests to preserve warning state. * iscolumn.m, isrow.m, isscalar.m, isvector.m, example.m: Rewrite %!tests to preserve warning state.
author Rik <octave@nomad.inbox5.com>
date Mon, 12 Dec 2011 21:40:07 -0800
parents 132c89bb44e3
children 72c96de7a403
comparison
equal deleted inserted replaced
14038:b0cdd60db5e5 14039:e98140f84ae0
33 sz = size (x); 33 sz = size (x);
34 retval = (ndims (x) == 2 && (sz(1) == 1)); 34 retval = (ndims (x) == 2 && (sz(1) == 1));
35 35
36 endfunction 36 endfunction
37 37
38 %!assert(isrow ([1, 2, 3]));
39 %!assert(isrow ([1; 2; 3]), false);
40 %!assert(isrow (1));
41 %!assert(isrow ([]), false);
42 %!assert(isrow ([1, 2; 3, 4]), false);
43 38
44 %!test 39 %!assert (isrow ([1, 2, 3]))
45 %! warning ("off", "Octave:str-to-num"); 40 %!assert (isrow ([1; 2; 3]), false)
46 %! assert((isrow ("t"))); 41 %!assert (isrow (1))
47 %!test 42 %!assert (isrow ([]), false)
48 %! warning ("off", "Octave:str-to-num"); 43 %!assert (isrow ([1, 2; 3, 4]), false)
49 %! assert((isrow ("test")));
50 44
51 %!assert(!(isrow (["test"; "ing"]))); 45 %!assert (isrow ("t"))
46 %!assert (isrow ("test"))
47 %!assert (isrow (["test"; "ing"]), false)
52 48
53 %!test 49 %!test
54 %! s.a = 1; 50 %! s.a = 1;
55 %! assert((isrow (s))); 51 %! assert (isrow (s));
56 52
57 %% Test input validation 53 %% Test input validation
58 %!error isrow (); 54 %!error isrow ()
59 %!error isrow ([1, 2], 2); 55 %!error isrow ([1, 2], 2)
60 56