# -*- mode: perl; -*-

# Copyright 2016-2018 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

## Test packet fragmentation

use strict;

use warnings;

package ssltests;

our @tests = (

    # Default fragment size is 512.

    {

        name => "one-fragment-minus-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 511,

        }

    },

    {

        name => "one-fragment-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 512,

        }

    },

    {

        name => "one-fragment-plus-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 513,

        }

    },

    {

        name => "small-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 4 * 1024 + 1,

        }

    },

    {

        name => "small-app-data-large-fragment-size",

        server => { },

        client => { },

        test => {

            ApplicationData => 4 * 1024 + 1,

            MaxFragmentSize => 16384,

        }

    },

    {

        name => "medium-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 32 * 1024 + 7,

        }

    },

    # Exceeds the 64kB write buffer size.

    {

        name => "medium-plus-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 128 * 1024 - 3,

        }

    },

    {

        name => "large-app-data",

        server => { },

        client => { },

        test => {

            ApplicationData => 1024 * 1024,

        }

    },

    {

        name => "large-app-data-large-fragment-size",

        server => { },

        client => { },

        test => {

            ApplicationData => 1024 * 1024,

            MaxFragmentSize => 16384,

        }

    },

    {

        name => "large-app-data-odd-fragment-size",

        server => { },

        client => { },

        test => {

            ApplicationData => 1024 * 1024,

            MaxFragmentSize => 5 * 1024 - 5,

        }

    },

    # When the buffer / fragment size ratio is sufficiently large,

    # multi-buffer code kicks in on some platforms for AES-SHA.  The

    # exact minimum ratio depends on the platform, and is usually

    # around 4. Since the test buffer is 64kB, a 4kB fragment is

    # easily sufficient.

    #

    # (We run this test on all platforms though it's only true multibuffer

    #  on some of them.)

    {

        name => "large-app-data-aes-sha1-multibuffer",

        server => { },

        client => {

            CipherString => "AES128-SHA",

            MaxProtocol => "TLSv1.2"

        },

        test => {

            ApplicationData => 1024 * 1024,

            MaxFragmentSize => 4 * 1024,

        }

    },

    {

        name => "large-app-data-aes-sha2-multibuffer",

        server => { },

        client => {

            CipherString => "AES128-SHA256",

            MaxProtocol => "TLSv1.2"

        },

        test => {

            ApplicationData => 1024 * 1024,

            MaxFragmentSize => 4 * 1024,

        }

    },

        {

        name => "large-app-data-aes-sha1-multibuffer-odd-fragment",

        server => { },

        client => {

            CipherString => "AES128-SHA",

            MaxProtocol => "TLSv1.2"

        },

        test => {

            ApplicationData => 1024 * 1024 + 3,

            MaxFragmentSize => 5 * 1024 - 5,

        }

    },

    {

        name => "large-app-data-aes-sha2-multibuffer-odd-fragment",

        server => { },

        client => {

            CipherString => "AES128-SHA256",

            MaxProtocol => "TLSv1.2"

        },

        test => {

            ApplicationData => 1024 * 1024 - 3,

            MaxFragmentSize => 5 * 1024 + 5,

        }

    },

    # Test that multibuffer-capable code also handles small data correctly.

    # Here fragment size == app data size < buffer size,

    # so no multibuffering should happen.

    {

        name => "small-app-data-aes-sha1-multibuffer",

        server => { },

        client => {

            CipherString => "AES128-SHA",

            MaxProtocol => "TLSv1.2"

        },

        test => {

            ApplicationData => 4 * 1024,

            MaxFragmentSize => 4 * 1024,

        }

    },

    {

        name => "small-app-data-aes-sha2-multibuffer",

        server => { },

        client => {

            CipherString => "AES128-SHA256",

            MaxProtocol => "TLSv1.2"

        },

        test => {

            ApplicationData => 4 * 1024,

            MaxFragmentSize => 4 * 1024,

        }

    },

    ############################################

    # Default (Max) Fragment Size is 512.

    # Default Application data size is 256.

    {

        name => "Maximum Fragment Len extension set to 1024 w. FragmentSize disabled",

        server => { },

        client => {

            extra => {

                MaxFragmentLenExt => 1024,

            },

        },

        test => {

            ApplicationData => 3072,

            MaxFragmentSize => 16384,

        }

    },

    {

        name => "Maximum Fragment Len extension equal FragmentSize to 2048",

        server => { },

        client => {

            extra => {

                MaxFragmentLenExt => 2048,

            },

        },

        test => {

            ApplicationData => 3072,

            MaxFragmentSize => 2048,

        }

    },

    {

        name => "Maximum Fragment Len extension 512 lower than FragmentSize 1024",

        server => { },

        client => {

            extra => {

                MaxFragmentLenExt => 512,

            },

        },

        test => {

            ApplicationData => 3072,

            MaxFragmentSize => 1024,

        }

    },

    {

        name => "Maximum Fragment Len extension 1024 lower than FragmentSize 1024",

        server => { },

        client => {

            extra => {

                MaxFragmentLenExt => 2048,

            },

        },

        test => {

            ApplicationData => 3072,

            MaxFragmentSize => 1024,

        }

    },

    {

        name => "Maximum Fragment Len extension 4096 greater than FragmentSize 2048",

        server => { },

        client => {

            extra => {

                MaxFragmentLenExt => 4096,

            },

        },

        test => {

            ApplicationData => 8196,

            MaxFragmentSize => 2048,

        }

    },

    {

        name => "Maximum Fragment Len extension 2048 greater than FragmentSize 1024",

        server => { },

        client => {

            extra => {

                MaxFragmentLenExt => 2048,

            },

        },

        test => {

            ApplicationData => 3072,

            MaxFragmentSize => 1024,

        }

    },

);