Mercurial > hg > octave-lyh

diff test/build_sparse_tests.sh @ 7326:fcc6d853df9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-19 21:27:23 by jwe]
author jwe
date Wed, 19 Dec 2007 21:27:23 +0000
parents 40a17a87155e
children f5005d9510f4
line wrap: on
line diff
--- a/test/build_sparse_tests.sh
+++ b/test/build_sparse_tests.sh
@@ -790,6 +790,13 @@
 # =======================================================
 # sparse selection tests
 
+gen_scalar_select_tests () {
+    cat >>$TESTS <<EOF
+%!assert (sparse(42)([1,1]),sparse([42,42]))
+%!assert (sparse(42*1i)([1,1]),sparse([42,42].*1i))
+EOF
+}
+
 gen_select_tests() {
     cat >>$TESTS <<EOF
 %!test as=sparse(af);
@@ -1226,6 +1233,7 @@
 %! cidx = ceil(n*rand(1,ceil(rand*n))
 EOF
 fi
+gen_scalar_select_tests
 gen_select_tests
 echo '%!test af=real(af);' >> $TESTS
 gen_select_tests