VIRCAM Pipeline  2.3.10
casu_sky-test.c
1 /* $Id: casu_sky-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 
31 #include <cpl_init.h>
32 #include <cpl_test.h>
33 #include <casu_fits.h>
34 #include <casu_utils.h>
35 #include <casu_mods.h>
36 #include <casu_sky.h>
37 
38 int main(void) {
39  int status,retval;
40  casu_fits *skyout,*skyvar;
41 
42  /* Initialise */
43 
44  cpl_test_init(PACKAGE_BUGREPORT,CPL_MSG_WARNING);
45 
46  /* These routines are too complicated for simple unit tests. More
47  extensive regression tests will need to be done. Start with
48  casu_pawsky_mask */
49 
50  status = CASU_FATAL;
51  retval = casu_pawsky_mask(NULL,NULL,10,NULL,NULL,&skyout,&skyvar,1,
52  15,3.0,64,2.0,&status);
53  cpl_test_eq(status,CASU_FATAL);
54  cpl_test_eq(status,retval);
55  cpl_test_null(skyout);
56  cpl_test_null(skyvar);
57  status = CASU_OK;
58  retval = casu_pawsky_mask(NULL,NULL,0,NULL,NULL,&skyout,&skyvar,1,
59  15,3.0,64,2.0,&status);
60  cpl_test_eq(status,CASU_FATAL);
61  cpl_test_eq(status,retval);
62  cpl_test_null(skyout);
63  cpl_test_null(skyvar);
64 
65  /* Now pawsky_mask_pre */
66 
67  status = CASU_FATAL;
68  retval = casu_pawsky_mask_pre(NULL,NULL,10,NULL,NULL,64,&skyout,&skyvar,
69  &status);
70  cpl_test_eq(status,CASU_FATAL);
71  cpl_test_eq(status,retval);
72  cpl_test_null(skyout);
73  cpl_test_null(skyvar);
74  status = CASU_OK;
75  retval = casu_pawsky_mask_pre(NULL,NULL,0,NULL,NULL,64,&skyout,&skyvar,
76  &status);
77  cpl_test_eq(status,CASU_FATAL);
78  cpl_test_eq(status,retval);
79  cpl_test_null(skyout);
80  cpl_test_null(skyvar);
81 
82  /* Now casu_simplesky_mask */
83 
84  status = CASU_FATAL;
85  retval = casu_simplesky_mask(NULL,NULL,10,NULL,NULL,&skyout,&skyvar,1,
86  5,3.0,64,1.0,&status);
87  cpl_test_eq(status,CASU_FATAL);
88  cpl_test_eq(status,retval);
89  cpl_test_null(skyout);
90  cpl_test_null(skyvar);
91  status = CASU_OK;
92  retval = casu_simplesky_mask(NULL,NULL,0,NULL,NULL,&skyout,&skyvar,1,
93  5,3.0,64,1.0,&status);
94  cpl_test_eq(status,CASU_FATAL);
95  cpl_test_eq(status,retval);
96  cpl_test_null(skyout);
97  cpl_test_null(skyvar);
98 
99  /* Get out of here */
100 
101  return(cpl_test_end(0));
102 }
103 
104 /*
105 
106 $Log: casu_sky-test.c,v $
107 Revision 1.2 2015/08/07 13:06:54 jim
108 Fixed copyright to ESO
109 
110 Revision 1.1.1.1 2015/06/12 10:44:32 jim
111 Initial import
112 
113 Revision 1.2 2015/03/12 09:16:51 jim
114 Modified to remove some compiler moans
115 
116 Revision 1.1 2015/01/09 11:39:55 jim
117 new entry
118 
119 
120 */
int casu_simplesky_mask(casu_fits **inlist, casu_fits **invar, int nfiles, casu_fits *conf, casu_mask *mask, casu_fits **skyout, casu_fits **skyvar, int niter, int ipix, float thresh, int nbsize, float smkern, int *status)
Work out a masked sky estimate from a jitter series with large offsets.
Definition: casu_sky.c:643
int casu_pawsky_mask_pre(casu_fits **inlist, casu_fits **invar, int nfiles, casu_mask *mask, casu_fits *objmask, int nbsize, casu_fits **skyout, casu_fits **skyvar, int *status)
Work out a sky estimate from an input jitter series and a pre-existing object mask.
Definition: casu_sky.c:412
int casu_pawsky_mask(casu_fits **inlist, casu_fits **invar, int nfiles, casu_fits *conf, casu_mask *mask, casu_fits **skyout, casu_fits **skyvar, int niter, int ipix, float thresh, int nbsize, float smkern, int *status)
Work out a masked sky estimate from an input jitter series.
Definition: casu_sky.c:110