test/ssl_test.tmpl

   1 [{-$testname-}]
   2 ssl_conf = {-$testname-}-ssl
   3
   4 [{-$testname-}-ssl]
   5 server = {-$testname-}-server
   6 client = {-$testname-}-client{-
   7     # The following sections are optional.
   8     $OUT = "";
   9     if (%server2) {
  10         $OUT .= "\nserver2 = $testname-server2";
  11     } elsif ($reuse_server2) {
  12         $OUT .= "\nserver2 = $testname-server";
  13     }
  14     if (%resume_server) {
  15         $OUT .= "\nresume-server = $testname-resume-server";
  16     } elsif ($reuse_resume_server) {
  17         $OUT .= "\nresume-server = $testname-server";
  18     }
  19     if (%resume_client) {
  20         $OUT .= "\nresume-client = $testname-resume-client";
  21     } elsif ($reuse_resume_client) {
  22         $OUT .= "\nresume-client = $testname-client";
  23     }
  24 -}
  25
  26 [{-$testname-}-server]
  27 {-
  28     foreach my $key (sort keys %server) {
  29         # Emitted in the test section.
  30         next if ($key eq "extra");
  31         $OUT .= qq{$key} . " = " . qq{$server{$key}\n} if defined $server{$key};
  32     }
  33     if (%server2) {
  34         $OUT .= "\n[$testname-server2]\n";
  35         foreach my $key (sort keys %server2) {
  36             next if ($key eq "extra");
  37             $OUT .= qq{$key} . " = " . qq{$server2{$key}\n} if defined $server2{$key};
  38         }
  39     }
  40     if (%resume_server) {
  41         $OUT .= "\n[$testname-resume-server]\n";
  42         foreach my $key (sort keys %resume_server) {
  43             next if ($key eq "extra");
  44             $OUT .= qq{$key} . " = " . qq{$resume_server{$key}\n} if defined $resume_server{$key};
  45         }
  46     }
  47 -}
  48 [{-$testname-}-client]
  49 {-
  50     foreach my $key (sort keys %client) {
  51         next if ($key eq "extra");
  52         $OUT .= qq{$key} . " = " . qq{$client{$key}\n} if defined $client{$key};
  53     }
  54     if (%resume_client) {
  55         $OUT .= "\n[$testname-resume-client]\n";
  56         foreach my $key (sort keys %resume_client) {
  57             next if ($key eq "extra");
  58             $OUT .= qq{$key} . " = " . qq{$resume_client{$key}\n} if defined $resume_client{$key};
  59         }
  60     }
  61 -}
  62 [test-{-$idx-}]
  63 {-
  64     foreach my $key (sort keys %test) {
  65         $OUT .= qq{$key} ." = " . qq{$test{$key}\n} if defined $test{$key};
  66     }
  67
  68     # The extra server/client configuration sections.
  69     if ($server{"extra"}) {
  70        $OUT .= "server = $testname-server-extra\n";
  71     }
  72     if (%server2 && $server2{"extra"}) {
  73        $OUT .= "server2 = $testname-server2-extra\n";
  74     } elsif ($reuse_server2 && $server{"extra"}) {
  75        $OUT .= "server2 = $testname-server-extra\n";
  76     }
  77     if (%resume_server && $resume_server{"extra"}) {
  78        $OUT .= "resume-server = $testname-resume-server-extra\n";
  79     } elsif ($reuse_resume_server && $server{"extra"}) {
  80        $OUT .= "resume-server = $testname-server-extra\n";
  81     }
  82     if ($client{"extra"}) {
  83        $OUT .= "client = $testname-client-extra\n";
  84     }
  85     if (%resume_client && $resume_client{"extra"}) {
  86        $OUT .= "resume-client = $testname-resume-client-extra\n";
  87     } elsif ($reuse_resume_client && $client{"extra"}) {
  88        $OUT .= "resume-client = $testname-client-extra\n";
  89     }
  90
  91     if ($server{"extra"}) {
  92         $OUT .= "\n[$testname-server-extra]\n";
  93         foreach my $key (sort keys %{$server{"extra"}}) {
  94             $OUT .= qq{$key} . " = " . qq{$server{"extra"}{$key}\n}
  95                  if defined $server{"extra"}{$key};
  96         }
  97     }
  98     if (%server2 && $server2{"extra"}) {
  99         $OUT .= "\n[$testname-server2-extra]\n";
 100         foreach my $key (sort keys %{$server2{"extra"}}) {
 101             $OUT .= qq{$key} . " = " . qq{$server2{"extra"}{$key}\n}
 102                  if defined $server2{"extra"}{$key};
 103         }
 104     }
 105    if (%resume_server && $resume_server{"extra"}) {
 106         $OUT .= "\n[$testname-resume-server-extra]\n";
 107         foreach my $key (sort keys %{$resume_server{"extra"}}) {
 108             $OUT .= qq{$key} . " = " . qq{$resume_server{"extra"}{$key}\n}
 109                  if defined $resume_server{"extra"}{$key};
 110         }
 111     }
 112    if ($client{"extra"}) {
 113         $OUT .= "\n[$testname-client-extra]\n";
 114         foreach my $key (sort keys %{$client{"extra"}}) {
 115             $OUT .= qq{$key} . " = " . qq{$client{"extra"}{$key}\n}
 116                  if defined $client{"extra"}{$key};
 117         }
 118    }
 119    if (%resume_client && $resume_client{"extra"}) {
 120         $OUT .= "\n[$testname-resume-client-extra]\n";
 121         foreach my $key (sort keys %{$resume_client{"extra"}}) {
 122             $OUT .= qq{$key} . " = " . qq{$resume_client{"extra"}{$key}\n}
 123                  if defined $resume_client{"extra"}{$key};
 124         }
 125     }
 126 -}