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