mirrors/nextcloud-desktop
1
0
Fork 0
mirror of https://github.com/nextcloud/desktop.git synced 2024-11-27 09:30:13 +03:00
Code Issues Projects Releases Packages Wiki Activity

More fine granular chunking test - improved t6.pl

Browse source
This commit is contained in:
Klaas Freitag 2014-04-07 16:30:02 +02:00
parent 3d67d203fe
commit ebf3c78237
1 changed files with 38 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
csync/tests/ownCloud/t6.pl
View file

@ -33,30 +33,52 @@ print "Hello, this is t6, a tester for csync with ownCloud.\n";
initTesting();
sub chunkFileTest( $$ )
{
my ($name, $size) = @_;
# Big file chunking
printInfo( "Do a big file that is chunked");
createLocalFile( localDir().'BIG.file', 22272592 );
assert( -e localDir().'BIG.file' );
my $bigMd5 = md5OfFile( localDir().'BIG.file' );
createLocalFile( localDir().$name, $size );
assert( -e localDir().$name );
my $bigMd5 = md5OfFile( localDir().$name );
csync();
my $newMd5 = md5OfFile( localDir().'BIG.file' );
assert( $newMd5 eq $bigMd5 );
my $newMd5 = md5OfFile( localDir().$name );
assert( $newMd5 eq $bigMd5, "Different MD5 sums!" );
# download
my $ctrlFile = "/tmp/file.download";
getToFileCurl( 'BIG.file', $ctrlFile );
getToFileCurl( $name, $ctrlFile );
assert( -e $ctrlFile, "File does not exist!" );
# assert files
my $dlMd5 = md5OfFile( $ctrlFile );
assert( $dlMd5 eq $newMd5 );
assert( $dlMd5 eq $newMd5, "Different MD5 sums 2" );
unlink( $ctrlFile );
}
chunkFileTest( "BIG.file", 23251233 );
# Set a custom chunk size in environment.
my $ChunkSize = 1*1024*1024;
$ENV{'OWNCLOUD_CHUNK_SIZE'} = $ChunkSize;
chunkFileTest( "oneChunkSize.bin", $ChunkSize);
chunkFileTest( "oneChunkSizeminusone.bin", $ChunkSize-1);
chunkFileTest( "oneChunkSizeplusone.bin", $ChunkSize+1);
chunkFileTest( "twoChunkSize.bin", 2*$ChunkSize);
chunkFileTest( "twoChunkSizeminusone.bin", 2*$ChunkSize-1);
chunkFileTest( "twoChunkSizeplusone.bin", 2*$ChunkSize+1);
printInfo("Big file exactly as big as one chunk size");
# ==================================================================
cleanup();
unlink( $ctrlFile );
# --