34 #include <casu_fits.h>
35 #include <casu_utils.h>
36 #include <casu_mods.h>
39 const char *testfile =
"casufitstest.fit";
40 casu_fits *ftest,**ftests,*ftest2;
45 cpl_propertylist *phu,*ehu;
50 cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
57 cpl_frame_set_filename(fr,testfile);
61 cpl_test_null(ftests);
65 if (access(testfile,F_OK) == 0)
67 im = cpl_image_new(10,10,CPL_TYPE_FLOAT);
68 phu = cpl_propertylist_new();
69 cpl_propertylist_update_float(phu,
"EXPTIME",1000.0);
70 ehu = cpl_propertylist_new();
71 cpl_propertylist_update_int(ehu,
"NCOMBINE",5);
72 cpl_propertylist_update_string(ehu,
"EXTNAME",
"TESTEXTN");
73 cpl_image_save(NULL,testfile,CPL_TYPE_UCHAR,phu,CPL_IO_DEFAULT);
74 cpl_image_save(im,testfile,CPL_TYPE_FLOAT,ehu,CPL_IO_EXTEND);
75 cpl_propertylist_delete(ehu);
76 cpl_propertylist_delete(phu);
82 cpl_test_nonnull(ftest);
89 cpl_test_nonnull(phu);
90 fval = cpl_propertylist_get_float(phu,
"EXPTIME");
91 cpl_test_eq(fval,1000.0);
95 cpl_test_nonnull(ehu);
96 ival = cpl_propertylist_get_int(ehu,
"NCOMBINE");
104 cpl_test_nonnull(im);
114 (void)sprintf(str,
"%s[%s]",testfile,
"TESTEXTN");
124 cpl_test_null(ftest2);
125 im = cpl_image_new(10,10,CPL_TYPE_FLOAT);
133 cpl_frame_delete(fr);
134 return(cpl_test_end(0));
char * casu_fits_get_extname(casu_fits *p)
int casu_fits_get_status(casu_fits *p)
cpl_image * casu_fits_get_image(casu_fits *p)
void casu_fits_set_filename(casu_fits *p, char *fname)
casu_fits * casu_fits_load(cpl_frame *frame, cpl_type type, int nexten)
casu_fits ** casu_fits_load_list(cpl_frameset *f, cpl_type type, int exten)
char * casu_fits_get_filename(casu_fits *p)
char * casu_fits_get_fullname(casu_fits *p)
void casu_fits_delete(casu_fits *p)
int casu_fits_set_error(casu_fits *p, int status)
casu_fits * casu_fits_wrap(cpl_image *im, casu_fits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
cpl_propertylist * casu_fits_get_phu(casu_fits *p)
void casu_fits_set_status(casu_fits *p, int status)
int casu_fits_get_nexten(casu_fits *p)
cpl_propertylist * casu_fits_get_ehu(casu_fits *p)