33 lines
997 B
Tcl
33 lines
997 B
Tcl
#!/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
|