# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1261776033 -3600
# Node ID 73fc43e01f4cd7d7bab41f1fe2ce9246bc58f4a5
# Parent  a14dc255427fa305979ab03408e97e9a8f266fac
allow issquare on arbitrary data

diff -r a14dc255427f -r 73fc43e01f4c scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Dec 25 21:26:16 2009 +0100
+++ b/scripts/ChangeLog	Fri Dec 25 22:20:33 2009 +0100
@@ -1,3 +1,9 @@
+2009-12-25  Jaroslav Hajek  <highegg@gmail.com>
+
+	* general/issquare.m: Do not check type.
+	* linear-algebra/issymmetric.m: Strengthen test.
+	* linear-algebra/ishermitian.m: Strengthen test.
+
 2009-12-25  Jaroslav Hajek  <highegg@gmail.com>
 
 	* strings/strfind.m: Remove.
diff -r a14dc255427f -r 73fc43e01f4c scripts/general/issquare.m
--- a/scripts/general/issquare.m	Fri Dec 25 21:26:16 2009 +0100
+++ b/scripts/general/issquare.m	Fri Dec 25 22:20:33 2009 +0100
@@ -30,7 +30,7 @@
 function retval = issquare (x)
 
   if (nargin == 1)
-    if (ismatrix (x) && ndims (x) == 2)
+    if (ndims (x) == 2)
       [r, c] = size (x);
       retval = r == c;
     else
@@ -51,16 +51,16 @@
 %!assert(issquare ([1, 2; 3, 4]));
 
 %!test
-%! assert(!(issquare ("t")));
+%! assert(issquare ("t"));
 
 %!assert(!(issquare ("test")));
 
 %!test
-%! assert(!(issquare (["test"; "ing"; "1"; "2"])));
+%! assert(issquare (["test"; "ing"; "1"; "2"]));
 
 %!test
 %! s.a = 1;
-%! assert(!(issquare (s)));
+%! assert(issquare (s));
 
 %!assert(!(issquare ([1, 2; 3, 4; 5, 6])));
 
diff -r a14dc255427f -r 73fc43e01f4c scripts/linear-algebra/ishermitian.m
--- a/scripts/linear-algebra/ishermitian.m	Fri Dec 25 21:26:16 2009 +0100
+++ b/scripts/linear-algebra/ishermitian.m	Fri Dec 25 22:20:33 2009 +0100
@@ -38,7 +38,7 @@
     print_usage ();
   endif
 
-  retval = issquare (x);
+  retval = isnumeric (x) && issquare (x);
   if (retval)
     if (tol == 0)
       retval = all ((x == x')(:));
diff -r a14dc255427f -r 73fc43e01f4c scripts/linear-algebra/issymmetric.m
--- a/scripts/linear-algebra/issymmetric.m	Fri Dec 25 21:26:16 2009 +0100
+++ b/scripts/linear-algebra/issymmetric.m	Fri Dec 25 22:20:33 2009 +0100
@@ -39,7 +39,7 @@
     print_usage ();
   endif
 
-  retval = issquare (x);
+  retval = isnumeric (x) && issquare (x);
   if (retval)
     if (tol == 0)
       retval = all ((x == x.')(:));