Mercurial > octave
diff src/DLD-FUNCTIONS/kron.cc @ 12790:5ecdb60ddf0f
codesprint: Write two tests for kron.cc
author | Jordi Gutiérrez Hermoso <jordigh@gmail.com> |
---|---|
date | Sat, 16 Jul 2011 10:42:19 -0500 |
parents | 12df7854fa7c |
children | 77857d6fe074 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/kron.cc Sat Jul 16 08:16:40 2011 -0700 +++ b/src/DLD-FUNCTIONS/kron.cc Sat Jul 16 10:42:19 2011 -0500 @@ -264,3 +264,15 @@ return retval; } + +/* + +%!test +%! x = ones(2); +%! assert( kron (x, x), ones (4)); + +%!test +%! z = [1, 2, 3, 4; 1, 2, 3, 4; 1, 2, 3, 4]; +%! assert( kron (1:4, ones (3, 1)), z) + +*/