Index: /trunk/psLib/test/astronomy/tst_psCoord.c
===================================================================
--- /trunk/psLib/test/astronomy/tst_psCoord.c	(revision 3364)
+++ /trunk/psLib/test/astronomy/tst_psCoord.c	(revision 3365)
@@ -6,8 +6,7 @@
 *  @author GLG, MHPCC
 *
-*  @version $Revision: 1.20 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-03-02 03:40:37 $
+*  @version $Revision: 1.21 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-03-02 19:41:31 $
 *
-*  XXX: Must test psSpherePrecess.
 *  XXX: THe psProject() and psDeproject() functions do not work fully.  They
 *  are not tested here.  The SphereGet/SetOffset() code that rely on them
@@ -990,14 +989,19 @@
     // Calculate precess
     outputCoord = psSpherePrecess(inputCoord, fromTime, toTime);
+    // Verify return is not NULL
+    if(outputCoord == NULL) {
+        psError(PS_ERR_UNKNOWN,true,"Returned NULL not expected");
+        return 1;
+    }
     // Verify return with expected values
     if( fabs(outputCoord->r - SPHERE_PRECESS_TP1_EXPECT_R) > ERROR_TOL) {
         psError(PS_ERR_UNKNOWN,true,"Precess r = %lg not equal to expected = %lg",
                 outputCoord->r,SPHERE_PRECESS_TP1_EXPECT_R);
-        return 1;
+        return 2;
     }
     if( fabs(outputCoord->d - SPHERE_PRECESS_TP1_EXPECT_D) > ERROR_TOL) {
         psError(PS_ERR_UNKNOWN,true,"Precess d = %lg not equal to expected = %lg",
                 outputCoord->d,SPHERE_PRECESS_TP1_EXPECT_D);
-        return 2;
+        return 3;
     }
     psFree(outputCoord);
@@ -1011,14 +1015,19 @@
     // Calculate precess
     outputCoord = psSpherePrecess(inputCoord, fromTime, toTime);
+    // Verify return is not NULL
+    if(outputCoord == NULL) {
+        psError(PS_ERR_UNKNOWN,true,"Returned NULL not expected");
+        return 4;
+    }
     // Verify return with expected values
     if( fabs(outputCoord->r - SPHERE_PRECESS_TP2_EXPECT_R) > ERROR_TOL) {
         psError(PS_ERR_UNKNOWN,true,"Precess r = %lg not equal to expected = %lg",
                 outputCoord->r,SPHERE_PRECESS_TP2_EXPECT_R);
-        return 3;
+        return 5;
     }
     if( fabs(outputCoord->d - SPHERE_PRECESS_TP2_EXPECT_D) > ERROR_TOL) {
         psError(PS_ERR_UNKNOWN,true,"Precess d = %lg not equal to expected = %lg",
                 outputCoord->d,SPHERE_PRECESS_TP2_EXPECT_D);
-        return 4;
+        return 6;
     }
     psFree(outputCoord);
@@ -1032,14 +1041,19 @@
     // Calculate precess
     outputCoord = psSpherePrecess(inputCoord, fromTime, toTime);
+    // Verify return is not NULL
+    if(outputCoord == NULL) {
+        psError(PS_ERR_UNKNOWN,true,"Returned NULL not expected");
+        return 7;
+    }
     // Verify return with expected values
     if( fabs(outputCoord->r - SPHERE_PRECESS_TP3_EXPECT_R) > ERROR_TOL) {
         psError(PS_ERR_UNKNOWN,true,"Precess r = %lg not equal to expected = %lg",
                 outputCoord->r,SPHERE_PRECESS_TP3_EXPECT_R);
-        return 5;
+        return 8;
     }
     if( fabs(outputCoord->d - SPHERE_PRECESS_TP3_EXPECT_D) > ERROR_TOL) {
         psError(PS_ERR_UNKNOWN,true,"Precess d = %lg not equal to expected = %lg",
                 outputCoord->d,SPHERE_PRECESS_TP3_EXPECT_D);
-        return 6;
+        return 9;
     }
     psFree(outputCoord);
@@ -1050,5 +1064,5 @@
     if(outputCoord != NULL) {
         psError(PS_ERR_UNKNOWN,true,"Did not return NULL with invalid input");
-        return 7;
+        return 10;
     }
 
@@ -1058,5 +1072,5 @@
     if(outputCoord != NULL) {
         psError(PS_ERR_UNKNOWN,true,"Did not return NULL with invalid input");
-        return 8;
+        return 11;
     }
 
@@ -1066,5 +1080,5 @@
     if(outputCoord != NULL) {
         psError(PS_ERR_UNKNOWN,true,"Did not return NULL with invalid input");
-        return 9;
+        return 12;
     }