VIRCAM Pipeline 2.3.12
casu_tfits-test.c
1/* $Id: casu_tfits-test.c,v 1.2 2015/08/07 13:06:54 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/08/07 13:06:54 $
24 * $Revision: 1.2 $
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_tfits.h>
35#include <casu_utils.h>
36#include <casu_mods.h>
37
38int main(void) {
39 const char *testfile = "casutfitstest.fit";
40 casu_tfits *ftest,**ftests,*ftest2;
41 int i,ival;
42 float fval;
43 cpl_frame *fr;
44 cpl_table *tab;
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_tfits_load(NULL,1);
55 cpl_test_null(ftest);
56 fr = cpl_frame_new();
57 cpl_frame_set_filename(fr,testfile);
58 ftest = casu_tfits_load(fr,1);
59 cpl_test_null(ftest);
60 ftests = casu_tfits_load_list(NULL,1);
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 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);
80
81 /* Check that we can load this */
82
83 ftest = casu_tfits_load(fr,1);
84 cpl_test_nonnull(ftest);
85
86 /* Check we can access the two headers */
87
88 phu = casu_tfits_get_phu(NULL);
89 cpl_test_null(phu);
90 phu = casu_tfits_get_phu(ftest);
91 cpl_test_nonnull(phu);
92 fval = cpl_propertylist_get_float(phu,"EXPTIME");
93 cpl_test_eq(fval,1000.0);
94 ehu = casu_tfits_get_ehu(NULL);
95 cpl_test_null(ehu);
96 ehu = casu_tfits_get_ehu(ftest);
97 cpl_test_nonnull(ehu);
98 ival = cpl_propertylist_get_int(ehu,"NDIT");
99 cpl_test_eq(ival,5);
100
101 /* Check out various accessors */
102
103 tab = casu_tfits_get_table(NULL);
104 cpl_test_null(tab);
105 tab = casu_tfits_get_table(ftest);
106 cpl_test_nonnull(tab);
107 i = casu_tfits_get_nexten(NULL);
108 cpl_test_eq(i,-1);
109 i = casu_tfits_get_nexten(ftest);
110 cpl_test_eq(i,1);
111 cpl_test_null(casu_tfits_get_filename(NULL));
112 cpl_test_eq_string(casu_tfits_get_filename(ftest),testfile);
113 cpl_test_null(casu_tfits_get_fullname(NULL));
114 (void)sprintf(str,"%s[%s]",testfile,"TESTTAB");
115 cpl_test_eq_string(casu_tfits_get_fullname(ftest),str);
116 cpl_test_eq(casu_tfits_get_status(NULL),CASU_FATAL);
117 cpl_test_eq(casu_tfits_get_status(ftest),CASU_OK);
118 cpl_test_eq(casu_tfits_set_error(NULL,CASU_FATAL),0);
119 cpl_test_eq(casu_tfits_set_error(ftest,CASU_FATAL),1);
120 casu_tfits_set_status(ftest,CASU_OK);
121 casu_tfits_set_filename(ftest,NULL);
122 cpl_test_eq_string(casu_tfits_get_filename(ftest),testfile);
123 ftest2 = casu_tfits_wrap(NULL,ftest,phu,ehu);
124 cpl_test_null(ftest2);
125
126 /* Tidy and exit */
127
128 casu_tfits_delete(ftest);
129 remove(testfile);
130 cpl_frame_delete(fr);
131 return(cpl_test_end(0));
132}
133
134/*
135
136$Log: casu_tfits-test.c,v $
137Revision 1.2 2015/08/07 13:06:54 jim
138Fixed copyright to ESO
139
140Revision 1.1.1.1 2015/06/12 10:44:32 jim
141Initial import
142
143Revision 1.1 2015/01/09 11:39:55 jim
144new entry
145
146
147*/
cpl_propertylist * casu_tfits_get_ehu(casu_tfits *p)
Definition: casu_tfits.c:473
casu_tfits * casu_tfits_wrap(cpl_table *tab, casu_tfits *model, cpl_propertylist *phu, cpl_propertylist *ehu)
Definition: casu_tfits.c:739
int casu_tfits_get_status(casu_tfits *p)
Definition: casu_tfits.c:575
char * casu_tfits_get_fullname(casu_tfits *p)
Definition: casu_tfits.c:544
void casu_tfits_set_filename(casu_tfits *p, char *fname)
Definition: casu_tfits.c:697
void casu_tfits_set_status(casu_tfits *p, int status)
Definition: casu_tfits.c:659
void casu_tfits_delete(casu_tfits *p)
Definition: casu_tfits.c:292
char * casu_tfits_get_filename(casu_tfits *p)
Definition: casu_tfits.c:510
casu_tfits * casu_tfits_load(cpl_frame *table, int nexten)
Definition: casu_tfits.c:78
int casu_tfits_get_nexten(casu_tfits *p)
Definition: casu_tfits.c:397
int casu_tfits_set_error(casu_tfits *p, int status)
Definition: casu_tfits.c:611
casu_tfits ** casu_tfits_load_list(cpl_frameset *f, int exten)
Definition: casu_tfits.c:247
cpl_propertylist * casu_tfits_get_phu(casu_tfits *p)
Definition: casu_tfits.c:432
cpl_table * casu_tfits_get_table(casu_tfits *p)
Definition: casu_tfits.c:364