tcl_tests/smime_cs.try

   1 #!/usr/bin/tclsh
   2 # -*- coding: cp1251 -*-
   3 lappend auto_path [file dirname [info script]]
   4 package require ossltest
   5 cd $::test::dir
   6 set testname [file rootname [file tail $::argv0]]
   7
   8 start_tests "Тесты на восместимость по подписи с эталонными серверами"
   9
  10 if {[info exists env(ALG_LIST)]} {
  11         set alg_list $env(ALG_LIST)
  12 } else {
  13         switch -exact [engine_name] {
  14                 "ccore" {set alg_list {gost2001:A gost2001:B gost2001:C}}
  15                 "open" {set alg_list {gost2001:A gost2001:B gost2001:C}}
  16         }
  17 }
  18
  19 foreach alg $alg_list {
  20         set alg_fn [string map {":" "_"} $alg]
  21         set username U_smime_$alg_fn
  22         switch -glob $alg {
  23                 gost2012* {set ::test::ca smimeCA-2012
  24                            set ca_sign_alg hash_with_sign12_512
  25                           }
  26                 * {set ::test::ca smimeCA
  27                    set ca_sign_alg hash_with_sign01_cp
  28                   }
  29         }
  30 set hosts [list tls-ref-cp21]
  31 foreach hstname $hosts {
  32
  33
  34 test -skip {![file exists sign_$alg_fn.msg]} "Verifying a message signed with $alg without ca via cms" {
  35         grep Veri [openssl_remote "$username sign_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/sign_$alg_fn.msg -out TESTPATH/verified.txt -noverify -certfile TESTPATH/$username/cert.pem" "smime"]
  36 } 0 "Verification successful
  37 "
  38
  39 test -skip {![file exists sign_$alg_fn.msg]}  "Verifying a message signed with $alg with ca via cms" {
  40         grep Veri [openssl_remote "$::test::ca sign_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/sign_$alg_fn.msg -out TESTPATH/verified.txt -certfile TESTPATH/$username/cert.pem -CAfile TESTPATH/$::test::ca/cacert.pem" "smime"]
  41 } 0 "Verification successful
  42 "
  43
  44 test -skip {![file exists bad_$alg_fn.msg]} -createsfiles TESTPATH/verified.txt] "Verifying corrupted messages signed with $alg via cms" {
  45         grep Verification [openssl_remote "bad_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/bad_$alg_fn.msg -out TESTPATH/verified.txt -noverify -certfile TESTPATH/$username/cert.pem" "smime"]
  46 } 1 "Verification failure"
  47
  48 test -skip {![file exists sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert inside without ca via cms" {
  49         grep Veri [openssl_remote "sign_c_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/sign_c_$alg_fn.msg -out TESTPATH/verified.txt -noverify" "smime"]
  50 } 0 "Verification successful
  51 "
  52
  53 test -skip {![file exists sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert with ca via cms" {
  54         grep Veri [openssl_remote "sign_c_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/sign_c_$alg_fn.msg -out TESTPATH/verified.txt -CAfile TESTPATH/$::test::ca/cacert.pem" "smime"]
  55 } 0 "Verification successful
  56 "
  57
  58 test -createsfiles TESTPATH/verified.txt -skip {![file exists sign_op_$alg_fn.msg]} "Verifying a message signed by $alg having cert inside without ca via cms" {
  59         grep Veri [openssl_remote "sign_op_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/sign_op_$alg_fn.msg -out TESTPATH/verified.txt -noverify" "smime"]
  60 } 0 "Verification successful
  61 "
  62
  63 test -createsfiles TESTPATH/verified.txt -skip {![file exists sign_op_$alg_fn.msg]} "Verifying a $alg opaque  message with ca via cms" {
  64         grep Veri [openssl_remote "sign_op_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/sign_op_$alg_fn.msg -out TESTPATH/verified.txt -CAfile TESTPATH/$::test::ca/cacert.pem" "smime"]
  65 } 0 "Verification successful
  66 "
  67
  68 test -skip {![file exists broken_op_$alg_fn.msg]} "Verifying broken $alg opaque message" {
  69         grep Verification [openssl_remote "broken_op_$alg_fn.msg" "$hstname" "cms -verify -text -in TESTPATH/broken_op_$alg_fn.msg -out TESTPATH/verified.txt -CAfile TESTPATH/$::test::ca/cacert.pem" "smime"]
  70 } 1 "Verification failure"
  71
  72 test -skip {![file exists sign_det_$alg_fn.pem]} "Verifying detached $alg signature via cms" {
  73         grep Veri [openssl_remote "sign_det_$alg_fn.pem sign.dat" "$hstname" "cms -verify -content TESTPATH/sign.dat -inform PEM -in TESTPATH/sign_det_$alg_fn.pem -out TESTPATH/verified.txt -noverify" "smime"]
  74 } 0 "Verification successful
  75 "
  76
  77 test -skip {![file exists sign_det_$alg_fn.msg] || ![file exists bad.dat]} "Verifying corrupted $alg detached signature" {
  78         grep Verification [openssl_remote "sign_det_$alg_fn.msg bad.dat" "$hstname" "cms -verify -content TESTPATH/bad.dat -in TESTPATH/sign_det_$alg_fn.msg -out TESTPATH/verified.txt -CAfile TESTPATH/$::test::ca/cacert.pem" "smime"]
  79 } 1 "Verification failure"
  80 }
  81
  82 }
  83 end_tests