Mercurial > hg > octave-nkf

changeset 12790:5ecdb60ddf0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
+++ b/src/DLD-FUNCTIONS/kron.cc
@@ -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)
+
+*/