t/Errno.t

   1 use Test::More 'no_plan';
   2 use Test::Exception;
   3 use Math::GSL;
   4 use Math::GSL::Errno qw/:all/;
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   9 ok( gsl_strerror($GSL_SUCCESS) eq 'success', q{gsl_strerror(GSL_SUCCESS) = 'success'} );
  10 ok( gsl_strerror($GSL_EOF) eq 'end of file', q{gsl_strerror(GSL_EOF) = 'end of file'} );
  11 ok( gsl_strerror($GSL_CONTINUE) eq 'the iteration has not converged yet');
  12 ok( gsl_strerror($GSL_EDOM) eq 'input domain error');
  13 ok( gsl_strerror($GSL_ERANGE) eq 'output range error');
  14 ok( gsl_strerror($GSL_EFAULT) eq 'invalid pointer');
  15
  16
  17 {
  18     my $handler = gsl_set_error_handler_off();
  19     ok(!$@, 'gsl_set_error_handler_off() turns off error handling');
  20
  21     local $TODO="gsl_set_error_handler_off() does not return a gsl_error_handler_t";
  22     isa_ok($handler, 'Math::GSL::Errno' );
  23 }
  24