Mercurial > hg > octave-lojdl > gnulib-hg
view tests/test-modf.c @ 15681:c21e706c88b2
Tests for module 'shutdown'.
* modules/shutdown-tests: New file.
* tests/test-shutdown.c: New file.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Tue, 20 Sep 2011 21:38:04 +0200 |
parents | 97fc9a21a8fb |
children | dd898709f077 |
line wrap: on
line source
/* Test of modf() function. Copyright (C) 2010-2011 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 (modf, double, (double, double *)); #include "macros.h" volatile double x; double y; double z; int main () { /* A particular positive value. */ x = 5.972406760; y = modf (x, &z); ASSERT (y >= 0.972406759 && y <= 0.972406761); ASSERT (z == 5.0); /* A particular negative value. */ x = -5.972406760; y = modf (x, &z); ASSERT (y >= -0.972406761 && y <= 0.972406759); ASSERT (z == -5.0); return 0; }