34#include <casu_utils.h>
40 cpl_image *inim,*darkim;
41 cpl_propertylist *ehu;
47 cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
56 cpl_test_eq(status,CASU_FATAL);
57 cpl_test_eq(status,retval);
61 inim = cpl_image_new(10,10,CPL_TYPE_FLOAT);
62 darkim = cpl_image_new(11,11,CPL_TYPE_FLOAT);
63 ehu = cpl_propertylist_new();
64 cpl_propertylist_update_string(ehu,
"ESO DRS DARKCOR",
"testfile");
66 cpl_propertylist_delete(ehu);
74 cpl_test_eq(status,CASU_OK);
75 cpl_test_eq(status,retval);
79 cpl_propertylist_erase(ehu,
"ESO DRS DARKCOR");
81 cpl_test_eq(status,CASU_FATAL);
82 cpl_test_eq(status,retval);
87 cpl_image_add_scalar(inim,10.0);
89 cpl_image_delete(darkim);
90 darkim = cpl_image_new(10,10,CPL_TYPE_FLOAT);
91 cpl_image_add_scalar(darkim,2.0);
98 cpl_test_eq(status,CASU_OK);
99 cpl_test_eq(status,retval);
100 mean = cpl_image_get_mean((
const cpl_image *)inim);
101 stdev = cpl_image_get_stdev((
const cpl_image *)inim);
102 cpl_test_rel(mean,8.0,1.0e-6);
103 cpl_test_rel(stdev,0.0,1.0e-6);
109 cpl_image_add_scalar(inim,2.0);
110 cpl_propertylist_erase(ehu,
"ESO DRS DARKCOR");
112 cpl_test_eq(status,CASU_OK);
113 cpl_test_eq(status,retval);
114 mean = cpl_image_get_mean((
const cpl_image *)inim);
115 stdev = cpl_image_get_stdev((
const cpl_image *)inim);
116 cpl_test_rel(mean,6.0,1.0e-6);
117 cpl_test_rel(stdev,0.0,1.0e-6);
118 cpl_test_eq_string(
"Memory File",
119 cpl_propertylist_get_string(ehu,
"ESO DRS DARKCOR"));
125 cpl_image_delete(inim);
126 cpl_image_delete(darkim);
128 return(cpl_test_end(0));
casu_fits * casu_fits_wrap(cpl_image *im, casu_fits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
cpl_propertylist * casu_fits_get_ehu(casu_fits *p)
void casu_fits_unwrap(casu_fits *p)
int casu_darkcor(casu_fits *infile, casu_fits *darksrc, float darkscl, int *status)
Correct input data for dark current.