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