ext/POSIX/t/math.t

   1 #!perl -w
   2
   3 use strict;
   4
   5 use POSIX;
   6 use Test::More tests => 14;
   7
   8 # These tests are mainly to make sure that these arithmatic functions
   9 # exist and are accessible.  They are not meant to be an exhaustive
  10 # test for the interface.
  11
  12 is(acos(1), 0, "Basic acos(1) test");
  13 is(asin(0), 0, "Basic asin(0) test");
  14 is(atan(0), 0, "Basic atan(0) test");
  15 is(cosh(0), 1, "Basic cosh(0) test");
  16 is(floor(1.23441242), 1, "Basic floor(1.23441242) test");
  17 is(fmod(3.5, 2.0), 1.5, "Basic fmod(3.5, 2.0) test");
  18 is(join(" ", frexp(1)), "0.5 1",  "Basic frexp(1) test");
  19 is(ldexp(0,1), 0, "Basic ldexp(0,1) test");
  20 is(log10(1), 0, "Basic log10(1) test");
  21 is(log10(10), 1, "Basic log10(10) test");
  22 is(join(" ", modf(1.76)), "0.76 1", "Basic modf(1.76) test");
  23 is(sinh(0), 0, "Basic sinh(0) test");
  24 is(tan(0), 0, "Basic tan(0) test");
  25 is(tanh(0), 0, "Basic tanh(0) test");