55#include <math.h>
66#include <string.h>
77
8+ // Defining 1e-4 tolerance as in the old version of ctest.h vs 1e-12 in the new one
9+ #define DBL_NEAR_TOL 1e-4
810
911double a_func (double a )
1012{
@@ -115,7 +117,7 @@ CTEST2(f3d,baseline) {
115117
116118 tkka = ccl_f3d_t_eval (tsp ,lktest ,lktest ,atest ,finda ,NULL ,& status );
117119 ASSERT_TRUE (status == 0 );
118- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (exp (lktest ),exp (lktest ),atest ));
120+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (exp (lktest ),exp (lktest ),atest ), DBL_NEAR_TOL );
119121
120122 //Extrapolation in a
121123 tkka = ccl_f3d_t_eval (tsp ,lktest ,lktest ,0.01 ,finda ,NULL ,& status );
@@ -126,33 +128,33 @@ CTEST2(f3d,baseline) {
126128 double klow = 1E-5 ;
127129 tkka = ccl_f3d_t_eval (tsp ,log (klow ),lktest ,atest ,finda ,NULL ,& status );
128130 ASSERT_TRUE (status == 0 );
129- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (klow ,exp (lktest ),atest ));
131+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (klow ,exp (lktest ),atest ), DBL_NEAR_TOL );
130132
131133 //Extrapolation in k (low, #2)
132134 tkka = ccl_f3d_t_eval (tsp ,lktest , log (klow ),atest ,finda ,NULL ,& status );
133135 ASSERT_TRUE (status == 0 );
134- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (exp (lktest ),klow ,atest ));
136+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (exp (lktest ),klow ,atest ), DBL_NEAR_TOL );
135137
136138 //Extrapolation in k (low, #1 and #2)
137139 tkka = ccl_f3d_t_eval (tsp ,log (klow ), log (klow ),atest ,finda ,NULL ,& status );
138140 ASSERT_TRUE (status == 0 );
139- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (klow ,klow ,atest ));
141+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (klow ,klow ,atest ), DBL_NEAR_TOL );
140142
141143 //Extrapolation in k (high, #1)
142144 double khigh = 1E3 ;
143145 tkka = ccl_f3d_t_eval (tsp ,log (khigh ),lktest ,atest ,finda ,NULL ,& status );
144146 ASSERT_TRUE (status == 0 );
145- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (khigh ,exp (lktest ),atest ));
147+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (khigh ,exp (lktest ),atest ), DBL_NEAR_TOL );
146148
147149 //Extrapolation in k (high, #2)
148150 tkka = ccl_f3d_t_eval (tsp ,lktest , log (khigh ),atest ,finda ,NULL ,& status );
149151 ASSERT_TRUE (status == 0 );
150- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (exp (lktest ),khigh ,atest ));
152+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (exp (lktest ),khigh ,atest ), DBL_NEAR_TOL );
151153
152154 //Extrapolation in k (high, #1 and #2)
153155 tkka = ccl_f3d_t_eval (tsp ,log (khigh ), log (khigh ),atest ,finda ,NULL ,& status );
154156 ASSERT_TRUE (status == 0 );
155- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (khigh ,khigh ,atest ));
157+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (khigh ,khigh ,atest ), DBL_NEAR_TOL );
156158
157159 ccl_a_finder_free (finda );
158160 ccl_f3d_t_free (tsp );
@@ -179,7 +181,7 @@ CTEST2(f3d,factorized) {
179181
180182 tkka = ccl_f3d_t_eval (tsp ,lktest ,lktest ,atest ,finda ,NULL ,& status );
181183 ASSERT_TRUE (status == 0 );
182- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (exp (lktest ),exp (lktest ),atest ));
184+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (exp (lktest ),exp (lktest ),atest ), DBL_NEAR_TOL );
183185
184186 //Extrapolation in a
185187 tkka = ccl_f3d_t_eval (tsp ,lktest ,lktest ,0.01 ,finda ,NULL ,& status );
@@ -190,33 +192,33 @@ CTEST2(f3d,factorized) {
190192 double klow = 1E-5 ;
191193 tkka = ccl_f3d_t_eval (tsp ,log (klow ),lktest ,atest ,finda ,NULL ,& status );
192194 ASSERT_TRUE (status == 0 );
193- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (klow ,exp (lktest ),atest ));
195+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (klow ,exp (lktest ),atest ), DBL_NEAR_TOL );
194196
195197 //Extrapolation in k (low, #2)
196198 tkka = ccl_f3d_t_eval (tsp ,lktest , log (klow ),atest ,finda ,NULL ,& status );
197199 ASSERT_TRUE (status == 0 );
198- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (exp (lktest ),klow ,atest ));
200+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (exp (lktest ),klow ,atest ), DBL_NEAR_TOL );
199201
200202 //Extrapolation in k (low, #1 and #2)
201203 tkka = ccl_f3d_t_eval (tsp ,log (klow ), log (klow ),atest ,finda ,NULL ,& status );
202204 ASSERT_TRUE (status == 0 );
203- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (klow ,klow ,atest ));
205+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (klow ,klow ,atest ), DBL_NEAR_TOL );
204206
205207 //Extrapolation in k (high, #1)
206208 double khigh = 1E3 ;
207209 tkka = ccl_f3d_t_eval (tsp ,log (khigh ),lktest ,atest ,finda ,NULL ,& status );
208210 ASSERT_TRUE (status == 0 );
209- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (khigh ,exp (lktest ),atest ));
211+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (khigh ,exp (lktest ),atest ), DBL_NEAR_TOL );
210212
211213 //Extrapolation in k (high, #2)
212214 tkka = ccl_f3d_t_eval (tsp ,lktest , log (khigh ),atest ,finda ,NULL ,& status );
213215 ASSERT_TRUE (status == 0 );
214- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (exp (lktest ),khigh ,atest ));
216+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (exp (lktest ),khigh ,atest ), DBL_NEAR_TOL );
215217
216218 //Extrapolation in k (high, #1 and #2)
217219 tkka = ccl_f3d_t_eval (tsp ,log (khigh ), log (khigh ),atest ,finda ,NULL ,& status );
218220 ASSERT_TRUE (status == 0 );
219- ASSERT_DBL_NEAR (1 ,tkka /tkka_model (khigh ,khigh ,atest ));
221+ ASSERT_DBL_NEAR_TOL (1 ,tkka /tkka_model (khigh ,khigh ,atest ), DBL_NEAR_TOL );
220222
221223 ccl_a_finder_free (finda );
222224 ccl_f3d_t_free (tsp );
0 commit comments