d7295cd6d2
This adds an async IO test. There are two test runs. The first one does a normal handshake with lots of async IO events. The second one does the same but this time breaks up all the written records into multiple records of one byte in length. We do this all the way up until the CCS. Reviewed-by: Andy Polyakov <appro@openssl.org>
22 lines
760 B
Raku
22 lines
760 B
Raku
#! /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;
|
|
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");
|