Mercurial > octave

comparison scripts/general/isvector.m @ 7411:83a8781b529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents a1dbe9d80eee
children eb63fbe60fab
comparison
equal deleted inserted replaced
7410:8a3b2ccc4e11 7411:83a8781b529d
34 else 34 else
35 print_usage (); 35 print_usage ();
36 endif 36 endif
37 37
38 endfunction 38 endfunction
39
40 %!assert(isvector (1));
41
42 %!assert(isvector ([1; 2; 3]));
43
44 %!assert(!(isvector ([])));
45
46 %!assert(!(isvector ([1, 2; 3, 4])));
47
48 %!test
49 %! warn_str_to_num = 0;
50 %! assert((isvector ("t")));
51
52 %!test
53 %! warn_str_to_num = 0;
54 %! assert((isvector ("test")));
55
56 %!assert(!(isvector (["test"; "ing"])));
57
58 %!test
59 %! s.a = 1;
60 %! assert((isvector (s)));
61
62 %!error isvector ();
63
64 %!error isvector ([1, 2], 2);
65