extern/encfs
1
0
Fork 0
mirror of https://github.com/vgough/encfs.git synced 2025-06-24 05:51:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: Move helper funtion to common.inc

Browse Source 
Also fixes md5fh's fd leak.
This commit is contained in:
Jakob Unterwurzacher 2014-11-15 12:13:40 +01:00
parent 1227df72e2
commit b2943eeed1
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/common.inc Normal file
View File

@ -0,0 +1,14 @@
# Helper function
# Get the MD5 sum of the file open at the filehandle
sub md5fh
{
my $fh_orig = shift;
open(my $fh, "<&", $fh_orig); # Duplicate the file handle so the seek
seek($fh, 0, 0); # does not affect the caller
my $md5 = Digest::MD5->new->addfile($fh)->hexdigest;
close($fh);
return $md5;
}
# As this file will be require()'d, it needs to return true
return 1;

13
tests/normal.pl
View File

@ -9,6 +9,8 @@ use File::Temp;
use IO::Handle; use IO::Handle;
use Digest::MD5 qw(md5_hex); use Digest::MD5 qw(md5_hex);
require("tests/common.inc");
my $tempDir = $ENV{'TMPDIR'} || "/tmp"; my $tempDir = $ENV{'TMPDIR'} || "/tmp";
# run unit tests # run unit tests
@ -268,17 +270,6 @@ sub encName
return $enc; return $enc;
} }
# Helper function
# Get the MD5 sum of the file open at the filehandle
sub md5fh
{
my $fh_orig = shift;
open(my $fh, "<&", $fh_orig); # Duplicate the file handle so the seek
seek($fh, 0, 0); # does not affect the caller
return Digest::MD5->new->addfile($fh)->hexdigest;
close($fh);
}
# Test symlinks & hardlinks # Test symlinks & hardlinks
sub links sub links
{ {