blob: b126970389ebb1966e8b012824e8e14236324cc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
|
