1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
#
# This file is part of POE-Component-SSLify
#
# This software is copyright (c) 2014 by Apocalypse.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict; use warnings;
use strict; use warnings;
# displays some basic info
use Test::FailWarnings;
use Test::More 1.001002; # new enough for sanity in done_testing()
use POE::Component::SSLify;
# only available > 1.42
eval {
diag( "\nNet::SSLeay::ver_number is 0x" . sprintf( "%x", Net::SSLeay::SSLeay() ) );
diag( "\t" . Net::SSLeay::SSLeay_version( 0 ) );
diag( "\t" . Net::SSLeay::SSLeay_version( 2 ) );
diag( "\t" . Net::SSLeay::SSLeay_version( 3 ) );
diag( "\t" . Net::SSLeay::SSLeay_version( 4 ) );
};
# Idea taken from POE t/00_info.t :)
my $done = 0;
my $x = 0;
$SIG{ALRM} = sub { diag "\tpogomips: $x"; $done = 1; };
alarm(1);
++$x until $done;
ok(1, "fake test for info");
done_testing;
|
