Mercurial > octave-nkf

diff test/test_for.m @ 6587:00fad3bad2a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-26 20:23:31 by dbateman]
author dbateman
date Thu, 26 Apr 2007 20:23:31 +0000
parents 1ad66ea35fe5
children 8ebd4f842715
line wrap: on
line diff
--- a/test/test_for.m	Thu Apr 26 19:09:26 2007 +0000
+++ b/test/test_for.m	Thu Apr 26 20:23:31 2007 +0000
@@ -80,3 +80,16 @@
 %! printf_assert ("\n");
 %! assert(prog_output_assert("34"));
 
+%!test
+%! a = [1,3;2,4];
+%! j = 0;
+%! for i = cat (3, a, 4 + a)
+%!   assert (i, [1;2] + 2*j++)
+%! endfor
+
+%!test
+%! a = {1,3;2,4};
+%! j=0
+%! for i = cat (3, a, cellfun(@(x) 4 + x, a, 'UniformOutput', 0))
+%!   assert (i, {1 + 2*j; 2 + 2*j++})
+%! endfor