Edit

kc3-lang/gnulib/tests/test-fabs.c

Branch :

  • Show log

    Commit

  • Author : Bruno Haible
    Date : 2012-03-03 16:14:14
    Hash : ff53c39e
    Message : fabs* tests: More tests. * tests/test-fabs.h: New file, partially extracted from tests/test-fabsl.c. * tests/test-fabs.c (RANDOM): New macro. * tests/test-fabsf.c (RANDOM): New macro. * tests/test-fabsl.c (RANDOM): New macro. * modules/fabs-tests (Files): Add tests/randomd.c. (Makefile.am): Add randomd.c to test_fabs_SOURCES. * modules/fabsf-tests (Files): Add tests/randomf.c. (Makefile.am): Add randomf.c to test_fabsf_SOURCES. * modules/fabsl-tests (Files): Add tests/randoml.c. (Makefile.am): Add randoml.c to test_fabsl_SOURCES.

  • tests/test-fabs.c
  • /* Test of fabs() function.
       Copyright (C) 2010-2012 Free Software Foundation, Inc.
    
       This program is free software: you can redistribute it and/or modify
       it under the terms of the GNU General Public License as published by
       the Free Software Foundation; either version 3 of the License, or
       (at your option) any later version.
    
       This program is distributed in the hope that it will be useful,
       but WITHOUT ANY WARRANTY; without even the implied warranty of
       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
       GNU General Public License for more details.
    
       You should have received a copy of the GNU General Public License
       along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
    
    /* Written by Bruno Haible <bruno@clisp.org>, 2010.  */
    
    #include <config.h>
    
    #include <math.h>
    
    #include "signature.h"
    SIGNATURE_CHECK (fabs, double, (double));
    
    #include <string.h>
    
    #include "macros.h"
    #include "minus-zero.h"
    
    #define DOUBLE double
    #define L_(literal) literal
    #define MINUS_ZERO minus_zerod
    #define FABS fabs
    #define RANDOM randomd
    #include "test-fabs.h"
    
    int
    main ()
    {
      /* A particular positive value.  */
      x = 0.6;
      y = fabs (x);
      ASSERT (y == 0.6);
    
      /* A particular negative value.  */
      x = -0.6;
      y = fabs (x);
      ASSERT (y == 0.6);
    
      test_function ();
    
      return 0;
    }