test/ssl_test.tmpl

   1 [{-$testname-}]
   2 ssl_conf = {-$testname-}-ssl
   3
   4 [{-$testname-}-ssl]
   5 server = {-$testname-}-server{-
   6     # The following sections are optional.
   7     $OUT = "";
   8     if (%server2) {
   9         $OUT .= "\nserver2 = $testname-server2";
  10     }
  11     if (%resume_server) {
  12         $OUT .= "\nresume-server = $testname-resume-server";
  13     }
  14     if (%resume_client) {
  15         $OUT .= "\nresume-client = $testname-resume-client";
  16     }
  17 -}
  18 client = {-$testname-}-client
  19
  20 [{-$testname-}-server]
  21 {-
  22     foreach my $key (sort keys %server) {
  23         $OUT .= qq{$key} . " = " . qq{$server{$key}\n} if defined $server{$key};
  24     }
  25     if (%server2) {
  26         $OUT .= "\n[$testname-server2]\n";
  27         foreach my $key (sort keys %server2) {
  28             $OUT .= qq{$key} . " = " . qq{$server2{$key}\n} if defined $server2{$key};
  29         }
  30     }
  31     if (%resume_server) {
  32         $OUT .= "\n[$testname-resume-server]\n";
  33         foreach my $key (sort keys %resume_server) {
  34             $OUT .= qq{$key} . " = " . qq{$resume_server{$key}\n} if defined $resume_server{$key};
  35         }
  36     }
  37 -}
  38 [{-$testname-}-client]
  39 {-
  40     foreach my $key (sort keys %client) {
  41         $OUT .= qq{$key} . " = " . qq{$client{$key}\n} if defined $client{$key};
  42     }
  43     if (%resume_client) {
  44         $OUT .= "\n[$testname-resume-client]\n";
  45         foreach my $key (sort keys %resume_client) {
  46             $OUT .= qq{$key} . " = " . qq{$resume_client{$key}\n} if defined $resume_client{$key};
  47         }
  48     }
  49 -}
  50 [test-{-$idx-}]
  51 {-
  52     foreach my $key (sort keys %test) {
  53         $OUT .= qq{$key} ." = " . qq{$test{$key}\n} if defined $test{$key};
  54     }
  55 -}