tcl_tests/apache.try

   1 #!/usr/bin/tclsh
   2 lappend auto_path [file dirname [info script]]
   3 package require ossltest
   4
   5 set test_dir [file normalize [file dirname [info script]]]
   6
   7 cd $::test::dir
   8 start_tests "Тесты на API, используемый только в Apache"
   9
  10
  11
  12 makeCA
  13
  14 if {$tcl_platform(platform) eq "windows"} {
  15   # Add openssl dir to PATH
  16   set dlldir [file nativename [file normalize $test_dir/../../openssl]]
  17   set env(PATH) "$dlldir;$env(PATH)"
  18 }
  19 test "EVP_PKEY_copy_parameters gost94" {
  20         makeRegisteredUser "U_apache_94" gost94:A
  21         exec $test_dir/copy_param U_apache_94/seckey.pem U_apache_94/cert.pem
  22 } 0 "EVP_PKEY_missing_parameters before copy: 1
  23 EVP_PKEY_missing_parameters after copy: 0
  24 Check private key:Ok"
  25
  26 test "EVP_PKEY_copy_parameters gost2001" {
  27         makeRegisteredUser "U_apache_94" gost2001:A
  28         exec $test_dir/copy_param U_apache_94/seckey.pem U_apache_94/cert.pem
  29 } 0 "EVP_PKEY_missing_parameters before copy: 1
  30 EVP_PKEY_missing_parameters after copy: 0
  31 Check private key:Ok"
  32
  33 end_tests