# -*- 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"

        },

    },

);