# HG changeset patch
# User Jordi Gutiérrez Hermoso <jordigh@gmail.com>
# Date 1310830939 18000
# Node ID 5ecdb60ddf0f3baebfc0c7470d4e3ae97482dadc
# Parent  482cc053281bb317809310a5d636f4a65be7005e
codesprint: Write two tests for kron.cc

diff -r 482cc053281b -r 5ecdb60ddf0f src/DLD-FUNCTIONS/kron.cc
--- 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)
+
+*/