33 #include <casu_fits.h>
34 #include <casu_utils.h>
35 #include <casu_mods.h>
40 cpl_image *inim,*flatim;
41 cpl_propertylist *ehu;
46 cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
54 cpl_test_eq(status,CASU_FATAL);
55 cpl_test_eq(status,retval);
59 inim = cpl_image_new(10,10,CPL_TYPE_FLOAT);
60 flatim = cpl_image_new(11,11,CPL_TYPE_FLOAT);
61 ehu = cpl_propertylist_new();
62 cpl_propertylist_update_string(ehu,
"ESO DRS FLATCOR",
"testfile");
64 cpl_propertylist_delete(ehu);
72 cpl_test_eq(status,CASU_OK);
73 cpl_test_eq(status,retval);
77 cpl_propertylist_erase(ehu,
"ESO DRS FLATCOR");
79 cpl_test_eq(status,CASU_FATAL);
80 cpl_test_eq(status,retval);
85 cpl_image_add_scalar(inim,10.0);
87 cpl_image_delete(flatim);
88 flatim = cpl_image_new(10,10,CPL_TYPE_FLOAT);
89 cpl_image_multiply_scalar(flatim,0.0);
96 cpl_test_eq(status,CASU_WARN);
97 cpl_test_eq(status,retval);
98 cpl_propertylist_erase(ehu,
"ESO DRS FLATCOR");
102 cpl_image_add_scalar(flatim,2.0);
108 cpl_test_eq(status,CASU_OK);
109 cpl_test_eq(status,retval);
110 mean = cpl_image_get_mean((
const cpl_image *)inim);
111 stdev = cpl_image_get_stdev((
const cpl_image *)inim);
112 cpl_test_rel(mean,5.0,1.0e-6);
113 cpl_test_rel(stdev,0.0,1.0e-6);
114 cpl_test_eq_string(
"Memory File",
115 cpl_propertylist_get_string(ehu,
"ESO DRS FLATCOR"));
121 cpl_image_delete(inim);
122 cpl_image_delete(flatim);
124 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_flatcor(casu_fits *infile, casu_fits *flatsrc, int *status)
Correct input data for flat field response.