t/Complex.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Math::GSL::Complex;
   4 use Data::Dumper;
   5 use strict;
   6 use warnings;
   7
   8 # gsl_complex gsl_complex_polar (double r, double theta)
   9
  10 {
  11     my $x =Math::GSL::Complex::gsl_complex->new;
  12     ok( defined $x && $x->isa('Math::GSL::Complex'), 'gsl_complex' );
  13 }
  14 {
  15     my $x =Math::GSL::Complex::gsl_complex->new;
  16
  17     my $vals = Math::GSL::Complex::new_doubleArray(2);
  18
  19     Math::GSL::Complex::doubleArray_setitem($vals, 0, 2);
  20
  21     Math::GSL::Complex::doubleArray_setitem($vals, 1, 3);
  22
  23     warn Dumper [ $vals ];
  24     warn Dumper [ $x ];
  25 }
  26
  27