diff options
Diffstat (limited to 'tcl_tests/apache.try')
-rw-r--r-- | tcl_tests/apache.try | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tcl_tests/apache.try b/tcl_tests/apache.try new file mode 100644 index 0000000..b126970 --- /dev/null +++ b/tcl_tests/apache.try @@ -0,0 +1,33 @@ +#!/usr/bin/tclsh +lappend auto_path [file dirname [info script]] +package require ossltest + +set test_dir [file normalize [file dirname [info script]]] + +cd $::test::dir +start_tests "Тесты на API, используемый только в Apache" + + + +makeCA + +if {$tcl_platform(platform) eq "windows"} { + # Add openssl dir to PATH + set dlldir [file nativename [file normalize $test_dir/../../openssl]] + set env(PATH) "$dlldir;$env(PATH)" +} +test "EVP_PKEY_copy_parameters gost94" { + makeRegisteredUser "U_apache_94" gost94:A + exec $test_dir/copy_param U_apache_94/seckey.pem U_apache_94/cert.pem +} 0 "EVP_PKEY_missing_parameters before copy: 1 +EVP_PKEY_missing_parameters after copy: 0 +Check private key:Ok" + +test "EVP_PKEY_copy_parameters gost2001" { + makeRegisteredUser "U_apache_94" gost2001:A + exec $test_dir/copy_param U_apache_94/seckey.pem U_apache_94/cert.pem +} 0 "EVP_PKEY_missing_parameters before copy: 1 +EVP_PKEY_missing_parameters after copy: 0 +Check private key:Ok" + +end_tests |