Commit 9a89ec61f97b246088fb02508d1479295706bd22 - libpoe-component-sslify-perl

add pogomips concept from POE =] Apocalypse 9 years ago

1 changed file(s) with 7 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all

-0

t/00-ssleay-info.t less more

16	16	diag( "\t" . Net::SSLeay::SSLeay_version( 4 ) );
17	17	};
18	18
	19	# Idea taken from POE t/00_info.t :)
	20	my $done = 0;
	21	my $x = 0;
	22	$SIG{ALRM} = sub { diag "\tpogomips: $x"; $done = 1; };
	23	alarm(1);
	24	++$x until $done;
	25
19	26	ok(1, "fake test for info");
20	27	done_testing;