1#!perl -w 2 3use strict; 4 5use POSIX; 6use 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 12is(acos(1), 0, "Basic acos(1) test"); 13is(asin(0), 0, "Basic asin(0) test"); 14is(atan(0), 0, "Basic atan(0) test"); 15is(cosh(0), 1, "Basic cosh(0) test"); 16is(floor(1.23441242), 1, "Basic floor(1.23441242) test"); 17is(fmod(3.5, 2.0), 1.5, "Basic fmod(3.5, 2.0) test"); 18is(join(" ", frexp(1)), "0.5 1", "Basic frexp(1) test"); 19is(ldexp(0,1), 0, "Basic ldexp(0,1) test"); 20is(log10(1), 0, "Basic log10(1) test"); 21is(log10(10), 1, "Basic log10(10) test"); 22is(join(" ", modf(1.76)), "0.76 1", "Basic modf(1.76) test"); 23is(sinh(0), 0, "Basic sinh(0) test"); 24is(tan(0), 0, "Basic tan(0) test"); 25is(tanh(0), 0, "Basic tanh(0) test"); 26