add ssleay info test
Apocalypse
9 years ago
0 | 0 |
Revision history for Perl extension POE::Component::SSLify.
|
1 | 1 |
|
2 | 2 |
{{$NEXT}}
|
|
3 |
add informational test that prints out ssleay version
|
3 | 4 |
|
4 | 5 |
1.009 2014-11-12T00:41:25Z UTC
|
5 | 6 |
- Updates to the auto-generated files
|
|
0 |
#!/usr/bin/perl
|
|
1 |
use strict; use warnings;
|
|
2 |
|
|
3 |
# displays some basic info
|
|
4 |
|
|
5 |
use Test::FailWarnings;
|
|
6 |
use Test::More 1.001002; # new enough for sanity in done_testing()
|
|
7 |
|
|
8 |
use POE::Component::SSLify;
|
|
9 |
|
|
10 |
# only available > 1.42
|
|
11 |
eval {
|
|
12 |
diag( "\nNet::SSLeay::ver_number is 0x" . sprintf( "%x", Net::SSLeay::SSLeay() ) );
|
|
13 |
diag( "\t" . Net::SSLeay::SSLeay_version( 0 ) );
|
|
14 |
diag( "\t" . Net::SSLeay::SSLeay_version( 2 ) );
|
|
15 |
diag( "\t" . Net::SSLeay::SSLeay_version( 3 ) );
|
|
16 |
diag( "\t" . Net::SSLeay::SSLeay_version( 4 ) );
|
|
17 |
};
|
|
18 |
|
|
19 |
ok(1, "fake test for info");
|
|
20 |
done_testing;
|