Changeset 39457 for trunk/Ohana/src/libfits/test/keywords.c

Timestamp:

Mar 11, 2016, 10:23:42 PM (10 years ago)

Author:

eugene

Message:

modify to pass with extremely pedantic build; force consistency for signed vs unsigned and int sizes; various relastro updates

Location:

trunk/Ohana

Files:

• . (modified) (1 prop)
• src/libfits/test/keywords.c (modified) (6 diffs)

trunk/Ohana/src/libfits/test/keywords.c

@@ -15 +15 @@
   tmp = Pout[3]; Pout[3] = Pout[4]; Pout[4] = tmp; }
 
-int main (int argc, char **argv) {
+int main (void) {
   
   plan_tests (14);
@@ -21 +21 @@
   diag ("libfits keyword tests");
 
-  int i, err;
-  double srcbuf[NSRC], tgtbuf[NTGT], outbuf[NOUT];
-  
   { 
     
@@ -96 +93 @@
     ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
-    ok (gfits_modify (&header, "D_LONG3", "%Ld", 1, (long long) 0x100), "wrote a keyword");
-    ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
+    // this is not ISO C99:
+    // ok (gfits_modify (&header, "D_LONG3", "%Ld", 1, (long long) 0x100), "wrote a keyword");
+    // ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
     // set one of each of the few numerical types (unsigned ints)
@@ -109 +107 @@
     ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
-    ok (gfits_modify (&header, "DU_LONG3", "%Lu", 1, (long long) 0x100), "wrote a keyword");
-    ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
+    // ok (gfits_modify (&header, "DU_LONG3", "%Lu", 1, (long long) 0x100), "wrote a keyword");
+    // ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
     ok (gfits_modify (&header, "D_SHORT", "%hd", 1, 0x20), "wrote a keyword");
@@ -229 +227 @@
     ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
-    ok (gfits_scan (&header, "D_LONG3", "%Ld", 1, &Kvalue), "read a keyword");
-    ok (Kvalue == 0x100, "got the right value");
-    ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
+    // ok (gfits_scan (&header, "D_LONG3", "%Ld", 1, &Kvalue), "read a keyword");
+    // ok (Kvalue == 0x100, "got the right value");
+    // ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
     // set one of each of the few numerical types (unsigned ints)
@@ -246 +244 @@
     ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
-    ok (gfits_scan (&header, "DU_LONG3", "%Lu", 1, &Ulonglong), "read a keyword");
-    ok (Ulonglong == 0x100, "got the right value");
-    ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
+    // ok (gfits_scan (&header, "DU_LONG3", "%Lu", 1, &Ulonglong), "read a keyword");
+    // ok (Ulonglong == 0x100, "got the right value");
+    // ptr = gfits_header_field (&header, "END", 1); ok (ptr, "END still good");
 
     ok (gfits_scan (&header, "D_SHORT", "%hd", 1, &Ishort), "read a keyword");