db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-06-14 23:44:58 +02:00
Code Issues Releases Activity

Move cryptographic hash functions to C using OpenSSL.

Browse Source
This commit is contained in:
David Steele
2018-06-11 14:52:26 -04:00
parent 064ec757e9
commit 350b30fa49
29 changed files with 774 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/lib/pgBackRestTest/Module/Storage/StorageS3PerlTest.pm
View File

@ -12,10 +12,9 @@ use warnings FATAL => qw(all);
use Carp qw(confess);
use English '-no_match_vars';
use Digest::SHA qw(sha1_hex);
use pgBackRest::Common::Log;
use pgBackRest::Common::String;
use pgBackRest::LibC qw(:crypto);
use pgBackRest::Storage::S3::Driver;
use pgBackRestTest::Common::ExecuteTest;
@ -172,7 +171,7 @@ sub run
$self->testResult(sub {$oFileRead->read(\$tBuffer, 524288)}, 524288, ' read half');
$self->testResult(sub {$oFileRead->read(\$tBuffer, 512)}, 0, ' read 0');
$self->testResult(length($tBuffer), 1048576, ' check length');
$self->testResult(sha1_hex($tBuffer), sha1_hex($strRandom), ' check hash');
$self->testResult(cryptoHashOne('sha1', $tBuffer), cryptoHashOne('sha1', $strRandom), ' check hash');
}
################################################################################################################################