diff options
| author | Gurusamy Sarathy <gsar@engin.umich.edu> | 1997-04-25 01:21:44 +0300 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-25 00:00:00 +1200 |
| commit | ace5de9177b2ac52e0ddcbfae330cb6f233576f6 (patch) | |
| tree | 54eb84e7f4ecdcf38022bb4a0e75022fcaa797ad /t/lib/trig.t | |
| parent | 7025f710301089a3f0e734f3192916a373b2e2e9 (diff) | |
| download | perl-ace5de9177b2ac52e0ddcbfae330cb6f233576f6.tar.gz | |
Math::{Complex,Trig} update
private-msgid: 199704242221.BAA30363@alpha.hut.fi
Diffstat (limited to 't/lib/trig.t')
| -rwxr-xr-x | t/lib/trig.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/lib/trig.t b/t/lib/trig.t index 57746fdcd4..c2bc2a8b5b 100755 --- a/t/lib/trig.t +++ b/t/lib/trig.t @@ -25,7 +25,7 @@ sub near ($$;$) { abs($_[0] - $_[1]) < (defined $_[2] ? $_[2] : $eps); } -print "1..6\n"; +print "1..7\n"; $x = 0.9; print 'not ' unless (near(tan($x), sin($x) / cos($x))); @@ -48,7 +48,10 @@ print 'not ' unless (near($y, 1.5707963267949) and near($z, -1.31695789692482)); print "ok 5\n"; -print 'not ' unless (near(deg_to_rad(90), pi/2)); +print 'not ' unless (near(deg2rad(90), pi/2)); print "ok 6\n"; +print 'not ' unless (near(rad2deg(pi), 180)); +print "ok 7\n"; + # eof |