Index: trunk/psphot/src/psphot.c
===================================================================
--- trunk/psphot/src/psphot.c	(revision 6715)
+++ trunk/psphot/src/psphot.c	(revision 6727)
@@ -27,2 +27,19 @@
     exit (0);
 }
+
+/** I/O test code
+
+    psFits *fits = psFitsOpen (argv[1], "r");
+    psMetadata *header = psFitsReadHeader (NULL, fits);
+    psFitsClose (fits);
+
+    psMetadata *new = psMetadataCopy (NULL, header);
+    psMetadataConfigWrite (new, "test.cnf");
+
+    fits = psFitsOpen ("test.fits", "w");
+    psFitsWriteHeaderNotImage (fits, new);
+    psFitsClose (fits);
+
+    exit (0);
+
+**/