34 #include <casu_tfits.h>
35 #include <casu_utils.h>
36 #include <casu_mods.h>
39 const char *testfile =
"casutfitstest.fit";
40 casu_tfits *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 tab = cpl_table_new(10);
68 cpl_table_new_column(tab,
"X",CPL_TYPE_FLOAT);
69 cpl_table_new_column(tab,
"Y",CPL_TYPE_FLOAT);
70 phu = cpl_propertylist_new();
71 cpl_propertylist_update_float(phu,
"EXPTIME",1000.0);
72 ehu = cpl_propertylist_new();
73 cpl_propertylist_update_int(ehu,
"NDIT",5);
74 cpl_propertylist_update_string(ehu,
"EXTNAME",
"TESTTAB");
75 cpl_image_save(NULL,testfile,CPL_TYPE_UCHAR,phu,CPL_IO_DEFAULT);
76 cpl_table_save(tab,NULL,ehu,testfile,CPL_IO_EXTEND);
77 cpl_propertylist_delete(ehu);
78 cpl_propertylist_delete(phu);
79 cpl_table_delete(tab);
84 cpl_test_nonnull(ftest);
91 cpl_test_nonnull(phu);
92 fval = cpl_propertylist_get_float(phu,
"EXPTIME");
93 cpl_test_eq(fval,1000.0);
97 cpl_test_nonnull(ehu);
98 ival = cpl_propertylist_get_int(ehu,
"NDIT");
106 cpl_test_nonnull(tab);
114 (void)sprintf(str,
"%s[%s]",testfile,
"TESTTAB");
124 cpl_test_null(ftest2);
130 cpl_frame_delete(fr);
131 return(cpl_test_end(0));
int casu_tfits_get_status(casu_tfits *p)
void casu_tfits_set_filename(casu_tfits *p, char *fname)
void casu_tfits_set_status(casu_tfits *p, int status)
casu_tfits ** casu_tfits_load_list(cpl_frameset *f, int exten)
void casu_tfits_delete(casu_tfits *p)
cpl_table * casu_tfits_get_table(casu_tfits *p)
cpl_propertylist * casu_tfits_get_phu(casu_tfits *p)
int casu_tfits_get_nexten(casu_tfits *p)
cpl_propertylist * casu_tfits_get_ehu(casu_tfits *p)
char * casu_tfits_get_fullname(casu_tfits *p)
int casu_tfits_set_error(casu_tfits *p, int status)
casu_tfits * casu_tfits_load(cpl_frame *table, int nexten)
casu_tfits * casu_tfits_wrap(cpl_table *tab, casu_tfits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
char * casu_tfits_get_filename(casu_tfits *p)