108 lines
2.8 KiB
Perl
108 lines
2.8 KiB
Perl
# -*- mode: perl; -*-
|
|
# Copyright 2017 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 warnings;
|
|
|
|
package ssltests;
|
|
|
|
# SRP is only supported up to TLSv1.2
|
|
|
|
our @tests = (
|
|
{
|
|
name => "srp",
|
|
server => {
|
|
"CipherString" => "SRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "password",
|
|
},
|
|
},
|
|
client => {
|
|
"CipherString" => "SRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "password",
|
|
},
|
|
},
|
|
test => {
|
|
"ExpectedResult" => "Success"
|
|
},
|
|
},
|
|
{
|
|
name => "srp-bad-password",
|
|
server => {
|
|
"CipherString" => "SRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "password",
|
|
},
|
|
},
|
|
client => {
|
|
"CipherString" => "SRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "passw0rd",
|
|
},
|
|
},
|
|
test => {
|
|
# Server fails first with bad client Finished.
|
|
"ExpectedResult" => "ServerFail"
|
|
},
|
|
},
|
|
{
|
|
name => "srp-auth",
|
|
server => {
|
|
"CipherString" => "aSRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "password",
|
|
},
|
|
},
|
|
client => {
|
|
"CipherString" => "aSRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "password",
|
|
},
|
|
},
|
|
test => {
|
|
"ExpectedResult" => "Success"
|
|
},
|
|
},
|
|
{
|
|
name => "srp-auth-bad-password",
|
|
server => {
|
|
"CipherString" => "aSRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "password",
|
|
},
|
|
},
|
|
client => {
|
|
"CipherString" => "aSRP",
|
|
"MaxProtocol" => "TLSv1.2",
|
|
extra => {
|
|
"SRPUser" => "user",
|
|
"SRPPassword" => "passw0rd",
|
|
},
|
|
},
|
|
test => {
|
|
# Server fails first with bad client Finished.
|
|
"ExpectedResult" => "ServerFail"
|
|
},
|
|
},
|
|
);
|