test/01-digest.t

   1 #!/usr/bin/perl
   2 use Test::More tests => 12;
   3 use Cwd 'abs_path';
   4
   5 # prepare data for
   6
   7 open F,">","testdata.dat";
   8 binmode F;
   9 print F "12345670" x 128;
  10 close F;
  11 # Set OPENSSL_ENGINES environment variable to just build engine
  12 $ENV{'OPENSSL_ENGINES'} = abs_path("../.libs");
  13 # Set engine name from environment to allow testing of different engines
  14 $engine=$ENV{'ENGINE_NAME'}||"gost";
  15 # Reopen STDERR to eliminate extra output
  16 open STDERR, ">>","tests.err";
  17
  18 is(`openssl dgst -engine ${engine} -md_gost94 testdata.dat`,
  19 "md_gost94(testdata.dat)= f7fc6d16a6a5c12ac4f7d320e0fd0d8354908699125e09727a4ef929122b1cae\n",
  20 "GOST R 34.11-94 1K ascii");
  21
  22 is(`openssl dgst -engine ${engine} -md_gost12_256 testdata.dat`,
  23 "md_gost12_256(testdata.dat)= d38a79cb15db40651051ef6879881fe25d84cdbb23ecec9f56126f8803f5fc88\n",
  24 "GOST R 34.11-2012 256bit 1K ascii");
  25
  26 is(`openssl dgst -engine ${engine} -md_gost12_512 testdata.dat`,
  27 "md_gost12_512(testdata.dat)= ac48be903716d9b9701fd8cdd75417b9085b5b642191926afd92310e645c52d465e36bbd5ccb356c5b1b8020a868915d5d8cc18ed2c07c28d24ba914b867f144\n",
  28 "GOST R 34.11-2012 512bit 1K ascii");
  29
  30 unlink("testdata.dat");
  31
  32 open F,">","testdata2.dat";
  33 binmode F;
  34 print F "\x00\x01\x02\x15\x84\x67\x45\x31" x 128;
  35 close F;
  36
  37 is(`openssl dgst -engine ${engine} -md_gost94 testdata2.dat`,
  38 "md_gost94(testdata2.dat)= 69f529aa82d9344ab0fa550cdf4a70ecfd92a38b5520b1906329763e09105196\n",
  39 "GOST R 34.11-94 1K binary");
  40
  41 is(`openssl dgst -engine ${engine} -md_gost12_256 testdata2.dat`,
  42 "md_gost12_256(testdata2.dat)= 88fb2a93873befc1712c96c6e151223b18798de4601448efe2836dbfa53a55f2\n",
  43 "GOST R 34.11-2012 256bit 1K binary");
  44
  45 is(`openssl dgst -engine ${engine} -md_gost12_512 testdata2.dat`,
  46 "md_gost12_512(testdata2.dat)= 559b71aaad8e0e749cbac47ff1eaa48471bafaf81e648b234c456e5d25538c32a61d04e3f5863301fdf1f289efc286cb1c317aba3e6425bece26e8cfe35a4074\n",
  47 "GOST R 34.11-2012 512bit 1K binary");
  48
  49 unlink("testdata2.dat");
  50
  51 open F, ">","testdata3.dat";
  52 binmode F;
  53 print F substr("12345670" x 128,0,539);
  54 close F;
  55
  56 is(`openssl dgst -engine ${engine} -md_gost94 testdata3.dat`,
  57 "md_gost94(testdata3.dat)= bd5f1e4b539c7b00f0866afdbc8ed452503a18436061747a343f43efe888aac9\n",
  58 "GOST R 34.11-94 539 bytes");
  59
  60 is(`openssl dgst -engine ${engine} -md_gost12_256 testdata3.dat`,
  61 "md_gost12_256(testdata3.dat)= 3791fa0d152ee406be966c1ef2729ea1dcac370556971cfb08123100735d476c\n",
  62 "GOST R 34.11-2012 256bit 539 bytes");
  63
  64 is(`openssl dgst -engine ${engine} -md_gost12_512 testdata3.dat`,
  65 "md_gost12_512(testdata3.dat)= 62a09dfad97d84b2020a4ab464c878933210b6d23cbfe0c1d1e7fb9093e360fc052e30c5b7bc27ac7d207fcf51ab59058fb2474d08e664cd040c3b8d2d2f49d6\n",
  66 "GOST R 34.11-2012 512bit 539 bytes");
  67
  68 unlink "testdata3.dat";
  69 open F , ">","bigdata.dat";
  70 binmode F;
  71 print F  ("121345678" x 7 . "1234567\n") x 4096,"12345\n";
  72 close F;
  73
  74 is(`openssl dgst -engine ${engine} -md_gost94 bigdata.dat`,
  75 "md_gost94(bigdata.dat)= e5d3ac4ea3f67896c51ff919cedb9405ad771e39f0f2eab103624f9a758e506f\n",
  76 "GOST R 34.11-94 128K");
  77
  78 is(`openssl dgst -engine ${engine} -md_gost12_256 bigdata.dat`,
  79 "md_gost12_256(bigdata.dat)= d50eeeff483f8b5f550d944decb60846f0a6b34f2f7d44a6f725af1578385d47\n",
  80 "GOST R 34.11-2012 256bit 128K");
  81
  82 is(`openssl dgst -engine ${engine} -md_gost12_512 bigdata.dat`,
  83 "md_gost12_512(bigdata.dat)= d57b8b8ea4061822b47df128fe92bd6db4fd6c8e3c537806ae1782ba67fab474c390b9564c3e4867562e0c3ad974d37d5fa6c5b5a3699e984b45845acbcf298a\n",
  84 "GOST R 34.11-2012 512bit 128K");
  85
  86 unlink "bigdata.dat";