X-Git-Url: https://git.librecmc.org/?a=blobdiff_plain;f=test%2Frecipes%2F70-test_tlsextms.t;h=763b0af61d991e62e9089b59a929445c563b4aeb;hb=19ab579060aa261bb1f7ed3dcd102471dfd556ee;hp=763f7e8304dd10864b8799fea209e7d0a1f5895d;hpb=60f9f1e1c821eea5bf6969e6eee578b1f0eccf9d;p=oweals%2Fopenssl.git diff --git a/test/recipes/70-test_tlsextms.t b/test/recipes/70-test_tlsextms.t index 763f7e8304..763b0af61d 100644 --- a/test/recipes/70-test_tlsextms.t +++ b/test/recipes/70-test_tlsextms.t @@ -53,7 +53,8 @@ # Hudson (tjh@cryptsoft.com). use strict; -use OpenSSL::Test qw/:DEFAULT cmdstr top_file top_dir/; +use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/; +use OpenSSL::Test::Utils; use TLSProxy::Proxy; use File::Temp qw(tempfile); @@ -63,12 +64,10 @@ setup($test_name); plan skip_all => "TLSProxy isn't usable on $^O" if $^O =~ /^VMS$/; -plan skip_all => "$test_name can only be performed with OpenSSL configured shared" - unless (map { s/\R//; s/^SHARED_LIBS=\s*//; $_ } - grep { /^SHARED_LIBS=/ } - do { local @ARGV = ( top_file("Makefile") ); <> })[0] ne ""; +plan skip_all => "$test_name needs the dynamic engine feature enabled" + if disabled("engine") || disabled("dynamic-engine"); -$ENV{OPENSSL_ENGINES} = top_dir("engines"); +$ENV{OPENSSL_ENGINES} = bldtop_dir("engines"); $ENV{OPENSSL_ia32cap} = '~0x200000200000000'; sub checkmessages($$$$$); @@ -84,8 +83,8 @@ my $fullhand = 0; my $proxy = TLSProxy::Proxy->new( \&extms_filter, cmdstr(app(["openssl"])), - top_file("apps", "server.pem"), - 1 + srctop_file("apps", "server.pem"), + (!$ENV{HARNESS_ACTIVE} || $ENV{HARNESS_VERBOSE}) ); plan tests => 9; @@ -213,11 +212,11 @@ sub extms_filter foreach my $message (@{$proxy->message_list}) { if ($crmextms && $message->mt == TLSProxy::Message::MT_CLIENT_HELLO) { - $message->delete_extension(TLSProxy::ClientHello::EXT_EXTENDED_MASTER_SECRET); + $message->delete_extension(TLSProxy::Message::EXT_EXTENDED_MASTER_SECRET); $message->repack(); } if ($srmextms && $message->mt == TLSProxy::Message::MT_SERVER_HELLO) { - $message->delete_extension(TLSProxy::ClientHello::EXT_EXTENDED_MASTER_SECRET); + $message->delete_extension(TLSProxy::Message::EXT_EXTENDED_MASTER_SECRET); $message->repack(); } } @@ -235,7 +234,7 @@ sub checkmessages($$$$$) #Get the extensions data my %extensions = %{$message->extension_data}; if (defined - $extensions{TLSProxy::ClientHello::EXT_EXTENDED_MASTER_SECRET}) { + $extensions{TLSProxy::Message::EXT_EXTENDED_MASTER_SECRET}) { if ($message->mt == TLSProxy::Message::MT_CLIENT_HELLO) { $cextms = 1; } else {