# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1294108609 28800
# Node ID 20f53b3a558f9232276fbb58d00489731962b6ff
# Parent  1f54ee6760b55058a568792bde8e2337838abca3
Add tests for sparse forms of logical matrices to islogical, isnumeric.

diff -r 1f54ee6760b5 -r 20f53b3a558f src/ChangeLog
--- a/src/ChangeLog	Sun Jan 02 21:11:24 2011 -0500
+++ b/src/ChangeLog	Mon Jan 03 18:36:49 2011 -0800
@@ -1,3 +1,8 @@
+2011-01-03  Rik  <octave@nomad.inbox5.com>
+
+	* data.cc (islogical, isnumeric): Add tests to check sparse forms of
+	logical matrices.
+
 2011-01-02  Jaroslav Hajek  <highegg@gmail.com>
 
 	* ov-bool-sparse.h (octave_sparse_bool_matrix::is_numeric_type): New
diff -r 1f54ee6760b5 -r 20f53b3a558f src/data.cc
--- a/src/data.cc	Sun Jan 02 21:11:24 2011 -0500
+++ b/src/data.cc	Mon Jan 03 18:36:49 2011 -0800
@@ -2523,6 +2523,8 @@
 %!assert (islogical(single(1)), false)
 %!assert (islogical(single(1i)), false)
 %!assert (islogical(single([1,1])), false)
+%!assert (islogical(sparse ([true, false])), true)
+%!assert (islogical(sparse ([1, 0])), false)
 
  */
 
@@ -2929,6 +2931,24 @@
   return retval;
 }
 
+/*
+
+%!assert (isnumeric(1), true)
+%!assert (isnumeric(1i), true)
+%!assert (isnumeric([1,1]), true)
+%!assert (isnumeric(single(1)), true)
+%!assert (isnumeric(single(1i)), true)
+%!assert (isnumeric(single([1,1])), true)
+%!assert (isnumeric(int8(1)), true)
+%!assert (isnumeric(uint8([1,1])), true)
+%!assert (isnumeric("Hello World"), false)
+%!assert (isnumeric(true), false)
+%!assert (isnumeric(false), false)
+%!assert (isnumeric([true, false]), false)
+%!assert (isnumeric(sparse ([true, false])), false)
+
+*/
+
 DEFUN (ismatrix, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} ismatrix (@var{a})\n\