require './test.pl';
}
-plan tests => 6;
+plan tests => 16;
# compile time evaluation
$s = exp(1);
is(substr($s,0,7), '2.71828');
-ok(exp(log(1)) == 1);
+cmp_ok(exp(log(1)), '==', 1);
# run time evaluation
$s = exp($x1);
is(substr($s,0,7), '2.71828');
-ok(exp(log($x1)) == 1);
+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.