[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl.git] / t / lib / trig.t
1 #!./perl 
2
3 #
4 # Regression tests for the Math::Trig package
5 #
6 # The tests are quite modest as the Math::Complex tests exercise
7 # these quite vigorously.
8
9 # -- Jarkko Hietaniemi, April 1997
10
11 BEGIN {
12     chdir 't' if -d 't';
13     @INC = '../lib';
14 }
15
16 use Math::Trig;
17
18 use strict;
19
20 use vars qw($x $y $z);
21
22 my $eps = 1e-11;
23
24 sub near ($$;$) {
25     abs($_[0] - $_[1]) < (defined $_[2] ? $_[2] : $eps);
26 }
27
28 print "1..6\n";
29
30 $x = 0.9;
31 print 'not ' unless (near(tan($x), sin($x) / cos($x)));
32 print "ok 1\n";
33
34 print 'not ' unless (near(sinh(2), 3.62686040784702));
35 print "ok 2\n";
36
37 print 'not ' unless (near(acsch(0.1), 2.99822295029797));
38 print "ok 3\n";
39
40 $x = asin(2);
41 print 'not ' unless (ref $x eq 'Math::Complex');
42 print "ok 4\n";
43
44 # avoid using Math::Complex here
45 $x =~ /^([^-]+)(-[^i]+)i$/;
46 ($y, $z) = ($1, $2);
47 print 'not ' unless (near($y,  1.5707963267949) and
48                      near($z, -1.31695789692482));
49 print "ok 5\n";
50
51 print 'not ' unless (near(deg_to_rad(90), pi/2));
52 print "ok 6\n";
53
54 # eof