X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=test%2F01-digest.t;h=c762dc210c707527f3a1459bad8693d10b929890;hb=0fd84c8144c5291fc3b1887204e571e731959a0b;hp=e87c8ffdc10c15a45c27e125ce6456bc72cb1516;hpb=6db352bde050466cb62bf5b50e8b56fd0d52663b;p=openssl-gost%2Fengine.git

diff --git a/test/01-digest.t b/test/01-digest.t
index e87c8ff..c762dc2 100644
--- a/test/01-digest.t
+++ b/test/01-digest.t
@@ -5,6 +5,7 @@ use Cwd 'abs_path';
 # prepare data for 
 
 open F,">","testdata.dat";
+binmode F;
 print F "12345670" x 128;
 close F;
 # Set OPENSSL_ENGINES environment variable to just build engine
@@ -29,6 +30,7 @@ is(`openssl dgst -engine ${engine} -md_gost12_512 testdata.dat`,
 unlink("testdata.dat");
 
 open F,">","testdata2.dat";
+binmode F;
 print F "\x00\x01\x02\x15\x84\x67\x45\x31" x 128;
 close F;
 
@@ -47,6 +49,7 @@ is(`openssl dgst -engine ${engine} -md_gost12_512 testdata2.dat`,
 unlink("testdata2.dat");
 
 open F, ">","testdata3.dat";
+binmode F;
 print F substr("12345670" x 128,0,539);
 close F;
 
@@ -64,6 +67,7 @@ is(`openssl dgst -engine ${engine} -md_gost12_512 testdata3.dat`,
 
 unlink "testdata3.dat";
 open F , ">","bigdata.dat";
+binmode F;
 print F  ("121345678" x 7 . "1234567\n") x 4096,"12345\n";
 close F;