8 open $F,">","testdata.dat";
9 print $F "12345670" x 128;
12 open $F,">","testbig.dat";
13 print $F ("12345670" x 8 . "\n") x 4096;
15 # Set OPENSSL_ENGINES environment variable to just built engine
16 if(!defined $ENV{'OPENSSL_ENGINES'}){
17 $ENV{'OPENSSL_ENGINES'} = abs_path("../.libs");
20 my $key='0123456789abcdef' x 2;
22 my $engine=$ENV{'ENGINE_NAME'}||"gost";
24 # Reopen STDERR to eliminate extra output
25 open STDERR, ">>","tests.err";
27 is(`openssl dgst -engine ${engine} -mac gost-mac -macopt key:${key} testdata.dat`,
28 "GOST-MAC-gost-mac(testdata.dat)= 2ee8d13d\n",
29 "GOST MAC - default size");
32 for ($i=1;$i<=8; $i++) {
33 is(`openssl dgst -engine ${engine} -mac gost-mac -macopt key:${key} -sigopt size:$i testdata.dat`,
34 "GOST-MAC-gost-mac(testdata.dat)= ".substr("2ee8d13dff7f037d",0,$i*2)."\n",
35 "GOST MAC - size $i bytes");
40 is(`openssl dgst -engine ${engine} -mac gost-mac -macopt key:${key} testbig.dat`,
41 "GOST-MAC-gost-mac(testbig.dat)= 5efab81f\n",
42 "GOST MAC - big data");
44 is(`openssl dgst -engine ${engine} -mac gost-mac-12 -macopt key:${key} testdata.dat`,
45 "GOST-MAC-12-gost-mac-12(testdata.dat)= be4453ec\n",
46 "GOST MAC - parameters 2012");
49 for ($i=1;$i<=8; $i++) {
50 is(`openssl dgst -engine ${engine} -mac gost-mac-12 -macopt key:${key} -sigopt size:$i testdata.dat`,
51 "GOST-MAC-12-gost-mac-12(testdata.dat)= ".substr("be4453ec1ec327be",0,$i*2)."\n",
52 "GOST MAC parameters 2012 - size $i bytes");
54 unlink('testdata.dat');
55 unlink('testbig.dat');