(root)/
gettext-0.22.4/
gettext-tools/
gnulib-tests/
test-fabs.c
       1  /* Test of fabs() function.
       2     Copyright (C) 2010-2023 Free Software Foundation, Inc.
       3  
       4     This program is free software: you can redistribute it and/or modify
       5     it under the terms of the GNU General Public License as published by
       6     the Free Software Foundation, either version 3 of the License, or
       7     (at your option) any later version.
       8  
       9     This program is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      12     GNU General Public License for more details.
      13  
      14     You should have received a copy of the GNU General Public License
      15     along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
      16  
      17  /* Written by Bruno Haible <bruno@clisp.org>, 2010.  */
      18  
      19  #include <config.h>
      20  
      21  #include <math.h>
      22  
      23  #include "signature.h"
      24  SIGNATURE_CHECK (fabs, double, (double));
      25  
      26  #include <string.h>
      27  
      28  #include "macros.h"
      29  #include "minus-zero.h"
      30  
      31  #define DOUBLE double
      32  #define L_(literal) literal
      33  #define MINUS_ZERO minus_zerod
      34  #define FABS fabs
      35  #define RANDOM randomd
      36  #include "test-fabs.h"
      37  
      38  int
      39  main ()
      40  {
      41    /* A particular positive value.  */
      42    x = 0.6;
      43    y = fabs (x);
      44    ASSERT (y == 0.6);
      45  
      46    /* A particular negative value.  */
      47    x = -0.6;
      48    y = fabs (x);
      49    ASSERT (y == 0.6);
      50  
      51    test_function ();
      52  
      53    return 0;
      54  }