]>
Commit | Line | Data |
---|---|---|
8fe5ef5a SA |
1 | /* |
2 | * Utility routines for writing floating point tests. | |
3 | * | |
4 | * Currently provides only one function, which checks whether a double is | |
5 | * equal to an expected value within a given epsilon. This is broken into a | |
6 | * separate source file from the rest of the basic C TAP library because it | |
7 | * may require linking with -lm on some platforms, and the package may not | |
8 | * otherwise care about floating point. | |
9 | * | |
10 | * This file is part of C TAP Harness. The current version plus supporting | |
11 | * documentation is at <https://www.eyrie.org/~eagle/software/c-tap-harness/>. | |
12 | * | |
13 | * Copyright 2008, 2010, 2012, 2013, 2014, 2015, 2016 | |
14 | * Russ Allbery <eagle@eyrie.org> | |
15 | * | |
16 | * Permission is hereby granted, free of charge, to any person obtaining a | |
17 | * copy of this software and associated documentation files (the "Software"), | |
18 | * to deal in the Software without restriction, including without limitation | |
19 | * the rights to use, copy, modify, merge, publish, distribute, sublicense, | |
20 | * and/or sell copies of the Software, and to permit persons to whom the | |
21 | * Software is furnished to do so, subject to the following conditions: | |
22 | * | |
23 | * The above copyright notice and this permission notice shall be included in | |
24 | * all copies or substantial portions of the Software. | |
25 | * | |
26 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
27 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
28 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL | |
29 | * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | |
30 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING | |
31 | * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER | |
32 | * DEALINGS IN THE SOFTWARE. | |
33 | */ | |
34 | ||
35 | /* Required for isnan() and isinf(). */ | |
36 | #if defined(__STRICT_ANSI__) || defined(PEDANTIC) | |
37 | # ifndef _XOPEN_SOURCE | |
38 | # define _XOPEN_SOURCE 600 | |
39 | # endif | |
40 | #endif | |
41 | ||
42 | #include <math.h> | |
43 | #include <stdarg.h> | |
44 | #include <stdio.h> | |
45 | ||
46 | #include <tests/tap/basic.h> | |
47 | #include <tests/tap/float.h> | |
48 | ||
49 | /* | |
50 | * Takes an expected double and a seen double and assumes the test passes if | |
51 | * those two numbers are within delta of each other. | |
52 | */ | |
53 | int | |
54 | is_double(double wanted, double seen, double epsilon, const char *format, ...) | |
55 | { | |
56 | va_list args; | |
57 | int success; | |
58 | ||
59 | va_start(args, format); | |
60 | fflush(stderr); | |
61 | if ((isnan(wanted) && isnan(seen)) | |
62 | || (isinf(wanted) && isinf(wanted) == isinf(seen)) | |
63 | || fabs(wanted - seen) <= epsilon) { | |
64 | success = 1; | |
65 | okv(1, format, args); | |
66 | } else { | |
67 | success = 0; | |
68 | diag("wanted: %g", wanted); | |
69 | diag(" seen: %g", seen); | |
70 | okv(0, format, args); | |
71 | } | |
72 | va_end(args); | |
73 | return success; | |
74 | } |