/
niceSOFT
/
engine
Обзор
Документация
Войти
/
niceSOFT
/
engine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
tcl_tests/apache.try
33 строки
997 B
Dmitry Belyavskiy
tcl_tests: Add TCL tests files
12 янв 2020, 00:20
12 янв 2020, 00:20
3b8ddfe
Код
Авторство
О чём код?
#!/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