lib/Math/GSL/Poly/Test.pm

   1 package Math::GSL::Poly::Test;
   2 use base q{Test::Class};
   3 use Test::More;
   4 use Math::GSL::Poly qw/gsl_poly_eval gsl_poly_solve_quadratic/;
   5 use Math::GSL qw/is_similar/;
   6 use Data::Dumper;
   7 use strict;
   8
   9 sub make_fixture : Test(setup) {
  10 }
  11 sub teardown : Test(teardown) {
  12 }
  13
  14 sub GSL_POLY_EVAL : Tests {
  15     my $y = gsl_poly_eval( [ 3.14, 2.72, 5.55 ] , 3, 1.0);
  16
  17     ok( is_similar($y,3.14+2.72+5.55) );
  18 }
  19 sub GSL_POLY_SOLVE_QUADRATIC : Tests {
  20     my ($a,$b,$c) = (1, 6, 9);
  21     my ($x0,$x1)=(0,0);
  22     my ($num_roots) = gsl_poly_solve_quadratic( $a, $b, $c, \$x0, \$x1);
  23     is_deeply ( [ $num_roots, $x0, $x1], [ 2, -3, -3 ] );
  24 }
  25
  26 42;