Index: trunk/psLib/test/astro/tst_psEarthOrientation.c =================================================================== --- trunk/psLib/test/astro/tst_psEarthOrientation.c (revision 5449) +++ trunk/psLib/test/astro/tst_psEarthOrientation.c (revision 5450) @@ -6,6 +6,6 @@ * @author d-Rob, MHPCC * -* @version $Revision: 1.4 $ $Name: not supported by cvs2svn $ -* @date $Date: 2005-10-27 20:38:19 $ +* @version $Revision: 1.5 $ $Name: not supported by cvs2svn $ +* @date $Date: 2005-10-28 02:25:22 $ * * Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii @@ -24,7 +24,7 @@ testDescription tests[] = { - {testEOCParallax, 666, "psEOCParallax()", 0, false}, - {testAberration, 667, "psAberration()", 0, false}, - {testGravityDeflect, 668, "psGravityDeflect()", 0, false}, + {testAberration, 666, "psAberration()", 0, false}, + {testGravityDeflect, 667, "psGravityDeflect()", 0, false}, + {testEOCParallax, 668, "psEOCParallax()", 0, false}, {testEOCPrecession, 669, "psEOCPrecession()", 0, false}, {testEOCPolar, 670, "psEOCPolar()", 0, false}, @@ -41,12 +41,35 @@ } -psS32 testEOCParallax(void) -{ - - return 0; -} - psS32 testAberration(void) { + psSphere *actual = NULL; + psSphere *apparent = psSphereAlloc(); + psSphere *direction = psSphereAlloc(); + psSphere *empty = NULL; + + apparent->r = 0.2; + apparent->d = 0.2; + direction->r = 0.2035; + direction->d = 0.2035; + + empty = psAberration(empty, actual, direction, 0.1); + if (empty != NULL) { + psError(PS_ERR_BAD_PARAMETER_NULL, false, + "psAberration failed to return NULL for NULL apparent input.\n"); + return 1; + } + empty = psAberration(empty, apparent, actual, 0.1); + if (empty != NULL) { + psError(PS_ERR_BAD_PARAMETER_NULL, false, + "psAberration failed to return NULL for NULL direction input.\n"); + return 2; + } + + actual = psAberration(actual, apparent, direction, 0.4); + printf("\nactual = r,d = %.8g, %.8g\n", actual->r, actual->d); + + psFree(actual); + psFree(apparent); + psFree(direction); return 0; @@ -79,5 +102,4 @@ } - actual = psGravityDeflection(actual, apparent, sun); psSphere *result = psSphereSetOffset(apparent, actual, PS_SPHERICAL, PS_RADIAN); @@ -88,4 +110,10 @@ psFree(apparent); psFree(sun); + + return 0; +} + +psS32 testEOCParallax(void) +{ return 0; Index: trunk/psLib/test/astro/tst_psSphereOps.c =================================================================== --- trunk/psLib/test/astro/tst_psSphereOps.c (revision 5449) +++ trunk/psLib/test/astro/tst_psSphereOps.c (revision 5450) @@ -6,6 +6,6 @@ * @author d-Rob, MHPCC * -* @version $Revision: 1.10 $ $Name: not supported by cvs2svn $ -* @date $Date: 2005-10-26 01:20:15 $ +* @version $Revision: 1.11 $ $Name: not supported by cvs2svn $ +* @date $Date: 2005-10-28 02:25:22 $ * * Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii @@ -71,17 +71,17 @@ double q3 = cos(a3)*cos(DELTA_P/2); - if (FLT_EPSILON < fabs(q0 - myST->q0)) { + if (DBL_EPSILON < fabs(q0 - myST->q0)) { psError(PS_ERR_UNKNOWN,true,"myST->q0 is %lf, should be %lf\n", myST->q0, q0); return 2; } - if (FLT_EPSILON < fabs(q1 - myST->q1)) { + if (DBL_EPSILON < fabs(q1 - myST->q1)) { psError(PS_ERR_UNKNOWN,true,"myST->q1 is %f, should be %f\n", myST->q1, q1); return 3; } - if (FLT_EPSILON < fabs(q2 - myST->q2)) { + if (DBL_EPSILON < fabs(q2 - myST->q2)) { psError(PS_ERR_UNKNOWN,true,"myST->q2 is %f, should be %f\n", myST->q2, q2); return 4; } - if (FLT_EPSILON < fabs(q3 - myST->q3)) { + if (DBL_EPSILON < fabs(q3 - myST->q3)) { psError(PS_ERR_UNKNOWN,true,"myST->q0 is %f, should be %f\n", myST->q3, q3); return 5; @@ -239,6 +239,6 @@ // check ecliptic transforms for correctness - if (abs(RAD_TO_DEG(ecliptic->r) - lambda[x]) > TOLERANCE || - abs(RAD_TO_DEG(ecliptic->d) - beta[x]) > TOLERANCE) { + if (fabs(RAD_TO_DEG(ecliptic->r) - lambda[x]) > TOLERANCE || + fabs(RAD_TO_DEG(ecliptic->d) - beta[x]) > TOLERANCE) { psError(PS_ERR_UNKNOWN, false, "Ecliptic tranformation incorrect. Result is (%g,%g), expected (%g,%g)", @@ -247,6 +247,6 @@ return 1; } - if (abs(RAD_TO_DEG(icrsFromEcliptic->r) - alpha[x]) > TOLERANCE || - abs(RAD_TO_DEG(icrsFromEcliptic->d) - delta[x]) > TOLERANCE) { + if (fabs(RAD_TO_DEG(icrsFromEcliptic->r) - alpha[x]) > TOLERANCE || + fabs(RAD_TO_DEG(icrsFromEcliptic->d) - delta[x]) > TOLERANCE) { psError(PS_ERR_UNKNOWN, false, "ICRS for Ecliptic tranformation incorrect. Result is (%g,%g), expected (%g,%g)", @@ -269,6 +269,6 @@ // check ecliptic transforms for correctness - if (abs(RAD_TO_DEG(galactic->r) - l[x]) > TOLERANCE || - abs(RAD_TO_DEG(galactic->d) - b[x]) > TOLERANCE) { + if (fabs(RAD_TO_DEG(galactic->r) - l[x]) > TOLERANCE || + fabs(RAD_TO_DEG(galactic->d) - b[x]) > TOLERANCE) { psError(PS_ERR_UNKNOWN, false, "Galactic tranformation incorrect. Result is (%g,%g), expected (%g,%g)", @@ -280,6 +280,6 @@ return 3; } - if (abs(RAD_TO_DEG(icrsFromGalactic->r) - alpha[x]) > TOLERANCE || - abs(RAD_TO_DEG(icrsFromGalactic->d) - delta[x]) > TOLERANCE) { + if (fabs(RAD_TO_DEG(icrsFromGalactic->r) - alpha[x]) > TOLERANCE || + fabs(RAD_TO_DEG(icrsFromGalactic->d) - delta[x]) > TOLERANCE) { psError(PS_ERR_UNKNOWN, false, "ICRS for Galactic tranformation incorrect. Result is (%g,%g), expected (%g,%g)", @@ -498,5 +498,5 @@ output->d *= -1.0; empty = psSphereGetOffset(origin, output, PS_LINEAR, PS_RADIAN); - if ( fabs(offset->r - empty->r) > 0.0001 || fabs(offset->d - empty->r) > 0.0001 ) { + if ( fabs(offset->r - empty->r) > 0.0001 || abs(offset->d - empty->r) > 0.0001 ) { psError(PS_ERR_BAD_PARAMETER_VALUE, false, "psSphereGetOffset failed to return correct linear offset values.\n"); Index: trunk/psLib/test/astro/verified/tst_psEarthOrientation.stderr =================================================================== --- trunk/psLib/test/astro/verified/tst_psEarthOrientation.stderr (revision 5449) +++ trunk/psLib/test/astro/verified/tst_psEarthOrientation.stderr (revision 5450) @@ -1,11 +1,2 @@ -/***************************** TESTPOINT ******************************************\ -* TestFile: tst_psEarthOrientation.c * -* TestPoint: psEarthOrientation{psEOCParallax()} * -* TestType: Positive * -\**********************************************************************************/ - - ----> TESTPOINT PASSED (psEarthOrientation{psEOCParallax()} | tst_psEarthOrientation.c) - /***************************** TESTPOINT ******************************************\ * TestFile: tst_psEarthOrientation.c * @@ -14,4 +5,8 @@ \**********************************************************************************/ +