2 #include "utils_tests.h"
4 void assert_fvec_all_almost_equal(fvec_t *vec, smpl_t scalar, smpl_t err)
7 for (i = 0; i < vec->length; i++) {
8 assert( fabs(vec->data[i] - scalar) < (smpl_t)err );
16 fvec_t * vec = new_fvec(length);
20 assert_fvec_all_almost_equal(vec, exp(2), 1e-10);
24 assert_fvec_all_almost_equal(vec, 1., 1e-10);
28 assert_fvec_all_almost_equal(vec, 0., 1e-10);
30 fvec_set_all(vec, -1);
32 assert_fvec_all_almost_equal(vec, 1., 1e-10);
36 assert_fvec_all_almost_equal(vec, 2., 1e-10);
38 fvec_set_all(vec, 10.);
40 assert_fvec_all_almost_equal(vec, 1., 1e-10);
42 fvec_set_all(vec, 1.);
44 assert_fvec_all_almost_equal(vec, 0., 1e-10);
46 fvec_set_all(vec, 1.6);
48 assert_fvec_all_almost_equal(vec, 1., 1e-10);
50 fvec_set_all(vec, 1.6);
52 assert_fvec_all_almost_equal(vec, 2., 1e-10);
54 fvec_set_all(vec, 1.6);
56 assert_fvec_all_almost_equal(vec, 2., 1e-10);
60 assert_fvec_all_almost_equal(vec, 8., 1e-10);