test/ssl-tests/14-curves.conf.in

   1 # -*- mode: perl; -*-
   2
   3 ## SSL test configurations
   4
   5 package ssltests;
   6
   7 use strict;
   8 use warnings;
   9
  10 use OpenSSL::Test;
  11 use OpenSSL::Test::Utils qw(anydisabled);
  12
  13 my @curves = ("sect163k1", "sect163r1", "sect163r2", "sect193r1",
  14               "sect193r2", "sect233k1", "sect233r1", "sect239k1",
  15               "sect283k1", "sect283r1", "sect409k1", "sect409r1",
  16               "sect571k1", "sect571r1", "secp160k1", "secp160r1",
  17               "secp160r2", "secp192k1", "prime192v1", "secp224k1",
  18               "secp224r1", "secp256k1", "prime256v1", "secp384r1",
  19               "secp521r1", "brainpoolP256r1", "brainpoolP384r1",
  20               "brainpoolP512r1", "X25519", "X448");
  21
  22 our @tests = ();
  23
  24 sub generate_tests() {
  25     foreach (0..$#curves) {
  26         my $curve = $curves[$_];
  27         push @tests, {
  28             name => "curve-${curve}",
  29             server => {
  30                 "Curves" => $curve,
  31                 # TODO(TLS1.3): Can we get this to work for TLSv1.3?
  32                 "MaxProtocol" => "TLSv1.2"
  33             },
  34             client => {
  35                 "CipherString" => "ECDHE",
  36                 "MaxProtocol" => "TLSv1.2",
  37                 "Curves" => $curve
  38             },
  39             test   => {
  40                 "ExpectedTmpKeyType" => $curve,
  41                 "ExpectedResult" => "Success"
  42             },
  43         };
  44     }
  45 }
  46
  47 generate_tests();