Mercurial > hg > octave-lyh

diff scripts/general/common_size.m @ 12795:9e7ebbaf69ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
codesprint: new tests for files in scripts/general directory * bitget.m, bitset.m, colon.m, common_size.m, flipdim.m, isdir.m, nextpow2.m, postpad.m, prepad.m, rat.m, rotdim.m: New tests.
author John W. Eaton <jwe@octave.org>
date Sat, 16 Jul 2011 12:46:22 -0400
parents fd0a3ac60b0e
children cefd568ea073
line wrap: on
line diff
--- a/scripts/general/common_size.m
+++ b/scripts/general/common_size.m
@@ -78,3 +78,13 @@
     endif
   endif
 endfunction
+
+%!error common_size ();
+
+%!test
+%! m = [1,2;3,4];
+%! [err, a, b, c] = common_size (m, 3, 5);
+%! assert (err, 0);
+%! assert (a, m);
+%! assert (b, [3,3;3,3]);
+%! assert (c, [5,5;5,5]);