2 # -*- coding: cp1251 -*-
13 # Пререквизиты, которые должны быть установлены на машине:
14 # 1. tclsh. Может называться с версией (см. список версий ниже в цикле
16 # 2. ssh (что характерно, называться должен именно так). Должен быть
17 # настроен заход по ключам без пароля на lynx и все используемые эталонники.
18 # Ключи этих машин должны быть в knownhosts (с полными доменными именами
19 # серверов, то есть lynx.lan.cryptocom.ru и т.д.)
20 # 3. Под Windows скрипт выполняется в среде MinGW, при этом нужно "донастроить"
21 # ssh, а именно создать в разделе реестра
22 # HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters
23 # DWORD-ключ DisableUserTOSSetting=0
25 CRYPTOPACK_MAIN_VERSION=3
27 if [ -z "$OPENSSL_APP" ]; then
28 if [ "$OS" != "Windows NT" -a "$OS" != "Windows_NT" ]; then
29 if [ -x /opt/cryptopack$CRYPTOPACK_MAIN_VERSION/bin/openssl ]; then
30 OPENSSL_APP=/opt/cryptopack$CRYPTOPACK_MAIN_VERSION/bin/openssl
31 elif [ -x /usr/local/cryptopack$CRYPTOPACK_MAIN_VERSION/bin/openssl ];then
32 OPENSSL_APP=/usr/local/cryptopack$CRYPTOPACK_MAIN_VERSION/bin/openssl
35 if [ -x c:/cryptopack$CRYPTOPACK_MAIN_VERSION/bin/openssl.exe ] ; then
36 OPENSSL_APP=c:/cryptopack$CRYPTOPACK_MAIN_VERSION/bin/openssl.exe
40 if [ -z "$OPENSSL_APP" ]; then
41 echo "openssl not found"
44 echo "Using $OPENSSL_APP as openssl"
48 if [ -z "$TCLSH" ]; then
49 for version in "" 8.4 84 8.5 85 8.6 86; do
50 for command in tclsh$version; do
51 for dir in `echo "/opt/cryptopack/bin:$PATH" | sed -e 's/:/ /g'`; do
52 echo "Checking $dir/$command"
53 if [ -x $dir/$command ]; then
62 if [ -z "$TCLSH" ]; then
63 echo "tclsh not found in PATH, neither with nor without version, exiting"
66 echo "Using $TCLSH as tclsh"
69 APP_SUFFIX=`basename $OPENSSL_APP .exe|sed s/openssl//`
70 [ -n "$OPENSSL_APP" ]&& export OPENSSL_APP
71 ENGINE_NAME=`$TCLSH getengine.tcl`
73 TESTDIR=`hostname`-$ENGINE_NAME
74 [ -n "$APP_SUFFIX" ] && TESTDIR=${TESTDIR}-${APP_SUFFIX}
75 [ -d ${TESTDIR} ] && rm -rf ${TESTDIR}
80 case "$ENGINE_NAME" in
85 BASE_TESTS="engine dgst mac pkcs8 enc req-genpkey req-newkey ca smime smime2 smimeenc cms cms2 cmsenc pkcs12 nopath ocsp ts ssl smime_io cms_io smimeenc_io cmsenc_io"
86 OTHER_DIR=`echo $TESTDIR |sed 's/cryptocom/gost/'`
89 OTHER_DIR=`echo $TESTDIR |sed 's/gost/cryptocom/'`
92 echo "No GOST=providing engine found" 1>&2
95 if [ -x copy_param ]; then
96 BASE_TESTS="$BASE_TESTS apache"
98 PKCS7_COMPATIBILITY_TESTS="smime_cs cmsenc_cs cmsenc_sc"
99 SERVER_TESTS="cp20 cp21 csp36r4 csp39 csp4 csp4r3 csp5"
100 CLIENT_TESTS="cp20 cp21"
101 WINCLIENT_TESTS="p1-1xa-tls1-v-cp36r4-srv p1-1xa-tls1-v-cp39-srv p1-1xa-tls1-v-cp4-01 p2-1xa-tls1-v-cp4-01 p2-2xa-tls1-v-cp4-12S p2-5xa-tls1-v-cp4-12L p1-1xa-tls1-v-cp4r3-01 p2-1xa-tls1-v-cp4r3-01 p2-2xa-tls1-v-cp4r3-01 p2-5xa-tls1-v-cp4r3-01 p1-1xa-tls1_1-v-cp4r3-01 p2-1xa-tls1_1-v-cp4r3-01 p2-2xa-tls1_1-v-cp4r3-01 p2-5xa-tls1_1-v-cp4r3-01 p1-1xa-tls1_2-v-cp4r3-01 p2-1xa-tls1_2-v-cp4r3-01 p2-2xa-tls1_2-v-cp4r3-01 p2-5xa-tls1_2-v-cp4r3-01 p1-1xa-tls1-v-cp5-01 p2-1xa-tls1-v-cp5-01 p2-2xa-tls1-v-cp5-01 p2-5xa-tls1-v-cp5-01 p1-1xa-tls1_1-v-cp5-01 p2-1xa-tls1_1-v-cp5-01 p2-2xa-tls1_1-v-cp5-01 p2-5xa-tls1_1-v-cp5-01 p1-1xa-tls1_2-v-cp5-01 p2-1xa-tls1_2-v-cp5-01 p2-2xa-tls1_2-v-cp5-01 p2-5xa-tls1_2-v-cp5-01 p8k-5xa-tls1_2-v-cp5-01 p8k-2xa-tls1_2-v-cp5-01 p8m-5xa-tls1_2-v-cp5-01 p8m-2xa-tls1_2-v-cp5-01"
102 OPENSSL_DEBUG_MEMORY=on
103 export OPENSSL_DEBUG_MEMORY
106 for t in $BASE_TESTS; do
107 $TCLSH $t.try || fail=1
110 ALG_LIST="rsa:1024 gost2001:XA gost2012_256:XA gost2012_512:A" OPENSSL_CONF=`pwd`/openssl-gost.cnf $TCLSH ssl.try -clientconf `pwd`/openssl-cryptocom.cnf || fail=1
111 ALG_LIST="rsa:1024 gost2001:XA gost2012_256:XA gost2012_512:A" OPENSSL_CONF=`pwd`/openssl-gost.cnf $TCLSH ssl.try -serverconf `pwd`/openssl-cryptocom.cnf || fail=1
113 for t in $PKCS7_COMPATIBILITY_TESTS; do
114 $TCLSH $t.try || fail=1
116 for t in $SERVER_TESTS; do
117 $TCLSH server.try $t || fail=1
119 for t in $CLIENT_TESTS; do
120 $TCLSH client.try $t || fail=1
122 if [ -n "WINCLIENT_TESTS" ]; then
123 if [ -z "$CVS_RSH" ]; then
127 for t in $WINCLIENT_TESTS; do
128 $TCLSH wcli.try $t || fail=1
131 if [ -d $OTHER_DIR ]; then
132 OTHER_DIR=../${OTHER_DIR} $TCLSH interop.try
134 if [ -d OtherVersion ] ; then
135 case "$ENGINE_NAME" in
139 OTHER_DIR=../OtherVersion ALG_LIST="gost2001:A gost2001:B gost2001:C" ENC_LIST="gost2001:A:1.2.643.2.2.31.3 gost2001:B:1.2.643.2.2.31.4 gost2001:C:1.2.643.2.2.31.2 gost2001:A:" $TCLSH interop.try
142 OTHER_DIR=../OtherVersion ALG_LIST="gost2001:A gost2001:B gost2001:C" ENC_LIST="gost2001:A:1.2.643.2.2.31.3 gost2001:B:1.2.643.2.2.31.4 gost2001:C:1.2.643.2.2.31.2 gost2001:A:" $TCLSH interop.try
145 echo "No GOST=providing engine found" 1>&2
149 $TCLSH calcstat ${TESTDIR}/stats ${TESTDIR}/test.result
150 grep "leaked" ${TESTDIR}/*.log
151 if [ $fail -ne 0 ]; then
152 echo "Some tests FAILED."