VIRCAM Pipeline  2.3.10
casu_fits-test.c
1 /* $Id: casu_fits-test.c,v 1.3 2015/09/14 18:47:31 jim Exp $
2  *
3  * This file is part of the CASU Pipeline utilities
4  * Copyright (C) 2015 European Southern Observatory
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19  */
20 
21 /*
22  * $Author: jim $
23  * $Date: 2015/09/14 18:47:31 $
24  * $Revision: 1.3 $
25  * $Name: $
26  */
27 
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <unistd.h>
31 
32 #include <cpl_init.h>
33 #include <cpl_test.h>
34 #include <casu_fits.h>
35 #include <casu_utils.h>
36 #include <casu_mods.h>
37 
38 int main(void) {
39  const char *testfile = "casufitstest.fit";
40  casu_fits *ftest,**ftests,*ftest2;
41  int i,ival;
42  float fval;
43  cpl_frame *fr;
44  cpl_image *im;
45  cpl_propertylist *phu,*ehu;
46  char str[BUFSIZ];
47 
48  /* Initialise */
49 
50  cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
51 
52  /* Check correct response to NULL file or a file that doesn't exist */
53 
54  ftest = casu_fits_load(NULL,CPL_TYPE_UNSPECIFIED,0);
55  cpl_test_null(ftest);
56  fr = cpl_frame_new();
57  cpl_frame_set_filename(fr,testfile);
58  ftest = casu_fits_load(fr,CPL_TYPE_UNSPECIFIED,0);
59  cpl_test_null(ftest);
60  ftests = casu_fits_load_list(NULL,CPL_TYPE_UNSPECIFIED,0);
61  cpl_test_null(ftests);
62 
63  /* Create a dummy FITS file and save it */
64 
65  if (access(testfile,F_OK) == 0)
66  remove(testfile);
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);
77  cpl_image_delete(im);
78 
79  /* Check that we can load this */
80 
81  ftest = casu_fits_load(fr,CPL_TYPE_FLOAT,1);
82  cpl_test_nonnull(ftest);
83 
84  /* Check we can access the two headers */
85 
86  phu = casu_fits_get_phu(NULL);
87  cpl_test_null(phu);
88  phu = casu_fits_get_phu(ftest);
89  cpl_test_nonnull(phu);
90  fval = cpl_propertylist_get_float(phu,"EXPTIME");
91  cpl_test_eq(fval,1000.0);
92  ehu = casu_fits_get_ehu(NULL);
93  cpl_test_null(ehu);
94  ehu = casu_fits_get_ehu(ftest);
95  cpl_test_nonnull(ehu);
96  ival = cpl_propertylist_get_int(ehu,"NCOMBINE");
97  cpl_test_eq(ival,5);
98 
99  /* Check out various accessors */
100 
101  im = casu_fits_get_image(NULL);
102  cpl_test_null(im);
103  im = casu_fits_get_image(ftest);
104  cpl_test_nonnull(im);
105  i = casu_fits_get_nexten(NULL);
106  cpl_test_eq(i,-1);
107  i = casu_fits_get_nexten(ftest);
108  cpl_test_eq(i,1);
109  cpl_test_null(casu_fits_get_extname(NULL));
110  cpl_test_eq_string(casu_fits_get_extname(ftest),"TESTEXTN");
111  cpl_test_null(casu_fits_get_filename(NULL));
112  cpl_test_eq_string(casu_fits_get_filename(ftest),testfile);
113  cpl_test_null(casu_fits_get_fullname(NULL));
114  (void)sprintf(str,"%s[%s]",testfile,"TESTEXTN");
115  cpl_test_eq_string(casu_fits_get_fullname(ftest),str);
116  cpl_test_eq(casu_fits_get_status(NULL),CASU_FATAL);
117  cpl_test_eq(casu_fits_get_status(ftest),CASU_OK);
118  cpl_test_eq(casu_fits_set_error(NULL,CASU_FATAL),0);
119  cpl_test_eq(casu_fits_set_error(ftest,CASU_FATAL),1);
120  casu_fits_set_status(ftest,CASU_OK);
121  casu_fits_set_filename(ftest,NULL);
122  cpl_test_eq_string(casu_fits_get_filename(ftest),testfile);
123  ftest2 = casu_fits_wrap(NULL,ftest,phu,ehu);
124  cpl_test_null(ftest2);
125  im = cpl_image_new(10,10,CPL_TYPE_FLOAT);
126  ftest2 = casu_fits_wrap(im,NULL,NULL,NULL);
127  casu_fits_delete(ftest2);
128 
129  /* Tidy and exit */
130 
131  casu_fits_delete(ftest);
132  remove(testfile);
133  cpl_frame_delete(fr);
134  return(cpl_test_end(0));
135 }
136 
137 /*
138 
139 $Log: casu_fits-test.c,v $
140 Revision 1.3 2015/09/14 18:47:31 jim
141 Added extra test to _wrap routine
142 
143 Revision 1.2 2015/08/07 13:06:54 jim
144 Fixed copyright to ESO
145 
146 Revision 1.1.1.1 2015/06/12 10:44:32 jim
147 Initial import
148 
149 Revision 1.1 2015/01/09 11:39:55 jim
150 new entry
151 
152 
153 */
char * casu_fits_get_extname(casu_fits *p)
Definition: casu_fits.c:613
int casu_fits_get_status(casu_fits *p)
Definition: casu_fits.c:711
cpl_image * casu_fits_get_image(casu_fits *p)
Definition: casu_fits.c:436
void casu_fits_set_filename(casu_fits *p, char *fname)
Definition: casu_fits.c:839
casu_fits * casu_fits_load(cpl_frame *frame, cpl_type type, int nexten)
Definition: casu_fits.c:80
casu_fits ** casu_fits_load_list(cpl_frameset *f, cpl_type type, int exten)
Definition: casu_fits.c:318
char * casu_fits_get_filename(casu_fits *p)
Definition: casu_fits.c:646
char * casu_fits_get_fullname(casu_fits *p)
Definition: casu_fits.c:680
void casu_fits_delete(casu_fits *p)
Definition: casu_fits.c:364
int casu_fits_set_error(casu_fits *p, int status)
Definition: casu_fits.c:747
casu_fits * casu_fits_wrap(cpl_image *im, casu_fits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
Definition: casu_fits.c:883
cpl_propertylist * casu_fits_get_phu(casu_fits *p)
Definition: casu_fits.c:531
void casu_fits_set_status(casu_fits *p, int status)
Definition: casu_fits.c:801
int casu_fits_get_nexten(casu_fits *p)
Definition: casu_fits.c:497
cpl_propertylist * casu_fits_get_ehu(casu_fits *p)
Definition: casu_fits.c:576