Mercurial > hg > octave-nkf

diff scripts/general/fliplr.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 1bfb88e78027
line wrap: on
line diff
--- a/scripts/general/fliplr.m
+++ b/scripts/general/fliplr.m
@@ -51,3 +51,12 @@
   y = x (:, nc:-1:1);
 
 endfunction
+
+%!assert((fliplr ([1, 2; 3, 4]) == [2, 1; 4, 3]
+%! && fliplr ([1, 2; 3, 4; 5, 6]) == [2, 1; 4, 3; 6, 5]
+%! && fliplr ([1, 2, 3; 4, 5, 6]) == [3, 2, 1; 6, 5, 4]));
+
+%!error <usage.*fliplr> fliplr();
+
+%!error fliplr (1, 2);
+