Permalink
Fetching contributors…
Cannot retrieve contributors at this time
78 lines (58 sloc) 2.34 KB
package Math::GSL::Poly::Test;
use base q{Test::Class};
use Test::More tests => 7;
use Math::GSL::Test qw/:all/;
use Math::GSL::Poly qw/:all/;
use Math::GSL::Errno qw/:all/;
use Math::GSL::Complex qw/:all/;
use Data::Dumper;
use strict;
BEGIN{ gsl_set_error_handler_off(); }
sub make_fixture : Test(setup) {
}
sub teardown : Test(teardown) {
}
sub GSL_POLY_EVAL : Tests {
my $y = gsl_poly_eval( [ 3.14, 2.72, 5.55 ] , 3, 1.0);
ok( is_similar($y,3.14+2.72+5.55) );
}
sub GSL_POLY_SOLVE_QUADRATIC : Tests {
my ($a,$b,$c) = (1, 6, 9);
my ($x0,$x1)=(0,0);
my ($num_roots) = gsl_poly_solve_quadratic( $a, $b, $c, \$x0, \$x1);
ok_similar( [ $num_roots, $x0, $x1], [ 2, -3, -3 ] );
}
sub GSL_POLY_COMPLEX_EVAL : Tests(1) {
my $z = gsl_complex_rect(2,1); # 2+i
my $got = gsl_poly_complex_eval( [ 1, 4 ], 2, $z); # 1 + 4 x
ok_similar( [ gsl_parts($got) ] , [ 9, 4 ], 'gsl_poly_complex_eval' );
}
sub GSL_COMPLEX_POLY_COMPLEX_EVAL : Tests(1) {
local $TODO = "typemap for array of gsl_complex objects is needed";
my $z = gsl_complex_rect(2,1); # 2+i
my $c1 = gsl_complex_rect(3,2); # 3+2i
my $c2 = gsl_complex_rect(0,5); # 5i
my $got = gsl_complex_poly_complex_eval( [ $c2, $c1 ], 2, $z );
ok_similar( [ gsl_parts($got) ], [ 4, 16 ],'gsl_complex_poly_complex_eval' );
}
sub GSL_COMPLEX_POLY_COMPLEX_EVAL2 : Tests(1) {
local $TODO = "typemap for array of gsl_complex objects is needed";
my $z = gsl_complex_rect(0.674,-1.423);
my $w = gsl_complex_rect(-1.44, 9.55);
my $got = gsl_complex_poly_complex_eval ([ $z ], 1, $w);
ok_similar( [ gsl_parts($got) ] , [0.674,-1.423], 'gsl_complex_poly_eval2' );
}
sub GSL_POLY_SOLVE_CUBIC : Tests {
my ($x0, $x1, $x2) = (0, 0, 0);
my ($num_roots) = gsl_poly_solve_cubic (-51.0, 867.0, -4913.0, \$x0, \$x1, \$x2);
ok_similar ( [ $num_roots, $x0, $x1, $x2], [ 3, 17.0, 17.0, 17.0] );
}
sub GSL_POLY_COMPLEX_SOLVE_QUADRATIC : Tests {
my $z0 = gsl_complex_rect(2,3);
my $z1 = gsl_complex_rect(3,2);
my ($num_roots) = gsl_poly_complex_solve_quadratic ( 4.0, -20.0, 26.0 , $z0, $z1);
ok_similar ([ $num_roots, gsl_parts($z0), gsl_parts($z1) ],
[ 2, 2.5, -0.5, 2.5, 0.5 ]
);
}
Test::Class->runtests;