Mercurial > hg > octave-lyh

diff scripts/general/isvector.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
line wrap: on
line diff
--- a/scripts/general/isvector.m
+++ b/scripts/general/isvector.m
@@ -37,26 +37,21 @@
 
 endfunction
 
-%!assert(isvector (1));
-%!assert(isvector ([1; 2; 3]));
-%!assert(!(isvector ([])));
-%!assert(!(isvector ([1, 2; 3, 4])));
 
-%!test
-%! warning ("off", "Octave:str-to-num");
-%! assert((isvector ("t")));
+%!assert (isvector (1))
+%!assert (isvector ([1; 2; 3]))
+%!assert (isvector ([]), false)
+%!assert (isvector ([1, 2; 3, 4]), false)
 
-%!test
-%! warning ("off", "Octave:str-to-num");
-%! assert((isvector ("test")));
-
-%!assert(!(isvector (["test"; "ing"])));
+%!assert (isvector ("t"))
+%!assert (isvector ("test"))
+%!assert (isvector (["test"; "ing"]), false)
 
 %!test
 %! s.a = 1;
-%! assert((isvector (s)));
+%! assert (isvector (s));
 
 %% Test input validation
-%!error isvector ();
-%!error isvector ([1, 2], 2);
+%!error isvector ()
+%!error isvector ([1, 2], 2)