Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

75 lines (61 sloc) 2.05 kB
package Math::GSL::Chebyshev::Test;
use strict;
use warnings;
use base q{Test::Class};
use Math::GSL::Chebyshev qw/:all/;
use Math::GSL::Test qw/:all/;
use Math::GSL::Errno qw/:all/;
use Math::GSL qw/:all/;
use Test::More tests => 10;
use Data::Dumper;
BEGIN { gsl_set_error_handler_off() }
sub make_fixture : Test(setup) {
my $self = shift;
$self->{cheb} = gsl_cheb_alloc(40);
}
sub teardown : Test(teardown) {
my $self = shift;
gsl_cheb_free($self->{cheb});
}
sub GSL_CHEB_ALLOC : Tests {
my $self = shift;
isa_ok($self->{cheb}, 'Math::GSL::Chebyshev');
}
sub GSL_CHEB_INIT : Tests {
my $self = shift;
my $func = sub { my $x = shift; return sin(cos($x)) };
ok_status(gsl_cheb_init( $self->{cheb}, $func, 0, 1));
}
sub GSL_CHEB_EVAL : Tests {
my $self = shift;
my $func = sub { my $x = shift; return sin(cos($x)) };
gsl_cheb_init( $self->{cheb}, $func, 0, 1);
ok_similar( [ sin(cos(0.5)) ], [gsl_cheb_eval($self->{cheb}, 0.5 ) ] );
}
sub GSL_CHEB_EVAL_ERR : Tests {
my $self = shift;
my $func = sub { my $x = shift; return sin(cos($x)) };
gsl_cheb_init( $self->{cheb}, $func, 0, 1);
my ($status,$result,$err) = gsl_cheb_eval_err($self->{cheb}, 0.5 );
ok_status($status);
ok_similar( [ sin(cos(0.5)) ], [ $result ], 'gsl_cheb_eval_err result');
ok( defined $err , 'error is defined');
}
sub GSL_CHEB_CALC_DERIV : Tests {
my $self = shift;
my $deriv = gsl_cheb_alloc(40);
my $func = sub { my $x = shift; return sin(cos($x)) };
gsl_cheb_init( $self->{cheb}, $func, 0, 1);
ok_status(gsl_cheb_calc_deriv($deriv, $self->{cheb} ));
isa_ok($deriv, 'Math::GSL::Chebyshev');
}
sub GSL_CHEB_CALC_INTEGRAL : Tests {
my $self = shift;
my $integral = gsl_cheb_alloc(40);
my $func = sub { my $x = shift; return sin(cos($x)) };
gsl_cheb_init( $self->{cheb}, $func, 0, 1);
ok_status(gsl_cheb_calc_integ($integral, $self->{cheb} ));
isa_ok($integral, 'Math::GSL::Chebyshev');
}
Test::Class->runtests;
1;
Jump to Line
Something went wrong with that request. Please try again.