Mercurial > hg > octave-lojdl > gnulib-hg

annotate tests/test-hypot-ieee.h @ 17460:d11431703671

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
autoupdate
author Karl Berry <karl@freefriends.org>
date Fri, 09 Aug 2013 08:03:30 -0700
parents e542fd46ad6f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16525
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Test of hypot*() function family.
17249
e542fd46ad6f maint: update all copyright year number ranges
Eric Blake <eblake@redhat.com>
parents: 16525
diff changeset
2 Copyright (C) 2012-2013 Free Software Foundation, Inc.
16525
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
7 (at your option) any later version.
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
8
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12 GNU General Public License for more details.
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
13
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
16
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17 static void
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
18 test_function (void)
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
19 {
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
20 /* [MX] shaded specification in POSIX. */
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
22 /* Infinity. */
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
23 ASSERT (HYPOT (INFINITY, L_(2.0)) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
24 ASSERT (HYPOT (- INFINITY, L_(2.0)) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25 ASSERT (HYPOT (INFINITY, - L_(2.0)) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26 ASSERT (HYPOT (- INFINITY, - L_(2.0)) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
27 ASSERT (HYPOT (L_(2.0), INFINITY) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
28 ASSERT (HYPOT (L_(2.0), - INFINITY) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
29 ASSERT (HYPOT (- L_(2.0), INFINITY) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
30 ASSERT (HYPOT (- L_(2.0), - INFINITY) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
31
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
32 /* Mixed Infinity and NaN. */
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
33 ASSERT (HYPOT (INFINITY, NAN) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
34 ASSERT (HYPOT (- INFINITY, NAN) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
35 ASSERT (HYPOT (NAN, INFINITY) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
36 ASSERT (HYPOT (NAN, - INFINITY) == INFINITY);
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
37
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
38 /* NaN. */
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
39 ASSERT (ISNAN (HYPOT (NAN, L_(2.0))));
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
40 ASSERT (ISNAN (HYPOT (NAN, - L_(2.0))));
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
41 ASSERT (ISNAN (HYPOT (L_(2.0), NAN)));
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
42 ASSERT (ISNAN (HYPOT (- L_(2.0), NAN)));
581c1effbd61 Tests for module 'hypotf-ieee'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
43 }