From 0fd84c8144c5291fc3b1887204e571e731959a0b Mon Sep 17 00:00:00 2001 From: Victor Wagner Date: Thu, 1 Oct 2015 12:35:20 +0300 Subject: [PATCH] Added binmode to file creation code --- test/01-digest.t | 4 ++++ 1 file changed, 4 insertions(+) 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; -- 2.39.5