2 # Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the OpenSSL license (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
9 ## SSL testcase generator
15 use File::Spec::Functions;
17 use OpenSSL::Test qw/srctop_dir srctop_file/;
18 use OpenSSL::Test::Utils;
20 # This block needs to run before 'use lib srctop_dir' directives.
22 OpenSSL::Test::setup("no_test_here");
25 use lib srctop_dir("util"); # for with_fallback
26 use lib srctop_dir("test", "ssl-tests"); # for ssltests_base
28 use with_fallback qw(Text::Template);
31 push (@ISA, qw/Text::Template/);
36 my $source = srctop_file("test", "ssl_test.tmpl");
37 my $template = Text::Template->new(TYPE => 'FILE', SOURCE => $source);
39 print "# Generated with generate_ssl_tests.pl\n\n";
41 my $num = scalar @ssltests::tests;
43 # Add the implicit base configuration.
44 foreach my $test (@ssltests::tests) {
45 $test->{"server"} = { (%ssltests::base_server, %{$test->{"server"}}) };
46 # Do not emit an empty "server2" section.
47 if (defined $test->{"server2"}) {
48 $test->{"server2"} = { (%ssltests::base_server, %{$test->{"server2"}}) };
50 $test->{"server2"} = { };
52 $test->{"client"} = { (%ssltests::base_client, %{$test->{"client"}}) };
55 # ssl_test expects to find a
59 # directive in the file. It'll then look for configuration directives
60 # for n tests, that each look like this:
62 # test-n = test-section
65 # (SSL modules for client and server configuration go here.)
68 # (Test configuration goes here.)
69 print "num_tests = $num\n\n";
71 # The conf module locations must come before everything else, because
74 # test-n = test-section
76 # and you can't mix and match them with sections.
79 foreach my $test (@ssltests::tests) {
80 my $testname = "${idx}-" . $test->{'name'};
81 print "test-$idx = $testname\n";
87 foreach my $test (@ssltests::tests) {
88 my $testname = "${idx}-" . $test->{'name'};
89 my $text = $template->fill_in(
90 HASH => [{ idx => $idx, testname => $testname } , $test],
91 DELIMITERS => [ "{-", "-}" ]);
92 print "# ===========================================================\n\n";
98 # Shamelessly copied from Configure.
101 open(INPUT, "< $fname") or die "Can't open input file '$fname'!\n";
103 my $content = <INPUT>;
109 my $input_file = shift;
110 # Reads the tests into ssltests::tests.
111 read_config($input_file);