diff options
author | Bob Ernst <bobernst@cpan.org> | 2012-11-18 00:03:58 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2012-11-25 19:54:29 -0500 |
commit | e759bc314f0fb0eebf211ca20ce3b52cbce6bd71 (patch) | |
tree | dc2b769d2e25f4632c63e1e0f5fc040da26936cf | |
parent | 66745c0bdc21eaccfcea80c9af21d23eadd859ab (diff) | |
download | perl-e759bc314f0fb0eebf211ca20ce3b52cbce6bd71.tar.gz |
Add descriptions to tests for exp.t
-rw-r--r-- | t/op/exp.t | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/t/op/exp.t b/t/op/exp.t index 9bc44b49b4..d132b1f1c2 100644 --- a/t/op/exp.t +++ b/t/op/exp.t @@ -11,24 +11,24 @@ plan tests => 16; # compile time evaluation $s = sqrt(2); -is(substr($s,0,5), '1.414'); +is(substr($s,0,5), '1.414', 'compile time sqrt(2) == 1.414'); $s = exp(1); -is(substr($s,0,7), '2.71828'); +is(substr($s,0,7), '2.71828', 'compile time exp(1) == e'); -cmp_ok(exp(log(1)), '==', 1); +cmp_ok(exp(log(1)), '==', 1, 'compile time exp(log(1)) == 1'); # run time evaluation $x1 = 1; $x2 = 2; $s = sqrt($x2); -is(substr($s,0,5), '1.414'); +is(substr($s,0,5), '1.414', 'run time sqrt(2) == 1.414'); $s = exp($x1); -is(substr($s,0,7), '2.71828'); +is(substr($s,0,7), '2.71828', 'run time exp(1) = e'); -cmp_ok(exp(log($x1)), '==', 1); +cmp_ok(exp(log($x1)), '==', 1, 'run time exp(log(1)) == 1'); # tests for transcendental functions @@ -41,18 +41,18 @@ sub round { } # 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); +cmp_ok(sin(0), '==', 0.0, 'sin(0) == 0'); +cmp_ok(round(sin($pi)), '==', 0.0, 'sin(pi) == 0'); +cmp_ok(round(sin(-1 * $pi)), '==', 0.0, 'sin(-pi) == 0'); +cmp_ok(round(sin($pi_2)), '==', 1.0, 'sin(pi/2) == 1'); +cmp_ok(round(sin(-1 * $pi_2)), '==', -1.0, 'sin(-pi/2) == -1'); # 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); +cmp_ok(cos(0), '==', 1.0, 'cos(0) == 1'); +cmp_ok(round(cos($pi)), '==', -1.0, 'cos(pi) == -1'); +cmp_ok(round(cos(-1 * $pi)), '==', -1.0, 'cos(-pi) == -1'); +cmp_ok(round(cos($pi_2)), '==', 0.0, 'cos(pi/2) == 0'); +cmp_ok(round(cos(-1 * $pi_2)), '==', 0.0, 'cos(-pi/2) == 0'); # atan2() tests were removed due to differing results from calls to # atan2() on various OS's and architectures. See perlport.pod for |