[genius] 3 new tests

[George Lebl <jirka src gnome org>]

commit 4732662f1dfc0b5daba9fb437d445a95b5e1091a
Author: Jiri (George) Lebl <jirka 5z com>
Date:   Mon Apr 9 22:03:16 2012 -0500

    3 new tests

 src/geniustests.txt |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/src/geniustests.txt b/src/geniustests.txt
index e71e8f0..a28847f 100644
--- a/src/geniustests.txt
+++ b/src/geniustests.txt
@@ -1104,6 +1104,9 @@ LinearRecursiveSequence ([0,1],[1,1],[0,1,2,3,4,5,6])		[0,1,1,2,3,5,8]
 LinearRecursiveSequence ([5,7],[1,2],2)				19
 LinearRecursiveSequence ([1,3,5],[1,2,-1],3)			2
 LinearRecursiveSequence ([1,3,5],[1,2,-1],null)+1		((null)+1)
+prod n=1 to 20 do (A=randint(10,7,7)-4*ones(7,7);IsPositiveSemidefinite(A'*A))	true
+prod n=1 to 20 do (A=randint(10,3,7)-4*ones(3,7);IsPositiveSemidefinite(A'*A))	true
+prod n=1 to 20 do (A=randint(10,7,7)-4*ones(7,7);(rank(A'*A) < 7) or IsPositiveDefinite(A'*A))	true
 load "nullspacetest.gel"					true
 load "longtest.gel"						true
 load "testprec.gel"						true