33 #include <casu_fits.h>
34 #include <casu_utils.h>
35 #include <casu_mods.h>
42 cpl_propertylist *ehu;
47 cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
55 cpl_test_eq(status,CASU_FATAL);
56 cpl_test_eq(status,retval);
60 inim = cpl_image_new(10,10,CPL_TYPE_FLOAT);
61 ehu = cpl_propertylist_new();
62 cpl_propertylist_update_float(ehu,
"ESO DRS GAINCOR",2.0);
64 cpl_propertylist_delete(ehu);
71 cpl_test_eq(status,CASU_OK);
72 cpl_test_eq(status,retval);
76 cpl_propertylist_erase(ehu,
"ESO DRS GAINCOR");
78 cpl_test_eq(status,CASU_WARN);
79 cpl_test_eq(status,retval);
83 cpl_propertylist_erase(ehu,
"ESO DRS GAINCOR");
84 cpl_image_add_scalar(inim,10.0);
91 cpl_test_eq(status,CASU_OK);
92 cpl_test_eq(status,retval);
93 mean = cpl_image_get_mean((
const cpl_image *)inim);
94 stdev = cpl_image_get_stdev((
const cpl_image *)inim);
95 cpl_test_rel(mean,20.0,1.0e-6);
96 cpl_test_rel(stdev,0.0,1.0e-6);
97 cpl_test_rel(2.0,cpl_propertylist_get_float(ehu,
"ESO DRS GAINCOR"),1.0e-6);
102 cpl_image_delete(inim);
104 return(cpl_test_end(0));
casu_fits * casu_fits_wrap(cpl_image *im, casu_fits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
void casu_fits_unwrap(casu_fits *p)
cpl_propertylist * casu_fits_get_ehu(casu_fits *p)
int casu_gaincor(casu_fits *infile, float gainscl, int *status)
Gain correct input data frame.