Changeset 12607 for trunk/psLib/test/astro/tap_psSphereOps_all.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_psSphereOps_all.c (modified) (13 diffs)

trunk/psLib/test/astro/tap_psSphereOps_all.c

@@ -77 +77 @@
         ok( myST != NULL && psMemCheckSphereRot(myST),
             "psSphereRotAlloc:               return allocated SphereRot for valid inputs.");
-        ok_double(q0, myST->q0,
+        is_double(q0, myST->q0,
                   "psSphereRotAlloc:               return correct q0 value.");
-        ok_double(q1, myST->q1,
+        is_double(q1, myST->q1,
                   "psSphereRotAlloc:               return correct q1 value.");
-        ok_double(q2, myST->q2,
+        is_double(q2, myST->q2,
                   "psSphereRotAlloc:               return correct q2 value.");
-        ok_double(q3, myST->q3,
+        is_double(q3, myST->q3,
                   "psSphereRotAlloc:               return correct q3 value.");
     }
@@ -107 +107 @@
         ok( myST != NULL && psMemCheckSphereRot(myST),
             "psSphereRotQuat:                return allocated SphereRot for valid inputs.");
-        ok_double(q0, myST->q0,
+        is_double(q0, myST->q0,
                   "psSphereRotQuat:               return correct q0 value.");
-        ok_double(q1, myST->q1,
+        is_double(q1, myST->q1,
                   "psSphereRotQuat:               return correct q1 value.");
-        ok_double(q2, myST->q2,
+        is_double(q2, myST->q2,
                   "psSphereRotQuat:               return correct q2 value.");
-        ok_double(q3, myST->q3,
+        is_double(q3, myST->q3,
                   "psSphereRotQuat:               return correct q3 value.");
     }
@@ -190 +190 @@
                      "Skipping 1 tests because psSphereRotApply failed!");
         out2 = psSphereRotApply(out2, s1, out);
-        ok_double( out2->r, 0.0,
+        is_double( out2->r, 0.0,
                    "psSphereRotConjugate:          return correct SphereRot values.");
-        ok_double( out2->d, 0.0,
+        is_double( out2->d, 0.0,
                    "psSphereRotConjugate:          return correct SphereRot values.");
         skip_end();
@@ -207 +207 @@
     {
         s1 = psSphereRotInvert(-PHI_P, -DELTA_P, -ALPHA_P);
-        ok_double(s1->q0, myST->q0,
+        is_double(s1->q0, myST->q0,
                   "psSphereRotInvert:             return correct q0 value.");
-        ok_double(s1->q1, myST->q1,
+        is_double(s1->q1, myST->q1,
                   "psSphereRotInvert:             return correct q1 value.");
-        ok_double(s1->q2, myST->q2,
+        is_double(s1->q2, myST->q2,
                   "psSphereRotInvert:             return correct q2 value.");
-        ok_double(s1->q3, myST->q3,
+        is_double(s1->q3, myST->q3,
                   "psSphereRotInvert:             return correct q3 value.");
         psFree(s1);
@@ -240 +240 @@
         icrs->d = DEG_TO_RAD(90.0);
         psSphere* ecliptic = psSphereRotApply(NULL, s1, icrs);
-        ok_double_tol(DEG_TO_RAD(90.0), ecliptic->r, 0.00001,
+        is_double_tol(DEG_TO_RAD(90.0), ecliptic->r, 0.00001,
                       "psSphereRotICRSToEcliptic:     return correct SphereRot for MJD_2000 date.");
-        ok_double_tol(DEG_TO_RAD(66.560719), ecliptic->d, 0.00001,
+        is_double_tol(DEG_TO_RAD(66.560719), ecliptic->d, 0.00001,
                       "psSphereRotICRSToEcliptic:     return correct SphereRot for MJD_2000 date.");
         psFree(ecliptic);
@@ -271 +271 @@
         psSphere* fromEcliptic = psSphereRotApply(NULL, s2, ecliptic);
         //XXX:  Pretty sure the following can be 180 degrees OR 0 degrees. (= the poles)
-        ok_double_tol(DEG_TO_RAD(180.0), fromEcliptic->r, 0.00001,
+        is_double_tol(DEG_TO_RAD(180.0), fromEcliptic->r, 0.00001,
                       "psSphereRotEclipticToICRS:     return correct SphereRot for MJD_2000 date.");
-        ok_double_tol(DEG_TO_RAD(90.0), fromEcliptic->d, 0.00001,
+        is_double_tol(DEG_TO_RAD(90.0), fromEcliptic->d, 0.00001,
                       "psSphereRotEclipticToICRS:     return correct SphereRot for MJD_2000 date.");
         psFree(ecliptic);
@@ -289 +289 @@
         s2 = psSphereRotICRSToGalactic();
         galactic = psSphereRotApply(NULL, s2, icrs);
-        ok_double_tol(DEG_TO_RAD(122.93192), galactic->r, 0.00001,
+        is_double_tol(DEG_TO_RAD(122.93192), galactic->r, 0.00001,
                       "psSphereRotICRSToGalactic:     return correct SphereRot.");
-        ok_double_tol(DEG_TO_RAD(27.12825), galactic->d, 0.00001,
+        is_double_tol(DEG_TO_RAD(27.12825), galactic->d, 0.00001,
                       "psSphereRotICRSToGalactic:     return correct SphereRot.");
     }
@@ -300 +300 @@
         psSphere *test = psSphereRotApply(NULL, s1, galactic);
         //XXX:  Pretty sure the following can be 180 degrees OR 0 degrees. (= the poles)
-        ok_double_tol(DEG_TO_RAD(180.0), test->r, 0.00001,
+        is_double_tol(DEG_TO_RAD(180.0), test->r, 0.00001,
                       "psSphereRotGalacticToICRS:     return correct SphereRot.");
-        ok_double_tol(DEG_TO_RAD(90.0), test->d, 0.00001,
+        is_double_tol(DEG_TO_RAD(90.0), test->d, 0.00001,
                       "psSphereRotGalacticToICRS:     return correct SphereRot.");
         psFree(test);
@@ -382 +382 @@
         output = psSphereGetOffset(origin, offset, PS_SPHERICAL, PS_ARCMIN);
         empty = psSphereGetOffset(origin, offset, PS_SPHERICAL, PS_DEGREE);
-        ok_double_tol(DEG_TO_RAD(empty->r), MIN_TO_RAD(output->r), 0.0001,
+        is_double_tol(DEG_TO_RAD(empty->r), MIN_TO_RAD(output->r), 0.0001,
                       "psSphereGetOffset:             return correct offset for differing units.");
-        ok_double_tol(DEG_TO_RAD(empty->d), MIN_TO_RAD(output->d), 0.0001,
+        is_double_tol(DEG_TO_RAD(empty->d), MIN_TO_RAD(output->d), 0.0001,
                       "psSphereGetOffset:             return correct offset for differing units.");
         psFree(output);
@@ -426 +426 @@
         skip_start(  output == NULL, 2,
                      "Skipping 2 tests because Sphere output is NULL!");
-        ok_double(output->r, M_PI/4.0,
+        is_double(output->r, M_PI/4.0,
                   "psSphereSetOffset:             return correct spherical offset.");
-        ok_double(output->d, M_PI/6.0,
+        is_double(output->d, M_PI/6.0,
                   "psSphereSetOffset:             return correct spherical offset.");
         skip_end();
@@ -443 +443 @@
         skip_start(  empty == NULL, 2,
                      "Skipping 2 tests because Sphere output is NULL!");
-        ok_double_tol(empty->r, offset->r, 0.00001,
+        is_double_tol(empty->r, offset->r, 0.00001,
                       "psSphereGetOffset:             return correct spherical offset.");
-        ok_double_tol(empty->d, offset->d, 0.00001,
+        is_double_tol(empty->d, offset->d, 0.00001,
                       "psSphereGetOffset:             return correct spherical offset.");
         skip_end();
@@ -464 +464 @@
         skip_start(  empty == NULL, 2,
                      "Skipping 2 tests because Sphere output is NULL!");
-        ok_double_tol(empty->r, (M_PI / 4.0), 0.0001,
+        is_double_tol(empty->r, (M_PI / 4.0), 0.0001,
                       "psSphereGetOffset:             return correct spherical offset.");
-        ok_double_tol(empty->d, (M_PI / 6.0), 0.0001,
+        is_double_tol(empty->d, (M_PI / 6.0), 0.0001,
                       "psSphereGetOffset:             return correct spherical offset.");
         skip_end();
@@ -480 +480 @@
         offset->d = (M_PI / 6.0);     //30 deg
         empty = psSphereSetOffset(origin, offset, PS_SPHERICAL, PS_RADIAN);
-        ok_double_tol(empty->r, offset->r, 0.0001,
+        is_double_tol(empty->r, offset->r, 0.0001,
                       "psSphereSetOffset:             return correct offset for differing units.");
-        ok_double_tol(empty->d, offset->d, 0.0001,
+        is_double_tol(empty->d, offset->d, 0.0001,
                       "psSphereSetOffset:             return correct offset for differing units.");
         psFree(output);