TEST_double_eq
ok &= TEST_double_eq(r14, 14.0);
ok &= TEST_double_eq(r15, 15.0);
ok &= TEST_double_eq(r16, 16.0);
ok &= TEST_double_eq(r17, 17.0);
ok &= TEST_double_eq(r18, 18.0);
ok &= TEST_double_eq(r19, 19.0);
ok &= TEST_double_eq(r20, 20.0);
ok &= TEST_double_eq(r21, 21.0);
ok &= TEST_double_eq(r22, 22.0);
ok &= TEST_double_eq(r23, 23.0);
ok &= TEST_double_eq(r24, 24.0);
ok &= TEST_double_eq(r25, 25.0);
|| !TEST_double_eq(d, 1.61803398875)
&& TEST_double_eq(p, 3.14159);
|| !TEST_double_eq(d2, 3.14)
|| (tstid <= 1 && !TEST_double_eq(d, d2)))
|| !TEST_double_eq(app_p2, app_p2_init) /* Should remain untouched */
|| !TEST_double_eq(sneakpeek->p2, p2_init) /* Should remain untouched */
|| !TEST_double_eq(app_p2, app_p2_init) /* Should remain untouched */