Add tests for strfrom functions
[glibc.git] / math / test-fexcept.c
blob36d14c548ecd5697794ca35f52d233c2cf857c49
1 /* Test fegetexceptflag and fesetexceptflag.
2 Copyright (C) 2016 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
19 #include <fenv.h>
20 #include <stdio.h>
21 #include <math-tests.h>
23 /* Like feraiseexcept, but raise exactly the specified exceptions EXC,
24 without possibly raising "inexact" together with "overflow" or
25 "underflow" as permitted by ISO C. (This is not used with traps
26 enabled, so side-effects from raising and then clearing "inexact"
27 are irrelevant.) */
29 static int
30 feraiseexcept_exact (int exc)
32 #ifdef FE_INEXACT
33 int mask = 0;
34 #ifdef FE_OVERFLOW
35 mask |= FE_OVERFLOW;
36 #endif
37 #ifdef FE_UNDERFLOW
38 mask |= FE_UNDERFLOW;
39 #endif
40 if ((exc & FE_INEXACT) != 0
41 || (exc & mask) == 0
42 || fetestexcept (FE_INEXACT) != 0)
43 return feraiseexcept (exc);
44 int ret = feraiseexcept (exc);
45 feclearexcept (FE_INEXACT);
46 return ret;
47 #else
48 return feraiseexcept (exc);
49 #endif
52 static int
53 test_set (int initial, const fexcept_t *saved, int mask, int expected)
55 int result = 0;
56 feclearexcept (FE_ALL_EXCEPT);
57 printf ("Testing set: initial exceptions %x, mask %x, expected %x\n",
58 (unsigned int) initial, (unsigned int) mask,
59 (unsigned int) expected);
60 int ret = feraiseexcept_exact (initial);
61 if (ret != 0)
63 puts ("feraiseexcept failed");
64 result = 1;
65 return result;
67 ret = fesetexceptflag (saved, mask);
68 if (ret != 0)
70 puts ("fesetexceptflag failed");
71 result = 1;
73 else
74 puts ("fesetexceptflag succeeded");
75 ret = fetestexcept (FE_ALL_EXCEPT);
76 if (ret != expected)
78 printf ("raised exceptions %x, expected %x\n",
79 (unsigned int) ret, (unsigned int) expected);
80 result = 1;
82 return result;
85 static int
86 test_except (int exc, const char *exc_name)
88 int result = 0;
90 printf ("Testing %s\n", exc_name);
91 feclearexcept (FE_ALL_EXCEPT);
93 fexcept_t clear_saved_exc, clear_saved_all;
94 int ret = fegetexceptflag (&clear_saved_exc, exc);
95 if (ret == 0)
96 printf ("fegetexceptflag (%s) succeeded\n", exc_name);
97 else
99 printf ("fegetexceptflag (%s) failed\n", exc_name);
100 result = 1;
101 return result;
103 ret = fegetexceptflag (&clear_saved_all, FE_ALL_EXCEPT);
104 if (ret == 0)
105 puts ("fegetexceptflag (FE_ALL_EXCEPT) succeeded");
106 else
108 puts ("fegetexceptflag (FE_ALL_EXCEPT) failed");
109 result = 1;
110 return result;
113 ret = feraiseexcept_exact (exc);
114 if (ret == 0)
115 printf ("feraiseexcept (%s) succeeded\n", exc_name);
116 else
118 printf ("feraiseexcept (%s) failed\n", exc_name);
119 if (exc == 0 || EXCEPTION_TESTS (float))
121 puts ("failure of feraiseexcept was unexpected");
122 result = 1;
124 else
125 puts ("failure of feraiseexcept OK, skipping further tests");
126 return result;
129 fexcept_t set_saved_exc, set_saved_all;
130 ret = fegetexceptflag (&set_saved_exc, exc);
131 if (ret == 0)
132 printf ("fegetexceptflag (%s) succeeded\n", exc_name);
133 else
135 printf ("fegetexceptflag (%s) failed\n", exc_name);
136 result = 1;
137 return result;
139 ret = fegetexceptflag (&set_saved_all, FE_ALL_EXCEPT);
140 if (ret == 0)
141 puts ("fegetexceptflag (FE_ALL_EXCEPT) succeeded");
142 else
144 puts ("fegetexceptflag (FE_ALL_EXCEPT) failed");
145 result = 1;
146 return result;
149 result |= test_set (0, &set_saved_exc, exc, exc);
150 result |= test_set (0, &set_saved_all, exc, exc);
151 result |= test_set (0, &set_saved_all, FE_ALL_EXCEPT, exc);
152 result |= test_set (0, &clear_saved_exc, exc, 0);
153 result |= test_set (0, &clear_saved_all, exc, 0);
154 result |= test_set (0, &clear_saved_all, FE_ALL_EXCEPT, 0);
155 result |= test_set (exc, &set_saved_exc, exc, exc);
156 result |= test_set (exc, &set_saved_all, exc, exc);
157 result |= test_set (exc, &set_saved_all, FE_ALL_EXCEPT, exc);
158 result |= test_set (exc, &clear_saved_exc, exc, 0);
159 result |= test_set (exc, &clear_saved_all, exc, 0);
160 result |= test_set (exc, &clear_saved_all, FE_ALL_EXCEPT, 0);
161 result |= test_set (FE_ALL_EXCEPT, &set_saved_exc, exc, FE_ALL_EXCEPT);
162 result |= test_set (FE_ALL_EXCEPT, &set_saved_all, exc, FE_ALL_EXCEPT);
163 result |= test_set (FE_ALL_EXCEPT, &set_saved_all, FE_ALL_EXCEPT, exc);
164 result |= test_set (FE_ALL_EXCEPT, &clear_saved_exc, exc,
165 FE_ALL_EXCEPT & ~exc);
166 result |= test_set (FE_ALL_EXCEPT, &clear_saved_all, exc,
167 FE_ALL_EXCEPT & ~exc);
168 result |= test_set (FE_ALL_EXCEPT, &clear_saved_all, FE_ALL_EXCEPT, 0);
170 return result;
173 static int
174 do_test (void)
176 int result = 0;
178 result |= test_except (0, "0");
179 result |= test_except (FE_ALL_EXCEPT, "FE_ALL_EXCEPT");
180 #ifdef FE_DIVBYZERO
181 result |= test_except (FE_DIVBYZERO, "FE_DIVBYZERO");
182 #endif
183 #ifdef FE_INEXACT
184 result |= test_except (FE_INEXACT, "FE_INEXACT");
185 #endif
186 #ifdef FE_INVALID
187 result |= test_except (FE_INVALID, "FE_INVALID");
188 #endif
189 #ifdef FE_OVERFLOW
190 result |= test_except (FE_OVERFLOW, "FE_OVERFLOW");
191 #endif
192 #ifdef FE_UNDERFLOW
193 result |= test_except (FE_UNDERFLOW, "FE_UNDERFLOW");
194 #endif
196 return result;
199 #define TEST_FUNCTION do_test ()
200 #include "../test-skeleton.c"