Mercurial > octave-nkf
changeset 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 | 482cc053281b |
children | 610a4e780a19 |
files | src/DLD-FUNCTIONS/kron.cc |
diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
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) + +*/