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 $@;
12 Net::SSLeay::load_error_strings();
16 Net::SSLeay::die_now('test')
17 }, qr/^$$: test\n$/, 'die_now dies without errors');
20 Net::SSLeay::die_if_ssl_error('test');
21 }, 'die_if_ssl_error lives without errors');
25 Net::SSLeay::die_now('test');
26 }, qr/^$$: test\n$/, 'die_now dies with errors');
30 Net::SSLeay::die_if_ssl_error('test');
31 }, qr/^$$: test\n$/, 'die_if_ssl_error dies with errors');
35 local $Net::SSLeay::trace = 1;
38 Net::SSLeay::die_now('foo');
39 }, qr/^$$: foo\n$/, 'die_now dies without arrors and with trace');
42 Net::SSLeay::die_if_ssl_error('foo');
43 }, 'die_if_ssl_error lives without errors and with trace');
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');
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');
61 Net::SSLeay::ERR_put_error(