git.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/30_error.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6
   7 eval "use Test::Exception; use Test::Warn; use Test::NoWarnings; 1;";
   8 plan skip_all => 'Requires Test::Exception, Test::Warn and Test::NoWarnings' if $@;
   9 plan tests => 11;
  10
  11 use Net::SSLeay;
  12 Net::SSLeay::load_error_strings();
  13
  14 {
  15     throws_ok(sub {
  16             Net::SSLeay::die_now('test')
  17     }, qr/^$$: test\n$/, 'die_now dies without errors');
  18
  19     lives_ok(sub {
  20             Net::SSLeay::die_if_ssl_error('test');
  21     }, 'die_if_ssl_error lives without errors');
  22
  23     put_err();
  24     throws_ok(sub {
  25             Net::SSLeay::die_now('test');
  26     }, qr/^$$: test\n$/, 'die_now dies with errors');
  27
  28     put_err();
  29     throws_ok(sub {
  30             Net::SSLeay::die_if_ssl_error('test');
  31     }, qr/^$$: test\n$/, 'die_if_ssl_error dies with errors');
  32 }
  33
  34 {
  35     local $Net::SSLeay::trace = 1;
  36
  37     throws_ok(sub {
  38             Net::SSLeay::die_now('foo');
  39     }, qr/^$$: foo\n$/, 'die_now dies without arrors and with trace');
  40
  41     lives_ok(sub {
  42             Net::SSLeay::die_if_ssl_error('foo');
  43     }, 'die_if_ssl_error lives without errors and with trace');
  44
  45     put_err();
  46     warning_like(sub {
  47             throws_ok(sub {
  48                     Net::SSLeay::die_now('foo');
  49             }, qr/^$$: foo\n$/, 'die_now dies with errors and trace');
  50     }, qr/^foo $$: 1 - error:2006d080/i, 'die_now raises warnings about the occured error when tracing');
  51
  52     put_err();
  53     warning_like(sub {
  54             throws_ok(sub {
  55                 Net::SSLeay::die_if_ssl_error('foo');
  56             }, qr/^$$: foo\n$/, 'die_if_ssl_error dies with errors and trace');
  57     }, qr/^foo $$: 1 - error:2006d080/i, 'die_if_ssl_error raises warnings about the occured error when tracing');
  58 }
  59
  60 sub put_err {
  61     Net::SSLeay::ERR_put_error(
  62         32, #lib
  63        109, #func
  64        128, #reason
  65          1, #file
  66          1, #line
  67     );
  68 }