diff options
author | Matt Caswell <matt@openssl.org> | 2016-11-15 13:26:12 +0000 |
---|---|---|
committer | Matt Caswell <matt@openssl.org> | 2016-11-23 15:31:21 +0000 |
commit | c11237c23e9f60cecdb899580b7b9ffb88614a7e (patch) | |
tree | 2e9d33c6ddaafd3ea600f592d006c5a5bc57464d /test/recipes | |
parent | 20b65c7bdd9ca34c497624d1d07edd433be88a83 (diff) |
Add a test for the TLSv1.3 state machine
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'test/recipes')
-rwxr-xr-x | test/recipes/70-test_tls13messages.t | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/test/recipes/70-test_tls13messages.t b/test/recipes/70-test_tls13messages.t new file mode 100755 index 0000000000..9c1b6ee5f8 --- /dev/null +++ b/test/recipes/70-test_tls13messages.t @@ -0,0 +1,86 @@ +#! /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 strict; +use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/; +use OpenSSL::Test::Utils; +use TLSProxy::Proxy; +my $test_name = "test_tls13messages"; +setup($test_name); + +plan skip_all => "TLSProxy isn't usable on $^O" + if $^O =~ /^(VMS|MSWin32)$/; + +plan skip_all => "$test_name needs the dynamic engine feature enabled" + if disabled("engine") || disabled("dynamic-engine"); + +plan skip_all => "$test_name needs the sock feature enabled" + if disabled("sock"); + +plan skip_all => "$test_name needs TLSv1.3 enabled" + if disabled("tls1_3"); + +$ENV{OPENSSL_ia32cap} = '~0x200000200000000'; + +use constant { + DEFAULT_HANDSHAKE => 1 +}; + +my @handmessages = ( + [TLSProxy::Message::MT_CLIENT_HELLO, DEFAULT_HANDSHAKE], + [TLSProxy::Message::MT_SERVER_HELLO, DEFAULT_HANDSHAKE], + [TLSProxy::Message::MT_CERTIFICATE, DEFAULT_HANDSHAKE], + [TLSProxy::Message::MT_FINISHED, DEFAULT_HANDSHAKE], + [TLSProxy::Message::MT_FINISHED, DEFAULT_HANDSHAKE], + [0, 0] +); + +my $proxy = TLSProxy::Proxy->new( + undef, + cmdstr(app(["openssl"]), display => 1), + srctop_file("apps", "server.pem"), + (!$ENV{HARNESS_ACTIVE} || $ENV{HARNESS_VERBOSE}) +); + +sub checkmessages($$); + +#Test 1: Check we get all the right messages for a default handshake +$proxy->start() or plan skip_all => "Unable to start up Proxy for tests"; +plan tests => 1; +checkmessages(DEFAULT_HANDSHAKE, "Default handshake test"); + +sub checkmessages($$) +{ + my ($handtype, $testname) = @_; + + subtest $testname => sub { + my $loop = 0; + my $numtests; + + #First count the number of tests + for ($numtests = 1; $handmessages[$loop][1] != 0; $loop++) { + $numtests++ if (($handmessages[$loop][1] & $handtype) != 0); + } + + plan tests => $numtests; + + $loop = 0; + foreach my $message (@{$proxy->message_list}) { + for (; $handmessages[$loop][1] != 0 + && ($handmessages[$loop][1] & $handtype) == 0; $loop++) { + next; + } + ok($handmessages[$loop][1] != 0 + && $message->mt == $handmessages[$loop][0], + "Message type check. Got ".$message->mt + .", expected ".$handmessages[$loop][0]); + $loop++; + } + ok($handmessages[$loop][1] == 0, "All expected messages processed"); + } +} |