tcl_tests/smime_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 "Тесты на совместимость smime и cms -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_smime_$alg_fn
  21         switch -glob $alg {
  22                 gost2012* {set ::test::ca smimeCA-2012
  23                            set ca_sign_alg hash_with_sign12_512
  24                           }
  25                 * {set ::test::ca smimeCA
  26                    set ca_sign_alg hash_with_sign01_cp
  27                   }
  28         }
  29
  30 test -skip {![file exists sign_$alg_fn.msg]} "Verifying a message signed with $alg without ca via cms" {
  31         grep Veri [openssl "cms -verify -text -in sign_$alg_fn.msg -out verified.txt -noverify -certfile $username/cert.pem"]
  32 } 0 "Verification successful
  33 "
  34
  35 test -skip {![file exists sign_$alg_fn.msg]}  "Verifying a message signed with $alg with ca via cms" {
  36         grep Veri [openssl "cms -verify -text -in sign_$alg_fn.msg -out verified.txt -certfile $username/cert.pem -CAfile $::test::ca/cacert.pem"]
  37 } 0 "Verification successful
  38 "
  39
  40 test -skip {![file exists bad_$alg_fn.msg]} -createsfiles verified.txt "Verifying corrupted messages signed with $alg via smime" {
  41         grep Verification [openssl "cms -verify -text -in bad_$alg_fn.msg -out verified.txt -noverify -certfile $username/cert.pem"]
  42 } 1 "Verification failure"
  43
  44 test -skip {![file exists sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert inside without ca via cms" {
  45         grep Veri [openssl "cms -verify -text -in sign_c_$alg_fn.msg -out verified.txt -noverify"]
  46 } 0 "Verification successful
  47 "
  48
  49 test -skip {![file exists sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert with ca via cms" {
  50         grep Veri [openssl "cms -verify -text -in sign_c_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
  51 } 0 "Verification successful
  52 "
  53
  54 test -createsfiles verified.txt -skip {![file exists sign_op_$alg_fn.msg]} "Verifying a message signed by $alg having cert inside without ca via cms" {
  55         grep Veri [openssl "cms -verify -text -in sign_op_$alg_fn.msg -out verified.txt -noverify"]
  56 } 0 "Verification successful
  57 "
  58
  59 test -createsfiles verified.txt -skip {![file exists sign_op_$alg_fn.msg]} "Verifying a $alg opaque  message with ca via cms" {
  60         grep Veri [openssl "cms -verify -text -in sign_op_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
  61 } 0 "Verification successful
  62 "
  63
  64 test -skip {![file exists broken_op_$alg_fn.msg]} "Verifying broken $alg opaque message" {
  65         grep Verification [openssl "cms -verify -text -in broken_op_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
  66 } 1 "Verification failure"
  67
  68 test -skip {![file exists sign_det_$alg_fn.pem]} "Verifying detached $alg signature via cms" {
  69         grep Veri [openssl "cms -verify -binary -content sign.dat -inform PEM -in sign_det_$alg_fn.pem -out verified.txt -noverify"]
  70 } 0 "Verification successful
  71 "
  72
  73 test -skip {![file exists sign_det_$alg_fn.msg]} -createsfiles {bad.dat} "Verifying corrupted $alg detached signature" {
  74         makeFile bad.dat [regsub Test [getFile sign.dat] Best]
  75         grep Verification [openssl "cms -verify -content bad.dat -in sign_det_$alg_fn.msg -out verified.txt -CAfile $::test::ca/cacert.pem"]
  76 } 1 "Verification failure"
  77
  78 }
  79 end_tests