view release on metacpan or  search on metacpan

t/NTuple.t  view on Meta::CPAN

}

sub GSL_NTUPLE_READ: Tests(2) {
    my $self = shift;
    my $data = [ (42) x $self->{size} ];
    my $ntuple = Math::GSL::NTuple::gsl_ntuple->new;
    $ntuple = gsl_ntuple_open('ntuple', $data, $self->{size} );

    ok_status(gsl_ntuple_read($ntuple));

    my $cdata = $ntuple->swig_ntuple_data_get ;
    # warn Dumper [ $data, $cdata ];
    ok_status(gsl_ntuple_close($ntuple));
}

sub GSL_NTUPLE_GSL_NTUPLE: Tests(1) {
    my $ntuple = Math::GSL::NTuple::gsl_ntuple->new;
    isa_ok($ntuple,'Math::GSL::NTuple::gsl_ntuple');
}

sub GSL_NTUPLE_OBJECT: Tests(2) {
    my $ntuple = Math::GSL::NTuple->new;