use strict;
use warnings;
use feature 'say';
use Alien::GSL;
use Math::GSL;
use Math::GSL::SparseMatrix ':all';

say join ' ', Alien::GSL->version, Alien::GSL->install_type;
say Math::GSL::gsl_version();

my $m = gsl_spmatrix_alloc( 1, 1 );

die if gsl_spmatrix_set( $m, 0, 0, 1 );
say gsl_spmatrix_nnz( $m );
die if gsl_spmatrix_set( $m, 123 + 1 << 32, 0, 1 );
say gsl_spmatrix_nnz( $m );
die if gsl_spmatrix_set( $m, 456 + 1 << 32, 0, 1 );
say gsl_spmatrix_nnz( $m );