mirror of
https://github.com/openssl/openssl.git
synced 2026-01-18 17:11:31 +01:00
Convert TLSProxy to use new provider
replace use of ossltest engine with provider in TLSProxy and update all dependent tests Reviewed-by: Matt Caswell <matt@openssl.org> Reviewed-by: Shane Lontis <shane.lontis@oracle.com> Reviewed-by: Paul Dale <ppzgs1@gmail.com> (Merged from https://github.com/openssl/openssl/pull/28461)
This commit is contained in:
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_certtypeext";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -11,15 +11,18 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file srctop_dir bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use File::Temp qw(tempfile);
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_comp";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -11,6 +11,7 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use File::Temp qw(tempfile);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
use constant {
|
||||
LOOK_ONLY => 0,
|
||||
@@ -49,11 +50,13 @@ my $selectedgroupid;
|
||||
my $test_name = "test_key_share";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -7,19 +7,21 @@
|
||||
# https://www.openssl.org/source/license.html
|
||||
|
||||
use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file/;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
|
||||
use Cwd qw(abs_path);
|
||||
use TLSProxy::Proxy;
|
||||
|
||||
my $test_name = "test_npn";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -11,15 +11,18 @@ use List::Util 'first';
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_renegotiation";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -12,15 +12,18 @@ use feature 'state';
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslcbcpadding";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslcertstatus";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -12,15 +12,18 @@ use feature 'state';
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslextension";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -12,15 +12,18 @@ use OpenSSL::Test::Utils;
|
||||
use File::Temp qw(tempfile);
|
||||
use TLSProxy::Proxy;
|
||||
use checkhandshake qw(checkhandshake @handmessages @extensions);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslmessages";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -13,15 +13,18 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use TLSProxy::Message;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslrecords";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -11,15 +11,18 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use File::Temp qw(tempfile);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslsessiontick";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslsigalgs";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslsignature";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslskewith0p";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "dh is not supported by this OpenSSL build"
|
||||
if disabled("dh");
|
||||
|
||||
@@ -11,6 +11,7 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use File::Temp qw(tempfile);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
use constant {
|
||||
REVERSE_ORDER_VERSIONS => 1,
|
||||
@@ -27,11 +28,13 @@ my $testtype;
|
||||
my $test_name = "test_sslversions";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_sslvertol";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13alerts";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -12,15 +12,18 @@ use OpenSSL::Test::Utils;
|
||||
use File::Temp qw(tempfile);
|
||||
use TLSProxy::Proxy;
|
||||
use checkhandshake qw(checkhandshake @handmessages @extensions);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13certcomp";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,15 +10,18 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13cookie";
|
||||
setup($test_name);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
|
||||
@@ -10,6 +10,7 @@ use strict;
|
||||
use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13downgrade";
|
||||
setup($test_name);
|
||||
@@ -17,8 +18,8 @@ setup($test_name);
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
@@ -27,6 +28,8 @@ plan skip_all => "$test_name needs TLS1.3 and TLS1.2 enabled"
|
||||
if disabled("tls1_3") || disabled("tls1_2")
|
||||
|| (disabled("ec") && disabled("dh"));
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
my $proxy = TLSProxy::Proxy->new(
|
||||
undef,
|
||||
cmdstr(app(["openssl"]), display => 1),
|
||||
|
||||
@@ -11,6 +11,7 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use TLSProxy::Message;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13hrr";
|
||||
setup($test_name);
|
||||
@@ -18,8 +19,8 @@ setup($test_name);
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
@@ -27,6 +28,8 @@ plan skip_all => "$test_name needs the sock feature enabled"
|
||||
plan skip_all => "$test_name needs TLS1.3 enabled"
|
||||
if disabled("tls1_3") || (disabled("ec") && disabled("dh"));
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
my $proxy = TLSProxy::Proxy->new(
|
||||
undef,
|
||||
cmdstr(app(["openssl"]), display => 1),
|
||||
|
||||
@@ -12,6 +12,7 @@ use OpenSSL::Test::Utils;
|
||||
use File::Temp qw(tempfile);
|
||||
use TLSProxy::Proxy;
|
||||
use checkhandshake qw(checkhandshake @handmessages @extensions);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13kexmodes";
|
||||
setup($test_name);
|
||||
@@ -19,8 +20,8 @@ setup($test_name);
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
@@ -184,6 +185,8 @@ use constant {
|
||||
BOTH_KEX_MODES => 5
|
||||
};
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
my $proxy = TLSProxy::Proxy->new(
|
||||
undef,
|
||||
cmdstr(app(["openssl"]), display => 1),
|
||||
|
||||
@@ -12,6 +12,7 @@ use OpenSSL::Test::Utils;
|
||||
use File::Temp qw(tempfile);
|
||||
use TLSProxy::Proxy;
|
||||
use checkhandshake qw(checkhandshake @handmessages @extensions);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13messages";
|
||||
setup($test_name);
|
||||
@@ -19,8 +20,8 @@ setup($test_name);
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
@@ -199,6 +200,8 @@ plan skip_all => "$test_name needs EC enabled"
|
||||
[0,0,0,0]
|
||||
);
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
my $proxy = TLSProxy::Proxy->new(
|
||||
undef,
|
||||
cmdstr(app(["openssl"]), display => 1),
|
||||
|
||||
@@ -11,6 +11,7 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file srctop_dir bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use File::Temp qw(tempfile);
|
||||
use TLSProxy::Proxy;
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tls13psk";
|
||||
setup($test_name);
|
||||
@@ -18,8 +19,8 @@ setup($test_name);
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
@@ -27,6 +28,8 @@ plan skip_all => "$test_name needs the sock feature enabled"
|
||||
plan skip_all => "$test_name needs TLSv1.3 enabled"
|
||||
if disabled("tls1_3") || (disabled("ec") && disabled("dh"));
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
my $proxy = TLSProxy::Proxy->new(
|
||||
undef,
|
||||
cmdstr(app(["openssl"]), display => 1),
|
||||
|
||||
@@ -11,6 +11,7 @@ use OpenSSL::Test qw/:DEFAULT cmdstr srctop_file bldtop_dir/;
|
||||
use OpenSSL::Test::Utils;
|
||||
use TLSProxy::Proxy;
|
||||
use File::Temp qw(tempfile);
|
||||
use Cwd qw(abs_path);
|
||||
|
||||
my $test_name = "test_tlsextms";
|
||||
setup($test_name);
|
||||
@@ -18,8 +19,8 @@ setup($test_name);
|
||||
plan skip_all => "TLSProxy isn't usable on $^O"
|
||||
if $^O =~ /^(VMS)$/;
|
||||
|
||||
plan skip_all => "$test_name needs the dynamic engine feature enabled"
|
||||
if disabled("engine") || disabled("dynamic-engine");
|
||||
plan skip_all => "$test_name needs the module feature enabled"
|
||||
if disabled("module");
|
||||
|
||||
plan skip_all => "$test_name needs the sock feature enabled"
|
||||
if disabled("sock");
|
||||
@@ -37,6 +38,8 @@ my $cextms = 0;
|
||||
my $sextms = 0;
|
||||
my $fullhand = 0;
|
||||
|
||||
$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("test"));
|
||||
|
||||
my $proxy = TLSProxy::Proxy->new(
|
||||
\&extms_filter,
|
||||
cmdstr(app(["openssl"]), display => 1),
|
||||
|
||||
@@ -318,7 +318,7 @@ sub start
|
||||
}
|
||||
|
||||
my $execcmd = $self->execute
|
||||
." s_server -no_comp -engine ossltest -state"
|
||||
." s_server -no_comp -provider=p_ossltest -provider=default -propquery ?provider=p_ossltest -state"
|
||||
#In TLSv1.3 we issue two session tickets. The default session id
|
||||
#callback gets confused because the ossltest engine causes the same
|
||||
#session id to be created twice due to the changed random number
|
||||
@@ -423,7 +423,7 @@ sub clientstart
|
||||
if ($self->execute) {
|
||||
my $pid;
|
||||
my $execcmd = $self->execute
|
||||
." s_client -engine ossltest"
|
||||
." s_client -provider=p_ossltest -provider=default -propquery ?provider=p_ossltest"
|
||||
." -connect $self->{proxy_addr}:$self->{proxy_port}";
|
||||
if ($self->{isdtls}) {
|
||||
$execcmd .= " -dtls -max_protocol DTLSv1.2"
|
||||
|
||||
Reference in New Issue
Block a user