t/Errno.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Math::GSL::Errno;
   4 use Data::Dumper;
   5 use strict;
   6 use warnings;
   7
   8
   9 ok( defined $Math::GSL::Errno::GSL_SUCCESS, 'GSL_SUCCESS');
  10 ok( defined $Math::GSL::Errno::GSL_EOF    ,  'GSL_EOF' );
  11
  12 ok( Math::GSL::Errno::gsl_strerror($Math::GSL::Errno::GSL_SUCCESS) eq 'success',
  13     q{gsl_strerror(GSL_SUCCESS) = 'success'} );
  14
  15
  16 ok( Math::GSL::Errno::gsl_strerror($Math::GSL::Errno::GSL_EOF) eq 'end of file',
  17     q{gsl_strerror(GSL_EOF) = 'end of file'} );
  18