tcl_tests/cms_io.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 "Тесты на совместтимость cms и smime -sign"
   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 gost2012_256:A gost2012_256:B gost2012_256:C gost2012_512:A gost2012_512:B}}
  15                 "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}}
  16         }
  17 }
  18
  19 foreach alg $alg_list {
  20         set alg_fn [string map {":" "_"} $alg]
  21         set username U_cms_$alg_fn
  22         switch -glob $alg {
  23                 gost2012* {set ::test::ca cmsCA-2012
  24                            set ca_sign_alg hash_with_sign12_512
  25                           }
  26                 * {set ::test::ca cmsCA
  27                    set ca_sign_alg hash_with_sign01_cp
  28                   }
  29         }
  30
  31 test -skip {![file exists cms_sign_$alg_fn.msg]} "Verifying a message signed with $alg without ca " {
  32         grep Veri [openssl "smime -verify -text -in cms_sign_$alg_fn.msg -out cms_verified.txt -noverify -certfile $username/cert.pem"]
  33 } 0 "Verification successful
  34 "
  35
  36 test -skip {![file exists cms_sign_$alg_fn.msg]}  "Verifying a message signed with $alg with ca" {
  37         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"]
  38 } 0 "Verification successful
  39 "
  40
  41 test -skip {![file exists cms_bad_$alg_fn.msg]} -createsfiles cms_verified.txt "Verifying corrupted messages signed with $alg" {
  42         grep Verification [openssl "smime -verify -text -in cms_bad_$alg_fn.msg -out cms_verified.txt -noverify -certfile $username/cert.pem"]
  43 } 1 "Verification failure"
  44
  45 test -skip {![file exists cms_sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert inside without ca" {
  46         grep Veri [openssl "smime -verify -text -in cms_sign_c_$alg_fn.msg -out cms_verified.txt -noverify"]
  47 } 0 "Verification successful
  48 "
  49
  50 test -skip {![file exists cms_sign_c_$alg_fn.msg]} "Verifying a message signed with $alg having cert with ca" {
  51         grep Veri [openssl "smime -verify -text -in cms_sign_c_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
  52 } 0 "Verification successful
  53 "
  54
  55 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" {
  56         grep Veri [openssl "smime -verify -text -in cms_sign_op_$alg_fn.msg -out cms_verified.txt -noverify"]
  57 } 0 "Verification successful
  58 "
  59
  60 test -createsfiles cms_verified.txt -skip {![file exists cms_sign_op_$alg_fn.msg]} "Verifying a $alg opaque  message with ca" {
  61         grep Veri [openssl "smime -verify -text -in cms_sign_op_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
  62 } 0 "Verification successful
  63 "
  64
  65 test -skip {![file exists cms_broken_op_$alg_fn.msg]} "Verifying broken $alg opaque message" {
  66         grep Verification [openssl "smime -verify -text -in cms_broken_op_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
  67 } 1 "Verification failure"
  68
  69 test -skip {![file exists cms_sign_det_$alg_fn.msg]} "Verifying detached $alg signature" {
  70         grep Veri [openssl "smime -verify -content cms_sign.dat -in cms_sign_det_$alg_fn.msg -out cms_verified.txt -noverify"]
  71 } 0 "Verification successful
  72 "
  73
  74 test -skip {![file exists cms_sign_det_$alg_fn.msg]} -createsfiles {bad.dat} "Verifying corrupted $alg detached signature" {
  75         makeFile bad.dat [regsub Test [getFile cms_sign.dat] Best]
  76         grep Verification [openssl "smime -verify -content bad.dat -in cms_sign_det_$alg_fn.msg -out cms_verified.txt -CAfile $::test::ca/cacert.pem"]
  77 } 1 "Verification failure"
  78
  79
  80 }
  81 end_tests