Index: /trunk/psLib/test/astronomy/Makefile
===================================================================
--- /trunk/psLib/test/astronomy/Makefile	(revision 2064)
+++ /trunk/psLib/test/astronomy/Makefile	(revision 2065)
@@ -3,6 +3,6 @@
 ##  Makefile:   test/astronomy
 ##
-##  $Revision: 1.16 $  $Name: not supported by cvs2svn $
-##  $Date: 2004-10-12 23:06:08 $
+##  $Revision: 1.17 $  $Name: not supported by cvs2svn $
+##  $Date: 2004-10-12 23:22:05 $
 ##
 ##  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -30,5 +30,6 @@
          tst_psAstrometry \
          tst_psAstrometry01 \
-         tst_psAstrometry02
+         tst_psAstrometry02 \
+         tst_psAstrometry03
 
 OBJS = $(addprefix builddir/,$(addsuffix .o,$(TARGET)))
Index: /trunk/psLib/test/astronomy/tst_psAstrometry02.c
===================================================================
--- /trunk/psLib/test/astronomy/tst_psAstrometry02.c	(revision 2064)
+++ /trunk/psLib/test/astronomy/tst_psAstrometry02.c	(revision 2065)
@@ -2,5 +2,4 @@
 #include "pslib.h"
 static int test1( void );
-
 testDescription tests[] = {
                               {test1, 0000, "Hey", 0, false},
@@ -66,5 +65,4 @@
         psFree(chips[i]);
     }
-
     return(0);
 }
Index: /trunk/psLib/test/astronomy/tst_psAstrometry03.c
===================================================================
--- /trunk/psLib/test/astronomy/tst_psAstrometry03.c	(revision 2065)
+++ /trunk/psLib/test/astronomy/tst_psAstrometry03.c	(revision 2065)
@@ -0,0 +1,33 @@
+#include "psTest.h"
+#include "pslib.h"
+#define NUM_CHIPS 2
+#define NUM_CELLS 4
+#define NUM_READOUTS 2
+
+int main()
+{
+    int i;
+    int j;
+    psFPA *myFPA = psFPAAlloc(NUM_CHIPS, NULL);
+    psCell **cells;
+
+    psChip **chips = (psChip **) myFPA->chips->data;
+    for (i=0;i<NUM_CHIPS;i++) {
+        chips[i] = psChipAlloc(NUM_CELLS, myFPA);
+        cells = (psCell **) chips[i]->cells->data;
+
+        for (j=0;j<NUM_CELLS;j++) {
+            cells[j] = psCellAlloc(NUM_READOUTS, chips[i]);
+        }
+    }
+
+    chips = (psChip **) myFPA->chips->data;
+    for (i=0;i<NUM_CHIPS;i++) {
+        cells = (psCell **) chips[i]->cells->data;
+        for (j=0;j<NUM_CELLS;j++) {
+            psFree(cells[j]);
+        }
+        psFree(chips[i]);
+    }
+    return(0);
+}