00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028 #ifdef HAVE_CONFIG_H
00029 #include <config.h>
00030 #endif
00031
00032 #include <fors_qc.h>
00033 #include <test.h>
00034
00044 static void
00045 test_qc(void)
00046 {
00047 const char *const qcdic_version = "2.0";
00048 const char *const instrument[] = {"FORS1", "FORS2"};
00049 const char *const qc_name[] = {"SOME.QC", "SOME.OTHER.QC"};
00050 const char *const qc_value[] = {"some value", "some other value"};
00051 const char *const qc_comment[] = {"some comment", "some other comment"};
00052 const char *const keyword_name[] = {"ESO SOME KEYWORD",
00053 "ESO SOME OTHER KEYWORD"};
00054 const char *const keyword_value[] = {"some key value",
00055 "some other key value"};
00056 const char *const keyword_unit[] = {"some key unit",
00057 "some other key unit"};
00058 const char *const keyword_comment[] = {"some key comment",
00059 "some other key comment"};
00060
00061
00062 cpl_propertylist *header = cpl_propertylist_new();
00063 int i;
00064
00065 for (i = 0; i < 2; i++) {
00066 cpl_propertylist_append_string(header,
00067 keyword_name[i],
00068 keyword_value[i]);
00069 }
00070
00071 for (i = 0; i < 2; i++) {
00072 fors_qc_start_group(header, qcdic_version,
00073 instrument[i]);
00074
00075 fors_qc_write_string(qc_name[i], qc_value[i],
00076 qc_comment[i], instrument[i]);
00077
00078 fors_qc_write_double("QC.ZEROPOINT", 5.3, "mag",
00079 "mean zeropoint", instrument[i]);
00080
00081 fors_qc_keyword_to_paf(header,
00082 keyword_name[i],
00083 keyword_unit[i],
00084 keyword_comment[i],
00085 instrument[i]);
00086
00087 fors_qc_end_group();
00088 }
00089
00090 cpl_propertylist_delete(header);
00091 return;
00092 }
00093
00094
00098 int main(void)
00099 {
00100 TEST_INIT;
00101
00102 test_qc();
00103
00104 TEST_END;
00105 }
00106