]> wagner.pp.ru Git - openssl-gost/engine.git/blob - test/02-mac.t
gost_ec_keyx: Update header plate with copyrights and description (#266)
[openssl-gost/engine.git] / test / 02-mac.t
1 #!/usr/bin/perl 
2 use Test2::V0;
3 plan(19);
4
5 # prepare data for 
6 my $F;
7 open $F,">","testdata.dat";
8 print $F "12345670" x 128;
9 close $F;
10
11 open $F,">","testbig.dat";
12 print $F ("12345670" x 8 . "\n") x  4096;
13 close $F;
14
15 my $key='0123456789abcdef' x 2;
16
17 my $engine=$ENV{'ENGINE_NAME'}||"gost";
18
19 # Reopen STDERR to eliminate extra output
20 open STDERR, ">>","tests.err";
21
22 is(`openssl dgst -engine ${engine} -mac gost-mac -macopt key:${key} testdata.dat`,
23 "GOST-MAC-gost-mac(testdata.dat)= 2ee8d13d\n",
24 "GOST MAC - default size");
25
26 my $i;
27 for ($i=1;$i<=8; $i++) {
28         is(`openssl dgst -engine ${engine} -mac gost-mac -macopt key:${key} -sigopt size:$i testdata.dat`,
29 "GOST-MAC-gost-mac(testdata.dat)= ".substr("2ee8d13dff7f037d",0,$i*2)."\n",
30 "GOST MAC - size $i bytes");
31 }
32
33
34
35 is(`openssl dgst -engine ${engine} -mac gost-mac -macopt key:${key} testbig.dat`,
36 "GOST-MAC-gost-mac(testbig.dat)= 5efab81f\n",
37 "GOST MAC - big data");
38
39 is(`openssl dgst -engine ${engine} -mac gost-mac-12 -macopt key:${key} testdata.dat`,
40 "GOST-MAC-12-gost-mac-12(testdata.dat)= be4453ec\n",
41 "GOST MAC - parameters 2012");
42
43
44 for ($i=1;$i<=8; $i++) {
45         is(`openssl dgst -engine ${engine} -mac gost-mac-12 -macopt key:${key} -sigopt size:$i testdata.dat`,
46 "GOST-MAC-12-gost-mac-12(testdata.dat)= ".substr("be4453ec1ec327be",0,$i*2)."\n",
47 "GOST MAC parameters 2012 - size $i bytes");
48 }
49 unlink('testdata.dat');
50 unlink('testbig.dat');