test/cms-test.pl

   1 # test/cms-test.pl
   2 # Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
   3 # project.
   4 #
   5 # ====================================================================
   6 # Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
   7 #
   8 # Redistribution and use in source and binary forms, with or without
   9 # modification, are permitted provided that the following conditions
  10 # are met:
  11 #
  12 # 1. Redistributions of source code must retain the above copyright
  13 #    notice, this list of conditions and the following disclaimer.
  14 #
  15 # 2. Redistributions in binary form must reproduce the above copyright
  16 #    notice, this list of conditions and the following disclaimer in
  17 #    the documentation and/or other materials provided with the
  18 #    distribution.
  19 #
  20 # 3. All advertising materials mentioning features or use of this
  21 #    software must display the following acknowledgment:
  22 #    "This product includes software developed by the OpenSSL Project
  23 #    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
  24 #
  25 # 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  26 #    endorse or promote products derived from this software without
  27 #    prior written permission. For written permission, please contact
  28 #    licensing@OpenSSL.org.
  29 #
  30 # 5. Products derived from this software may not be called "OpenSSL"
  31 #    nor may "OpenSSL" appear in their names without prior written
  32 #    permission of the OpenSSL Project.
  33 #
  34 # 6. Redistributions of any form whatsoever must retain the following
  35 #    acknowledgment:
  36 #    "This product includes software developed by the OpenSSL Project
  37 #    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
  38 #
  39 # THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  40 # EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  41 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  42 # PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
  43 # ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  44 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  45 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  46 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  47 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  48 # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  49 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  50 # OF THE POSSIBILITY OF SUCH DAMAGE.
  51 # ====================================================================
  52
  53 # CMS, PKCS7 consistency test script. Run extensive tests on
  54 # OpenSSL PKCS#7 and CMS implementations.
  55
  56 my $ossl_path;
  57 my $redir = " 2> cms.err > cms.out";
  58 # Make VMS work
  59 if ( $^O eq "VMS" && -f "OSSLX:openssl.exe" ) {
  60     $ossl_path = "pipe mcr OSSLX:openssl";
  61     $null_path = "NL:";
  62     # On VMS, the lowest 3 bits of the exit code indicates severity
  63     # 1 is success (perl translates it to 0 for $?), 2 is error
  64     # (perl doesn't translate it)
  65     $failure_code = 512;        # 2 << 8 = 512
  66 }
  67 # Make MSYS work
  68 elsif ( $^O eq "MSWin32" && -f "../apps/openssl.exe" ) {
  69     $ossl_path = "cmd /c ..\\apps\\openssl";
  70     $null_path = "NUL";
  71     $failure_code = 256;
  72 }
  73 elsif ( -f "../apps/openssl$ENV{EXE_EXT}" ) {
  74     $ossl_path = "../util/shlib_wrap.sh ../apps/openssl";
  75     $null_path = "/dev/null";
  76     $failure_code = 256;
  77 }
  78 elsif ( -f "..\\out32dll\\openssl.exe" ) {
  79     $ossl_path = "..\\out32dll\\openssl.exe";
  80     $null_path = "NUL";
  81     $failure_code = 256;
  82 }
  83 elsif ( -f "..\\out32\\openssl.exe" ) {
  84     $ossl_path = "..\\out32\\openssl.exe";
  85     $null_path = "NUL";
  86     $failure_code = 256;
  87 }
  88 else {
  89     die "Can't find OpenSSL executable";
  90 }
  91
  92 my $pk7cmd   = "$ossl_path smime ";
  93 my $cmscmd   = "$ossl_path cms ";
  94 my $smdir    = "smime-certs";
  95 my $halt_err = 1;
  96
  97 my $badcmd = 0;
  98 my $no_ec;
  99 my $no_ec2m;
 100 my $no_ecdh;
 101 my $ossl8 = `$ossl_path version -v` =~ /0\.9\.8/;
 102
 103 system ("$ossl_path no-cms > $null_path");
 104 if ($? == 0)
 105         {
 106         print "CMS disabled\n";
 107         exit 0;
 108         }
 109
 110 system ("$ossl_path no-ec > $null_path");
 111 if ($? == 0)
 112         {
 113         $no_ec = 1;
 114         }
 115 elsif ($? == $failure_code)
 116         {
 117         $no_ec = 0;
 118         }
 119 else
 120         {
 121         die "Error checking for EC support\n";
 122         }
 123
 124 system ("$ossl_path no-ec2m > $null_path");
 125 if ($? == 0)
 126         {
 127         $no_ec2m = 1;
 128         }
 129 elsif ($? == $failure_code)
 130         {
 131         $no_ec2m = 0;
 132         }
 133 else
 134         {
 135         die "Error checking for EC2M support\n";
 136         }
 137
 138 system ("$ossl_path no-ec > $null_path");
 139 if ($? == 0)
 140         {
 141         $no_ecdh = 1;
 142         }
 143 elsif ($? == $failure_code)
 144         {
 145         $no_ecdh = 0;
 146         }
 147 else
 148         {
 149         die "Error checking for ECDH support\n";
 150         }
 151
 152 my @smime_pkcs7_tests = (
 153
 154     [
 155         "signed content DER format, RSA key",
 156         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 157           . " -certfile $smdir/smroot.pem"
 158           . " -signer $smdir/smrsa1.pem -out test.cms",
 159         "-verify -in test.cms -inform \"DER\" "
 160           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 161     ],
 162
 163     [
 164         "signed detached content DER format, RSA key",
 165         "-sign -in smcont.txt -outform \"DER\""
 166           . " -signer $smdir/smrsa1.pem -out test.cms",
 167         "-verify -in test.cms -inform \"DER\" "
 168           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
 169     ],
 170
 171     [
 172         "signed content test streaming BER format, RSA",
 173         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 174           . " -stream -signer $smdir/smrsa1.pem -out test.cms",
 175         "-verify -in test.cms -inform \"DER\" "
 176           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 177     ],
 178
 179     [
 180         "signed content DER format, DSA key",
 181         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 182           . " -signer $smdir/smdsa1.pem -out test.cms",
 183         "-verify -in test.cms -inform \"DER\" "
 184           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 185     ],
 186
 187     [
 188         "signed detached content DER format, DSA key",
 189         "-sign -in smcont.txt -outform \"DER\""
 190           . " -signer $smdir/smdsa1.pem -out test.cms",
 191         "-verify -in test.cms -inform \"DER\" "
 192           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
 193     ],
 194
 195     [
 196         "signed detached content DER format, add RSA signer",
 197         "-resign -inform \"DER\" -in test.cms -outform \"DER\""
 198           . " -signer $smdir/smrsa1.pem -out test2.cms",
 199         "-verify -in test2.cms -inform \"DER\" "
 200           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt -content smcont.txt"
 201     ],
 202
 203     [
 204         "signed content test streaming BER format, DSA key",
 205         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 206           . " -stream -signer $smdir/smdsa1.pem -out test.cms",
 207         "-verify -in test.cms -inform \"DER\" "
 208           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 209     ],
 210
 211     [
 212         "signed content test streaming BER format, 2 DSA and 2 RSA keys",
 213         "-sign -in smcont.txt -outform \"DER\" -nodetach"
 214           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 215           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 216           . " -stream -out test.cms",
 217         "-verify -in test.cms -inform \"DER\" "
 218           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 219     ],
 220
 221     [
 222 "signed content test streaming BER format, 2 DSA and 2 RSA keys, no attributes",
 223         "-sign -in smcont.txt -outform \"DER\" -noattr -nodetach"
 224           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 225           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 226           . " -stream -out test.cms",
 227         "-verify -in test.cms -inform \"DER\" "
 228           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 229     ],
 230
 231     [
 232         "signed content test streaming S/MIME format, 2 DSA and 2 RSA keys",
 233         "-sign -in smcont.txt -nodetach"
 234           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 235           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 236           . " -stream -out test.cms",
 237         "-verify -in test.cms " . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 238     ],
 239
 240     [
 241 "signed content test streaming multipart S/MIME format, 2 DSA and 2 RSA keys",
 242         "-sign -in smcont.txt"
 243           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 244           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 245           . " -stream -out test.cms",
 246         "-verify -in test.cms " . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 247     ],
 248
 249     [
 250         "enveloped content test streaming S/MIME format, 3 recipients",
 251         "-encrypt -in smcont.txt"
 252           . " -stream -out test.cms"
 253           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 254         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 255     ],
 256
 257     [
 258 "enveloped content test streaming S/MIME format, 3 recipients, 3rd used",
 259         "-encrypt -in smcont.txt"
 260           . " -stream -out test.cms"
 261           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 262         "-decrypt -recip $smdir/smrsa3.pem -in test.cms -out smtst.txt"
 263     ],
 264
 265     [
 266 "enveloped content test streaming S/MIME format, 3 recipients, key only used",
 267         "-encrypt -in smcont.txt"
 268           . " -stream -out test.cms"
 269           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 270         "-decrypt -inkey $smdir/smrsa3.pem -in test.cms -out smtst.txt"
 271     ],
 272
 273     [
 274 "enveloped content test streaming S/MIME format, AES-256 cipher, 3 recipients",
 275         "-encrypt -in smcont.txt"
 276           . " -aes256 -stream -out test.cms"
 277           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 278         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 279     ],
 280
 281 );
 282
 283 my @smime_cms_tests = (
 284
 285     [
 286         "signed content test streaming BER format, 2 DSA and 2 RSA keys, keyid",
 287         "-sign -in smcont.txt -outform \"DER\" -nodetach -keyid"
 288           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 289           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 290           . " -stream -out test.cms",
 291         "-verify -in test.cms -inform \"DER\" "
 292           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 293     ],
 294
 295     [
 296         "signed content test streaming PEM format, 2 DSA and 2 RSA keys",
 297         "-sign -in smcont.txt -outform PEM -nodetach"
 298           . " -signer $smdir/smrsa1.pem -signer $smdir/smrsa2.pem"
 299           . " -signer $smdir/smdsa1.pem -signer $smdir/smdsa2.pem"
 300           . " -stream -out test.cms",
 301         "-verify -in test.cms -inform PEM "
 302           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 303     ],
 304
 305     [
 306         "signed content MIME format, RSA key, signed receipt request",
 307         "-sign -in smcont.txt -signer $smdir/smrsa1.pem -nodetach"
 308           . " -receipt_request_to test\@openssl.org -receipt_request_all"
 309           . " -out test.cms",
 310         "-verify -in test.cms "
 311           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 312     ],
 313
 314     [
 315         "signed receipt MIME format, RSA key",
 316         "-sign_receipt -in test.cms"
 317           . " -signer $smdir/smrsa2.pem"
 318           . " -out test2.cms",
 319         "-verify_receipt test2.cms -in test.cms"
 320           . " \"-CAfile\" $smdir/smroot.pem"
 321     ],
 322
 323     [
 324         "enveloped content test streaming S/MIME format, 3 recipients, keyid",
 325         "-encrypt -in smcont.txt"
 326           . " -stream -out test.cms -keyid"
 327           . " $smdir/smrsa1.pem $smdir/smrsa2.pem $smdir/smrsa3.pem ",
 328         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 329     ],
 330
 331     [
 332         "enveloped content test streaming PEM format, KEK",
 333         "-encrypt -in smcont.txt -outform PEM -aes128"
 334           . " -stream -out test.cms "
 335           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 336           . " -secretkeyid C0FEE0",
 337         "-decrypt -in test.cms -out smtst.txt -inform PEM"
 338           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 339           . " -secretkeyid C0FEE0"
 340     ],
 341
 342     [
 343         "enveloped content test streaming PEM format, KEK, key only",
 344         "-encrypt -in smcont.txt -outform PEM -aes128"
 345           . " -stream -out test.cms "
 346           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 347           . " -secretkeyid C0FEE0",
 348         "-decrypt -in test.cms -out smtst.txt -inform PEM"
 349           . " -secretkey 000102030405060708090A0B0C0D0E0F "
 350     ],
 351
 352     [
 353         "data content test streaming PEM format",
 354         "-data_create -in smcont.txt -outform PEM -nodetach"
 355           . " -stream -out test.cms",
 356         "-data_out -in test.cms -inform PEM -out smtst.txt"
 357     ],
 358
 359     [
 360         "encrypted content test streaming PEM format, 128 bit RC2 key",
 361         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 362           . " -rc2 -secretkey 000102030405060708090A0B0C0D0E0F"
 363           . " -stream -out test.cms",
 364         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 365           . " -secretkey 000102030405060708090A0B0C0D0E0F -out smtst.txt"
 366     ],
 367
 368     [
 369         "encrypted content test streaming PEM format, 40 bit RC2 key",
 370         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 371           . " -rc2 -secretkey 0001020304"
 372           . " -stream -out test.cms",
 373         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 374           . " -secretkey 0001020304 -out smtst.txt"
 375     ],
 376
 377     [
 378         "encrypted content test streaming PEM format, triple DES key",
 379         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 380           . " -des3 -secretkey 000102030405060708090A0B0C0D0E0F1011121314151617"
 381           . " -stream -out test.cms",
 382         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 383           . " -secretkey 000102030405060708090A0B0C0D0E0F1011121314151617"
 384           . " -out smtst.txt"
 385     ],
 386
 387     [
 388         "encrypted content test streaming PEM format, 128 bit AES key",
 389         "\"-EncryptedData_encrypt\" -in smcont.txt -outform PEM"
 390           . " -aes128 -secretkey 000102030405060708090A0B0C0D0E0F"
 391           . " -stream -out test.cms",
 392         "\"-EncryptedData_decrypt\" -in test.cms -inform PEM "
 393           . " -secretkey 000102030405060708090A0B0C0D0E0F -out smtst.txt"
 394     ],
 395
 396 );
 397
 398 my @smime_cms_comp_tests = (
 399
 400     [
 401         "compressed content test streaming PEM format",
 402         "-compress -in smcont.txt -outform PEM -nodetach"
 403           . " -stream -out test.cms",
 404         "-uncompress -in test.cms -inform PEM -out smtst.txt"
 405     ]
 406
 407 );
 408
 409 my @smime_cms_param_tests = (
 410     [
 411         "signed content test streaming PEM format, RSA keys, PSS signature",
 412         "-sign -in smcont.txt -outform PEM -nodetach"
 413           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
 414           . " -out test.cms",
 415         "-verify -in test.cms -inform PEM "
 416           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 417     ],
 418
 419     [
 420         "signed content test streaming PEM format, RSA keys, PSS signature, no attributes",
 421         "-sign -in smcont.txt -outform PEM -nodetach -noattr"
 422           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
 423           . " -out test.cms",
 424         "-verify -in test.cms -inform PEM "
 425           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 426     ],
 427
 428     [
 429         "signed content test streaming PEM format, RSA keys, PSS signature, SHA384 MGF1",
 430         "-sign -in smcont.txt -outform PEM -nodetach"
 431           . " -signer $smdir/smrsa1.pem -keyopt rsa_padding_mode:pss"
 432           . " -keyopt rsa_mgf1_md:sha384 -out test.cms",
 433         "-verify -in test.cms -inform PEM "
 434           . " \"-CAfile\" $smdir/smroot.pem -out smtst.txt"
 435     ],
 436
 437     [
 438 "enveloped content test streaming S/MIME format, OAEP default parameters",
 439         "-encrypt -in smcont.txt"
 440           . " -stream -out test.cms"
 441           . " -recip $smdir/smrsa1.pem -keyopt rsa_padding_mode:oaep",
 442         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 443     ],
 444
 445     [
 446 "enveloped content test streaming S/MIME format, OAEP SHA256",
 447         "-encrypt -in smcont.txt"
 448           . " -stream -out test.cms"
 449           . " -recip $smdir/smrsa1.pem -keyopt rsa_padding_mode:oaep"
 450           . " -keyopt rsa_oaep_md:sha256",
 451         "-decrypt -recip $smdir/smrsa1.pem -in test.cms -out smtst.txt"
 452     ],
 453
 454     [
 455 "enveloped content test streaming S/MIME format, ECDH",
 456         "-encrypt -in smcont.txt"
 457           . " -stream -out test.cms"
 458           . " -recip $smdir/smec1.pem",
 459         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
 460     ],
 461
 462     [
 463 "enveloped content test streaming S/MIME format, ECDH, key identifier",
 464         "-encrypt -keyid -in smcont.txt"
 465           . " -stream -out test.cms"
 466           . " -recip $smdir/smec1.pem",
 467         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
 468     ],
 469
 470     [
 471 "enveloped content test streaming S/MIME format, ECDH, AES128, SHA256 KDF",
 472         "-encrypt -in smcont.txt"
 473           . " -stream -out test.cms"
 474           . " -recip $smdir/smec1.pem -aes128 -keyopt ecdh_kdf_md:sha256",
 475         "-decrypt -recip $smdir/smec1.pem -in test.cms -out smtst.txt"
 476     ],
 477
 478     [
 479 "enveloped content test streaming S/MIME format, ECDH, K-283, cofactor DH",
 480         "-encrypt -in smcont.txt"
 481           . " -stream -out test.cms"
 482           . " -recip $smdir/smec2.pem -aes128"
 483           . " -keyopt ecdh_kdf_md:sha256 -keyopt ecdh_cofactor_mode:1",
 484         "-decrypt -recip $smdir/smec2.pem -in test.cms -out smtst.txt"
 485     ],
 486
 487     [
 488 "enveloped content test streaming S/MIME format, X9.42 DH",
 489         "-encrypt -in smcont.txt"
 490           . " -stream -out test.cms"
 491           . " -recip $smdir/smdh.pem -aes128",
 492         "-decrypt -recip $smdir/smdh.pem -in test.cms -out smtst.txt"
 493     ]
 494 );
 495
 496 print "CMS => PKCS#7 compatibility tests\n";
 497
 498 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $cmscmd, $pk7cmd );
 499
 500 print "CMS <= PKCS#7 compatibility tests\n";
 501
 502 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $pk7cmd, $cmscmd );
 503
 504 print "CMS <=> CMS consistency tests\n";
 505
 506 run_smime_tests( \$badcmd, \@smime_pkcs7_tests, $cmscmd, $cmscmd );
 507 run_smime_tests( \$badcmd, \@smime_cms_tests,   $cmscmd, $cmscmd );
 508
 509 print "CMS <=> CMS consistency tests, modified key parameters\n";
 510 run_smime_tests( \$badcmd, \@smime_cms_param_tests,   $cmscmd, $cmscmd );
 511
 512 if ( `$ossl_path version -f` =~ /ZLIB/ ) {
 513     run_smime_tests( \$badcmd, \@smime_cms_comp_tests, $cmscmd, $cmscmd );
 514 }
 515 else {
 516     print "Zlib not supported: compression tests skipped\n";
 517 }
 518
 519 print "Running modified tests for OpenSSL 0.9.8 cms backport\n" if($ossl8);
 520
 521 if ($badcmd) {
 522     print "$badcmd TESTS FAILED!!\n";
 523 }
 524 else {
 525     print "ALL TESTS SUCCESSFUL.\n";
 526 }
 527
 528 unlink "test.cms";
 529 unlink "test2.cms";
 530 unlink "smtst.txt";
 531 unlink "cms.out";
 532 unlink "cms.err";
 533
 534 sub run_smime_tests {
 535     my ( $rv, $aref, $scmd, $vcmd ) = @_;
 536
 537     foreach $smtst (@$aref) {
 538         my ( $tnam, $rscmd, $rvcmd ) = @$smtst;
 539         if ($ossl8)
 540                 {
 541                 # Skip smime resign: 0.9.8 smime doesn't support -resign
 542                 next if ($scmd =~ /smime/ && $rscmd =~ /-resign/);
 543                 # Disable streaming: option not supported in 0.9.8
 544                 $tnam =~ s/streaming//;
 545                 $rscmd =~ s/-stream//;
 546                 $rvcmd =~ s/-stream//;
 547                 }
 548         if ($no_ec && $tnam =~ /ECDH/)
 549                 {
 550                 print "$tnam: skipped, EC disabled\n";
 551                 next;
 552                 }
 553         if ($no_ecdh && $tnam =~ /ECDH/)
 554                 {
 555                 print "$tnam: skipped, ECDH disabled\n";
 556                 next;
 557                 }
 558         if ($no_ec2m && $tnam =~ /K-283/)
 559                 {
 560                 print "$tnam: skipped, EC2M disabled\n";
 561                 next;
 562                 }
 563         system("$scmd$rscmd$redir");
 564         if ($?) {
 565             print "$tnam: generation error\n";
 566             $$rv++;
 567             exit 1 if $halt_err;
 568             next;
 569         }
 570         system("$vcmd$rvcmd$redir");
 571         if ($?) {
 572             print "$tnam: verify error\n";
 573             $$rv++;
 574             exit 1 if $halt_err;
 575             next;
 576         }
 577         if (!cmp_files("smtst.txt", "smcont.txt")) {
 578             print "$tnam: content verify error\n";
 579             $$rv++;
 580             exit 1 if $halt_err;
 581             next;
 582         }
 583         print "$tnam: OK\n";
 584     }
 585 }
 586
 587 sub cmp_files {
 588     use FileHandle;
 589     my ( $f1, $f2 ) = @_;
 590     my $fp1 = FileHandle->new();
 591     my $fp2 = FileHandle->new();
 592
 593     my ( $rd1, $rd2 );
 594
 595     if ( !open( $fp1, "<$f1" ) ) {
 596         print STDERR "Can't Open file $f1\n";
 597         return 0;
 598     }
 599
 600     if ( !open( $fp2, "<$f2" ) ) {
 601         print STDERR "Can't Open file $f2\n";
 602         return 0;
 603     }
 604
 605     binmode $fp1;
 606     binmode $fp2;
 607
 608     my $ret = 0;
 609
 610     for ( ; ; ) {
 611         $n1 = sysread $fp1, $rd1, 4096;
 612         $n2 = sysread $fp2, $rd2, 4096;
 613         last if ( $n1 != $n2 );
 614         last if ( $rd1 ne $rd2 );
 615
 616         if ( $n1 == 0 ) {
 617             $ret = 1;
 618             last;
 619         }
 620
 621     }
 622
 623     close $fp1;
 624     close $fp2;
 625
 626     return $ret;
 627
 628 }
 629