Changeset 12607 for trunk/psLib/test/astro/tap_psEarthOrientation_motion.c

Timestamp:

Mar 27, 2007, 12:52:03 PM (19 years ago)

Author:

jhoblitt

Message:

s/is_float/is_float/g
s/is_float_tol/is_float_tol/g
s/is_double/is_double/g
s/is_double_tol/is_double_tol/g
s/is_str/is_str/g
s/is_strn/is_strn/g

File:

• trunk/psLib/test/astro/tap_psEarthOrientation_motion.c (modified) (9 diffs)

trunk/psLib/test/astro/tap_psEarthOrientation_motion.c

@@ -114 +114 @@
         skip_start(  ep == NULL, 3,
                      "Skipping 3 tests because psEarthPole is NULL!");
-        ok_double_tol(ep->x, x, 0.1,
+        is_double_tol(ep->x, x, 0.1,
                       "psEOC_PrecessionModel:          return valid EarthPole for valid inputs (x).");
-        ok_double_tol(ep->y, y, 0.1,
+        is_double_tol(ep->y, y, 0.1,
                       "psEOC_PrecessionModel:          return valid EarthPole for valid inputs (y).");
-        ok_double_tol(ep->s, s, 0.1,
+        is_double_tol(ep->s, s, 0.1,
                       "psEOC_PrecessionModel:          return valid EarthPole for valid inputs (s).");
         skip_end();
@@ -198 +198 @@
         skip_start(  polarMotion == NULL, 3,
                      "Skipping 3 tests because psEarthPole is NULL!");
-        ok_double_tol(polarMotion->x, x, 0.1,
+        is_double_tol(polarMotion->x, x, 0.1,
                       "psEOC_GetPolarMotion:          return valid EarthPole for valid inputs "
                       "(x) - IERS B.");
-        ok_double_tol(polarMotion->y, y, 0.1,
+        is_double_tol(polarMotion->y, y, 0.1,
                       "psEOC_GetPolarMotion:          return valid EarthPole for valid inputs "
                       "(y) - IERS B.");
-        ok_double_tol(polarMotion->s, s, 0.1,
+        is_double_tol(polarMotion->s, s, 0.1,
                       "psEOC_GetPolarMotion:          return valid EarthPole for valid inputs "
                       "(s) - IERS B.");
@@ -219 +219 @@
         skip_start(  polarMotion == NULL, 3,
                      "Skipping 3 tests because psEarthPole is NULL!");
-        ok_double_tol(polarMotion->x, x, 0.1,
+        is_double_tol(polarMotion->x, x, 0.1,
                       "psEOC_GetPolarMotion:          return valid EarthPole for valid inputs "
                       "(x) - IERS A.");
-        ok_double_tol(polarMotion->y, y, 0.1,
+        is_double_tol(polarMotion->y, y, 0.1,
                       "psEOC_GetPolarMotion:          return valid EarthPole for valid inputs "
                       "(y) - IERS A.");
-        ok_double_tol(polarMotion->s, s, 0.1,
+        is_double_tol(polarMotion->s, s, 0.1,
                       "psEOC_GetPolarMotion:          return valid EarthPole for valid inputs "
                       "(s) - IERS A.");
@@ -289 +289 @@
         skip_start(  out == NULL, 4,
                      "Skipping 4 tests because psSphereRot output is NULL!");
-        ok_double_tol( out->q0, q0, 0.0001,
+        is_double_tol( out->q0, q0, 0.0001,
                        "psSphereRot_CEOtoGCRS:         return correct psSphereRot for valid input (q0).");
-        ok_double_tol( out->q1, q1, 0.0001,
+        is_double_tol( out->q1, q1, 0.0001,
                        "psSphereRot_CEOtoGCRS:         return correct psSphereRot for valid input (q1).");
-        ok_double_tol( out->q2, q2, 0.0001,
+        is_double_tol( out->q2, q2, 0.0001,
                        "psSphereRot_CEOtoGCRS:         return correct psSphereRot for valid input (q2).");
-        ok_double_tol( out->q3, -q3, 0.0001,
+        is_double_tol( out->q3, -q3, 0.0001,
                        "psSphereRot_CEOtoGCRS:         return correct psSphereRot for valid input (q3).");
         skip_end();
@@ -355 +355 @@
         psSphere *result = psSphereRotApply(NULL, earthRot, obj);
         psCube *cube = psSphereToCube(result);
-        ok_double_tol( cube->x, x, 0.0001,
+        is_double_tol( cube->x, x, 0.0001,
                        "psSphereRot_TEOtoCEO:          return NULL for NULL time input. (x)");
-        ok_double_tol( cube->y, y, 0.0001,
+        is_double_tol( cube->y, y, 0.0001,
                        "psSphereRot_TEOtoCEO:          return NULL for NULL time input. (y)");
-        ok_double_tol( cube->z, z, 0.0001,
+        is_double_tol( cube->z, z, 0.0001,
                        "psSphereRot_TEOtoCEO:          return NULL for NULL time input. (z)");
         psFree(earthRot);
@@ -390 +390 @@
         skip_start(  out == NULL, 4,
                      "Skipping 4 tests because psSphereRot output is NULL!");
-        ok_double_tol( out->q0, q0, 0.0001,
+        is_double_tol( out->q0, q0, 0.0001,
                        "psSphereRot_ITRStoTEO:         return correct psSphereRot for valid input (q0).");
-        ok_double_tol( out->q1, q1, 0.0001,
+        is_double_tol( out->q1, q1, 0.0001,
                        "psSphereRot_ITRStoTEO:         return correct psSphereRot for valid input (q1).");
-        ok_double_tol( out->q2, q2, 0.0001,
+        is_double_tol( out->q2, q2, 0.0001,
                        "psSphereRot_ITRStoTEO:         return correct psSphereRot for valid input (q2).");
-        ok_double_tol( out->q3, q3, 0.0001,
+        is_double_tol( out->q3, q3, 0.0001,
                        "psSphereRot_ITRStoTEO:         return correct psSphereRot for valid input (q3).");
         skip_end();
@@ -462 +462 @@
         skip_start( rot == NULL || outputCoord == NULL, 2,
                     "Skipping 2 tests because psSphereRot output is NULL!");
-        ok_double_tol( outputCoord->r, SPHERE_PRECESS_TP1_EXPECT_R, ERROR_TOL,
+        is_double_tol( outputCoord->r, SPHERE_PRECESS_TP1_EXPECT_R, ERROR_TOL,
                        "psSpherePrecess:               return correct psSphereRot for valid"
                        " inputs and PS_PRECESS_ROUGH mode. (r)");
-        ok_double_tol( outputCoord->d, SPHERE_PRECESS_TP1_EXPECT_D, ERROR_TOL,
+        is_double_tol( outputCoord->d, SPHERE_PRECESS_TP1_EXPECT_D, ERROR_TOL,
                        "psSpherePrecess:               return correct psSphereRot for valid"
                        " inputs and PS_PRECESS_ROUGH mode. (d)");
@@ -485 +485 @@
         skip_start( rot == NULL || outputCoord == NULL, 2,
                     "Skipping 2 tests because psSphereRot output is NULL!");
-        ok_double_tol( outputCoord->r, SPHERE_PRECESS_TP2_EXPECT_R, ERROR_TOL,
+        is_double_tol( outputCoord->r, SPHERE_PRECESS_TP2_EXPECT_R, ERROR_TOL,
                        "psSpherePrecess:               return correct psSphereRot for valid"
                        " inputs and PS_PRECESS_ROUGH mode. (r)");
-        ok_double_tol( outputCoord->d, SPHERE_PRECESS_TP2_EXPECT_D, ERROR_TOL,
+        is_double_tol( outputCoord->d, SPHERE_PRECESS_TP2_EXPECT_D, ERROR_TOL,
                        "psSpherePrecess:               return correct psSphereRot for valid"
                        " inputs and PS_PRECESS_ROUGH mode. (d)");
@@ -508 +508 @@
         skip_start( rot == NULL || outputCoord == NULL, 2,
                     "Skipping 2 tests because psSphereRot output is NULL!");
-        ok_double_tol( outputCoord->r, SPHERE_PRECESS_TP3_EXPECT_R, ERROR_TOL,
+        is_double_tol( outputCoord->r, SPHERE_PRECESS_TP3_EXPECT_R, ERROR_TOL,
                        "psSpherePrecess:               return correct psSphereRot for valid"
                        " inputs and PS_PRECESS_ROUGH mode. (r)");
-        ok_double_tol( outputCoord->d, SPHERE_PRECESS_TP3_EXPECT_D, ERROR_TOL,
+        is_double_tol( outputCoord->d, SPHERE_PRECESS_TP3_EXPECT_D, ERROR_TOL,
                        "psSpherePrecess:               return correct psSphereRot for valid"
                        " inputs and PS_PRECESS_ROUGH mode. (d)");