Trig.t revision 1
1N/A# Regression tests for the Math::Trig package 1N/A# The tests are quite modest as the Math::Complex tests exercise 1N/A# these quite vigorously. 1N/A# -- Jarkko Hietaniemi, April 1997 1N/A chdir 't' if -d 't'; 1N/A print "# near? $_[0] $_[1] $e\n"; 1N/A $_[1] ? (abs($_[0]/$_[1] - 1) < $e) : abs($_[0]) < $e; 1N/A# avoid using Math::Complex here 1N/A$x =~ /^
([^-]+)(-[^i]+)i$/;
1N/A my $R2D = 57.295779513082320876798154814169; 1N/A# Retired test: Relies on atan(0, 0), which is not portable. 1N/A# unless (near(great_circle_direction(0, 0, pi, pi), -pi()/2));