mirror of https://github.com/openssl/openssl.git
				
				
				
			
		
			
	
	
		
			22 lines
		
	
	
		
			741 B
		
	
	
	
		
			Perl
		
	
	
	
		
		
			
		
	
	
			22 lines
		
	
	
		
			741 B
		
	
	
	
		
			Perl
		
	
	
	
|  | #! /usr/bin/env perl | ||
|  | # Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved. | ||
|  | # | ||
|  | # Licensed under the OpenSSL license (the "License").  You may not use | ||
|  | # this file except in compliance with the License.  You can obtain a copy | ||
|  | # in the file LICENSE in the source distribution or at | ||
|  | # https://www.openssl.org/source/license.html | ||
|  | 
 | ||
|  | 
 | ||
|  | use OpenSSL::Test::Utils; | ||
|  | use OpenSSL::Test qw/:DEFAULT srctop_file/; | ||
|  | 
 | ||
|  | setup("test_asyncio"); | ||
|  | 
 | ||
|  | plan skip_all => "No TLS/SSL protocols are supported by this OpenSSL build" | ||
|  |     if alldisabled(grep { $_ ne "ssl3" } available_protocols("tls")); | ||
|  | 
 | ||
|  | plan tests => 1; | ||
|  | 
 | ||
|  | ok(run(test(["asynciotest", srctop_file("apps", "server.pem"), | ||
|  |              srctop_file("apps", "server.pem")])), "running asynciotest"); |