Mercurial > hg > octave-nkf

diff scripts/general/flipdim.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 9493880928c8
children 886256714823
line wrap: on
line diff
--- a/scripts/general/flipdim.m
+++ b/scripts/general/flipdim.m
@@ -55,3 +55,12 @@
   y = x(idx{:});
 
 endfunction
+
+%!error flipdim ();
+%!error flipdim (1, 2, 3);
+
+%!assert (flipdim ([1,2;3,4]), flipdim ([1,2;3,4], 1));
+%!assert (flipdim ([1,2;3,4], 2) [2,1;4,3]);
+%!assert (flipdim ([1,2;3,4], 3), [1,2;3,4]);
+
+## FIXME -- we need tests for multidimensional arrays.