]> wagner.pp.ru Git - openssl-gost/engine.git/blob - tcl_tests/cms_io.try
Update Copyright lines after registration rework
[openssl-gost/engine.git] / tcl_tests / cms_io.try
1 #!/usr/bin/tclsh
2 lappend auto_path [file dirname [info script]]
3 package require ossltest
4 cd $::test::dir
5 set testname [file rootname [file tail $::argv0]]
6
7 start_tests "Тесты на совместтимость cms и smime -sign" 
8
9 if {[info exists env(ALG_LIST)]} {
10         set alg_list $env(ALG_LIST)
11 } else {
12         switch -exact [engine_name] {
13                 "ccore" {set alg_list {gost2001:A gost2001:B gost2001:C gost2012_256:A gost2012_256:B gost2012_256:C gost2012_512:A gost2012_512:B}}
14                 "open" {set alg_list {gost2001:A gost2001:B gost2001:C gost2012_256:A gost2012_256:B gost2012_256:C gost2012_512:A gost2012_512:B}}
15         }
16 }
17
18 foreach alg $alg_list {
19         set alg_fn [string map {":" "_"} $alg]
20         set username U_cms_$alg_fn
21         switch -glob $alg {
22                 gost2012* {set ::test::ca cmsCA-2012
23                            set ca_sign_alg hash_with_sign12_512
24                           }
25                 * {set ::test::ca cmsCA
26                    set ca_sign_alg hash_with_sign01_cp
27                   }
28         }
29
30 test -skip {![file exists cms_sign_$alg_fn.msg]} "Verifying a message signed with $alg without ca " {
31         grep Veri [openssl "smime -verify -text -in cms_sign_$alg_fn.msg -out cms_verified.txt -noverify -certfile $username/cert.pem"]
32 } 0 "Verification successful
33 "
34
35 test -skip {![file exists cms_sign_$alg_fn.msg]}  "Verifying a message signed with $alg with ca" {
36         grep Veri [openssl "smime -verify -text -in cms_sign_$alg_fn.msg -out cms_verified.txt -certfile $username/cert.pem -CAfile $::test::ca/cacert.pem"]
37 } 0 "Verification successful
38 "
39
40 test -skip {![file exists cms_bad_$alg_fn.msg]} -createsfiles cms_verified.txt "Verifying corrupted messages signed with $alg" {
41         grep Verification [openssl "smime -verify -text -in cms_bad_$alg_fn.msg -out cms_verified.txt -noverify -certfile $username/cert.pem"]
42 } 1 "Verification failure"
43
44 test -skip {![file exists cms_sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert inside without ca" {
45         grep Veri [openssl "smime -verify -text -in cms_sign_c_$alg_fn.msg -out cms_verified.txt -noverify"]
46 } 0 "Verification successful
47 "
48
49 test -skip {![file exists cms_sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert with ca" {
50         grep Veri [openssl "smime -verify -text -in cms_sign_c_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
51 } 0 "Verification successful
52 "
53
54 test -createsfiles cms_verified.txt -skip {![file exists cms_sign_op_$alg_fn.msg]} "Verifying a message signed by $alg having cert inside without ca" {
55         grep Veri [openssl "smime -verify -text -in cms_sign_op_$alg_fn.msg -out cms_verified.txt -noverify"]
56 } 0 "Verification successful
57 "
58
59 test -createsfiles cms_verified.txt -skip {![file exists cms_sign_op_$alg_fn.msg]} "Verifying a $alg opaque  message with ca" {
60         grep Veri [openssl "smime -verify -text -in cms_sign_op_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
61 } 0 "Verification successful
62 "
63
64 test -skip {![file exists cms_broken_op_$alg_fn.msg]} "Verifying broken $alg opaque message" {
65         grep Verification [openssl "smime -verify -text -in cms_broken_op_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
66 } 1 "Verification failure"
67         
68 test -skip {![file exists cms_sign_det_$alg_fn.msg]} "Verifying detached $alg signature" {
69         grep Veri [openssl "smime -verify -content cms_sign.dat -in cms_sign_det_$alg_fn.msg -out cms_verified.txt -noverify"]
70 } 0 "Verification successful
71 "
72
73 test -skip {![file exists cms_sign_det_$alg_fn.msg]} -createsfiles {bad.dat} "Verifying corrupted $alg detached signature" {
74         makeFile bad.dat [regsub Test [getFile cms_sign.dat] Best]
75         grep Verification [openssl "smime -verify -content bad.dat -in cms_sign_det_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
76 } 1 "Verification failure"
77
78
79 }
80 end_tests