Move the require './test.pl' to the end of t/comp/hints.t
[p5sagit/p5-mst-13.2.git] / t / op / exp.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 plan tests => 16;
10
11 # compile time evaluation
12
13 $s = sqrt(2);
14 is(substr($s,0,5), '1.414');
15
16 $s = exp(1);
17 is(substr($s,0,7), '2.71828');
18
19 cmp_ok(exp(log(1)), '==', 1);
20
21 # run time evaluation
22
23 $x1 = 1;
24 $x2 = 2;
25 $s = sqrt($x2);
26 is(substr($s,0,5), '1.414');
27
28 $s = exp($x1);
29 is(substr($s,0,7), '2.71828');
30
31 cmp_ok(exp(log($x1)), '==', 1);
32
33 # tests for transcendental functions
34
35 my $pi = 3.1415926535897931160;
36 my $pi_2 = 1.5707963267948965580;
37
38 sub round {
39    my $result = shift;
40    return sprintf("%.9f", $result);
41 }
42
43 # sin() tests
44 cmp_ok(sin(0), '==', 0.0);
45 cmp_ok(round(sin($pi)), '==', 0.0);
46 cmp_ok(round(sin(-1 * $pi)), '==', 0.0);
47 cmp_ok(round(sin($pi_2)), '==', 1.0);
48 cmp_ok(round(sin(-1 * $pi_2)), '==', -1.0);
49
50 # cos() tests
51 cmp_ok(cos(0), '==', 1.0);
52 cmp_ok(round(cos($pi)), '==', -1.0);
53 cmp_ok(round(cos(-1 * $pi)), '==', -1.0);
54 cmp_ok(round(cos($pi_2)), '==', 0.0);
55 cmp_ok(round(cos(-1 * $pi_2)), '==', 0.0);
56
57 # atan2() tests were removed due to differing results from calls to
58 # atan2() on various OS's and architectures.  See perlport.pod for
59 # more information.