зеркало из https://github.com/nextcloud/desktop.git
Added t5.pl which does basic testing with a Shared directory.
This commit is contained in:
Klaas Freitag
Родитель
70eb688e86
Коммит
384a8d0d72
|
|
@ -45,21 +45,26 @@ use open ':encoding(utf8)';
|
|||
use vars qw( @ISA @EXPORT @EXPORT_OK $d %config);
|
||||
|
||||
our $owncloud = "http://localhost/oc/remote.php/webdav/";
|
||||
our $owncloud_plain; # the server url without the uniq testing dir
|
||||
our $user = "joe";
|
||||
our $passwd = 'XXXXX'; # Mind to be secure.
|
||||
our $ld_libpath = "/home/joe/owncloud.com/buildcsync/modules";
|
||||
our $csync = "/home/joe/owncloud.com/buildcsync/client/ocsync";
|
||||
our $ocs_url;
|
||||
our $share_user;
|
||||
our $share_passwd;
|
||||
our $remoteDir;
|
||||
our $localDir;
|
||||
our $infoCnt = 1;
|
||||
|
||||
our %config;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw( initTesting createRemoteDir createLocalDir cleanup csync
|
||||
assertLocalDirs assertLocalAndRemoteDir glob_put put_to_dir
|
||||
putToDirLWP localDir remoteDir localCleanup createLocalFile md5OfFile
|
||||
remoteCleanup server initLocalDir initRemoteDir moveRemoteFile
|
||||
printInfo remoteFileId);
|
||||
printInfo remoteFileId createShare
|
||||
configValue testDirUrl);
|
||||
|
||||
sub server
|
||||
{
|
||||
|
|
@ -86,15 +91,19 @@ sub initTesting(;$)
|
|||
$cfgFile = "/etc/ownCloud/t1.cfg" if( -r "/etc/ownCloud/t1.cfg" );
|
||||
|
||||
if( -r "$cfgFile" ) {
|
||||
my %config = do $cfgFile;
|
||||
%config = do $cfgFile;
|
||||
warn "Could not parse t1.cfg: $!\n" unless %config;
|
||||
warn "Could not do t1.cfg: $@\n" if $@;
|
||||
|
||||
$user = $config{user} if( $config{user} );
|
||||
$passwd = $config{passwd} if( $config{passwd} );
|
||||
$owncloud = $config{url} if( $config{url} );
|
||||
$ld_libpath = $config{ld_libpath} if( $config{ld_libpath} );
|
||||
$csync = $config{csync} if( $config{csync} );
|
||||
$user = $config{user} if( $config{user} );
|
||||
$passwd = $config{passwd} if( $config{passwd} );
|
||||
$owncloud = $config{url} if( $config{url} );
|
||||
$ld_libpath = $config{ld_libpath} if( $config{ld_libpath} );
|
||||
$csync = $config{csync} if( $config{csync} );
|
||||
$ocs_url = $config{ocs_url} if( $config{ocs_url} );
|
||||
$share_user = $config{share_user} if( $config{share_user} );
|
||||
$share_passwd = $config{share_passwd} if( $config{share_passwd} );
|
||||
|
||||
print "Read config from $cfgFile: $config{url}\n";
|
||||
} else {
|
||||
print STDERR "Could not read a config file $cfgFile\n";
|
||||
|
|
@ -124,19 +133,38 @@ sub initTesting(;$)
|
|||
printf( "Test directory name is %s\n", $dir );
|
||||
}
|
||||
|
||||
sub configValue($;$)
|
||||
{
|
||||
my ($configName, $default) = @_;
|
||||
|
||||
if( $config{$configName} ) {
|
||||
return $config{$configName} ;
|
||||
} else {
|
||||
return $default;
|
||||
}
|
||||
}
|
||||
|
||||
# Returns the full url to the testing dir, ie.
|
||||
# http://localhost/owncloud/remote.php/webdav/t1-0543
|
||||
sub testDirUrl()
|
||||
{
|
||||
print "WARN: Remote dir still empty, first call initRemoteDir!\n" unless($remoteDir);
|
||||
return $owncloud . $remoteDir;
|
||||
}
|
||||
|
||||
# Call this first to create the unique test dir stored in
|
||||
# the global var $remoteDir;
|
||||
sub initRemoteDir
|
||||
{
|
||||
$d->open( $owncloud );
|
||||
$owncloud .= $remoteDir;
|
||||
|
||||
my $re = $d->mkcol( $owncloud );
|
||||
my $url = testDirUrl();
|
||||
|
||||
my $re = $d->mkcol( $url );
|
||||
if( $re == 0 ) {
|
||||
print "Failed to create test dir $owncloud\n";
|
||||
print "Failed to create test dir $url\n";
|
||||
exit 1;
|
||||
}
|
||||
# $owncloud .= $remoteDir;
|
||||
|
||||
}
|
||||
|
||||
sub initLocalDir
|
||||
|
|
@ -148,7 +176,7 @@ sub createRemoteDir(;$)
|
|||
{
|
||||
my ($dir) = @_;
|
||||
|
||||
my $url = $owncloud . $dir;
|
||||
my $url = testDirUrl() . $dir;
|
||||
|
||||
$d->open( $owncloud );
|
||||
print $d->message . "\n";
|
||||
|
|
@ -159,6 +187,7 @@ sub createRemoteDir(;$)
|
|||
exit 1;
|
||||
}
|
||||
$d->open( $url );
|
||||
|
||||
return $re;
|
||||
|
||||
}
|
||||
|
|
@ -191,14 +220,15 @@ sub cleanup()
|
|||
sub remoteCleanup($)
|
||||
{
|
||||
my ($dir) = @_;
|
||||
$d->open( -url => $owncloud . $dir );
|
||||
my $url = testDirUrl().$dir;
|
||||
$d->open( -url => $url );
|
||||
|
||||
print "Cleaning Remote!\n";
|
||||
|
||||
my $re = $d->delete( $owncloud . $dir );
|
||||
my $re = $d->delete( $url );
|
||||
|
||||
if( $re == 0 ) {
|
||||
print "Failed to clenup directory <$owncloud $dir>\n";
|
||||
print "Failed to cleanup directory <$url>\n";
|
||||
}
|
||||
return $re;
|
||||
}
|
||||
|
|
@ -211,9 +241,15 @@ sub localCleanup($)
|
|||
system( "rm -rf $dir" );
|
||||
}
|
||||
|
||||
sub csync( )
|
||||
# parameter: An optional full url to the owncloud sync dir.
|
||||
sub csync( ;$ )
|
||||
{
|
||||
my $url = $owncloud;
|
||||
my ($aurl) = @_;
|
||||
|
||||
my $url = testDirUrl();
|
||||
if( $aurl ) {
|
||||
$url = $aurl;
|
||||
}
|
||||
$url =~ s#^http://##; # Remove the leading http://
|
||||
$url = "owncloud://$user:$passwd@". $url;
|
||||
print "CSync URL: $url\n";
|
||||
|
|
@ -290,15 +326,23 @@ sub registerSeen($$)
|
|||
$seenRef->{$file} = 1;
|
||||
}
|
||||
|
||||
sub traverse( $$ )
|
||||
sub traverse( $$;$ )
|
||||
{
|
||||
my ($remote, $acceptConflicts) = @_;
|
||||
my ($remote, $acceptConflicts, $aurl) = @_;
|
||||
$remote .= '/' unless $remote =~ /(^|\/)$/;
|
||||
printf("===============> $remote\n");
|
||||
|
||||
my $url = $owncloud . $remote;
|
||||
my $url = testDirUrl() . $remote;
|
||||
if( $aurl ) {
|
||||
$url = $aurl . $remote;
|
||||
}
|
||||
printf("===============> $url\n");
|
||||
my %seen;
|
||||
|
||||
|
||||
$d->credentials( -url=> $owncloud, -realm=>"ownCloud",
|
||||
-user=> $user,
|
||||
-pass=> $passwd );
|
||||
|
||||
if( my $r = $d->propfind( -url => $url, -depth => 1 ) ) {
|
||||
|
||||
if( $r->get_resourcelist ) {
|
||||
|
|
@ -309,12 +353,15 @@ sub traverse( $$ )
|
|||
# print "Checking " . $res-> get_uri()->as_string ."\n";
|
||||
print "Traversing into directory: $filename\n";
|
||||
my $dirname = $remote . $filename;
|
||||
traverse( $dirname, $acceptConflicts );
|
||||
registerSeen( \%seen, $localDir . $dirname );
|
||||
traverse( $dirname, $acceptConflicts, $aurl );
|
||||
my $localDirName = $localDir . $dirname;
|
||||
$localDirName =~ s/Shared\///g;
|
||||
registerSeen( \%seen, $localDirName); # . $dirname
|
||||
} else {
|
||||
# Check files here.
|
||||
print "Checking file: $remote$filename\n";
|
||||
my $localFile = $localDir . $remote . $filename;
|
||||
$localFile =~ s/Shared\///g;
|
||||
registerSeen( \%seen, $localFile );
|
||||
# $localFile =~ s/t1-\d+\//t1\//;
|
||||
|
||||
|
|
@ -329,7 +376,8 @@ sub traverse( $$ )
|
|||
# Check the directory contents
|
||||
my $localpath = localDir();
|
||||
$localpath .= $remote if( $remote ne "/" );
|
||||
print "#### localpath = " . $localpath . "\n";
|
||||
$localpath =~ s/Shared\///g;
|
||||
print "#### localpath = " . $localpath . "\n";
|
||||
opendir(my $dh, $localpath ) || die;
|
||||
# print Dumper( %seen );
|
||||
while( readdir $dh ) {
|
||||
|
|
@ -361,20 +409,19 @@ sub traverse( $$ )
|
|||
closedir $dh;
|
||||
}
|
||||
|
||||
sub assertLocalAndRemoteDir( $$ )
|
||||
sub assertLocalAndRemoteDir( $$;$ )
|
||||
{
|
||||
my ($remote, $acceptConflicts ) = @_;
|
||||
# %seen = ();
|
||||
traverse( $remote, $acceptConflicts );
|
||||
my ($remote, $acceptConflicts, $aurl ) = @_;
|
||||
traverse( $remote, $acceptConflicts, $aurl );
|
||||
}
|
||||
|
||||
sub glob_put( $$ )
|
||||
#
|
||||
# the third parameter is an optional hash ref that can contain
|
||||
# the keys user, passwd and url for alternative connection settings
|
||||
#
|
||||
sub glob_put( $$;$ )
|
||||
{
|
||||
my( $globber, $target ) = @_;
|
||||
|
||||
# $target = $owncloud . $target;
|
||||
|
||||
$d->open( $target );
|
||||
my( $globber, $target, $optionsRef ) = @_;
|
||||
|
||||
my @puts = bsd_glob( $globber );
|
||||
foreach my $llfile( @puts ) {
|
||||
|
|
@ -389,7 +436,7 @@ sub glob_put( $$ )
|
|||
$puturl = $target;
|
||||
print " *** Putting $lfile to $puturl\n";
|
||||
# putToDirLWP( $lfile, $puturl );
|
||||
put_to_dir($lfile, $puturl);
|
||||
put_to_dir($lfile, $puturl, $optionsRef);
|
||||
|
||||
# if( ! $d->put( -local=>$lfile, -url=> $puturl ) ) {
|
||||
#print " ### FAILED to put: ". $d->message . '\n';
|
||||
|
|
@ -400,16 +447,26 @@ sub glob_put( $$ )
|
|||
}
|
||||
}
|
||||
|
||||
sub put_to_dir( $$ )
|
||||
sub put_to_dir( $$;$ )
|
||||
{
|
||||
my ($file, $dir) = @_;
|
||||
my ($file, $dir, $optionsRef) = @_;
|
||||
|
||||
$dir .="/" unless $dir =~ /\/$/;
|
||||
my $targetUrl = testDirUrl();
|
||||
|
||||
if( $optionsRef && $optionsRef->{user} && $optionsRef->{passwd} ) {
|
||||
$d->credentials( -url=> $owncloud, -realm=>"ownCloud",
|
||||
-user=> $optionsRef->{user},
|
||||
-pass=> $optionsRef->{passwd} );
|
||||
if( $optionsRef->{url} ) {
|
||||
$targetUrl = $optionsRef->{url};
|
||||
}
|
||||
}
|
||||
$d->open($dir);
|
||||
|
||||
my $filename = $file;
|
||||
$filename =~ s/^.*\///;
|
||||
my $puturl = $owncloud . $dir. $filename;
|
||||
my $puturl = $targetUrl . $dir. $filename;
|
||||
print "put_to_dir puts to $puturl\n";
|
||||
unless ($d->put( -local => $file, -url => $puturl )) {
|
||||
print " ### FAILED to put a single file!\n";
|
||||
|
|
@ -429,7 +486,7 @@ sub putToDirLWP($$)
|
|||
my $basename = basename $filename;
|
||||
|
||||
$dir =~ s/^\.\///;
|
||||
my $puturl = $owncloud . $dir. $basename;
|
||||
my $puturl = testDirUrl() . $dir. $basename;
|
||||
# print "putToDir LWP puts $filename to $puturl\n";
|
||||
die("Could not open $filename: $!") unless( open FILE, "$filename" );
|
||||
binmode FILE, ":utf8";;
|
||||
|
|
@ -494,8 +551,8 @@ sub moveRemoteFile($$)
|
|||
{
|
||||
my ($from, $to) = @_;
|
||||
|
||||
my $fromUrl = $owncloud . $from;
|
||||
my $toUrl = $owncloud . $to;
|
||||
my $fromUrl = testDirUrl(). $from;
|
||||
my $toUrl = testDirUrl() . $to;
|
||||
|
||||
$d->move($fromUrl, $toUrl);
|
||||
|
||||
|
|
@ -518,7 +575,7 @@ sub printInfo($)
|
|||
sub remoteFileId($$)
|
||||
{
|
||||
my ($fromDir, $file) = @_;
|
||||
my $fromUrl = $owncloud . $fromDir;
|
||||
my $fromUrl = testDirUrl() . $fromDir;
|
||||
my $id;
|
||||
|
||||
if( my $r = $d->propfind( -url => $fromUrl, -depth => 1 ) ) {
|
||||
|
|
@ -541,4 +598,47 @@ sub remoteFileId($$)
|
|||
return $id;
|
||||
}
|
||||
|
||||
# Creates a read write share from the config file user 'share_user' to the
|
||||
# config file user 'user'
|
||||
# readWrite: permission flag. 31 for all permissions (read/write/create etc)
|
||||
# and 1 for read only
|
||||
sub createShare($$)
|
||||
{
|
||||
my ($dir, $readWrite) = @_;
|
||||
|
||||
my $dd = HTTP::DAV->new();
|
||||
|
||||
$dd->credentials( -url=> $owncloud, -realm=>"ownCloud",
|
||||
-user=> $share_user,
|
||||
-pass=> $share_passwd );
|
||||
$dd->open( $owncloud);
|
||||
|
||||
# create a remote dir
|
||||
my $url = $owncloud . $dir;
|
||||
|
||||
my $re = $dd->mkcol( $url );
|
||||
if( $re == 0 ) {
|
||||
print "Failed to create test dir $url\n";
|
||||
|
||||
}
|
||||
|
||||
my $ua = LWP::UserAgent->new();
|
||||
$ua->agent( "ownCloudTest_sharing");
|
||||
# http://localhost/ocm/ocs/v1.php/apps/files_sharing/api/v1/shares
|
||||
my $puturl = $ocs_url . "apps/files_sharing/api/v1/shares";
|
||||
|
||||
my $string = "path=$dir&shareType=0&shareWith=$user&publicUpload=false&permissions=$readWrite";
|
||||
print ">>>>>>>>>> $string\n";
|
||||
|
||||
my $req = POST $puturl, Content => $string;
|
||||
$req->authorization_basic($share_user, $share_passwd);
|
||||
my $response = $ua->request($req);
|
||||
|
||||
if ($response->is_success()) {
|
||||
# print "OK: ", $response->content;
|
||||
} else {
|
||||
die( "Create sharing failed: " . $response->as_string );
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
|
|
|
|||
|
|
@ -1,5 +1,8 @@
|
|||
user => "joe",
|
||||
user => "joe",
|
||||
passwd => "secret",
|
||||
url => "http://localhost/ocm/remote.php/webdav/",
|
||||
ld_libpath => "/home/joe/owncloud/csync/csync-build/modules",
|
||||
csync => "/home/joe/owncloud/csync/csync-build/client/csync"
|
||||
csync => "/home/joe/owncloud/csync/csync-build/client/csync",
|
||||
ocs_url => "http://localhost/owncloud/ocs/v1.php/",
|
||||
share_user => "jenny",
|
||||
share_passwd => "also_secret"
|
||||
|
|
|
|||
|
|
@ -0,0 +1,61 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Test script for the ownCloud module of csync.
|
||||
# This script requires a running ownCloud instance accessible via HTTP.
|
||||
# It does quite some fancy tests and asserts the results.
|
||||
#
|
||||
# Copyright (C) by Klaas Freitag <freitag@owncloud.com>
|
||||
#
|
||||
# This library is free software; you can redistribute it and/or
|
||||
# modify it under the terms of the GNU Lesser General Public
|
||||
# License as published by the Free Software Foundation; either
|
||||
# version 2.1 of the License, or (at your option) any later version.
|
||||
#
|
||||
# This library is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
# Lesser General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU Lesser General Public
|
||||
# License along with this library; if not, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
#
|
||||
|
||||
use lib ".";
|
||||
|
||||
use Carp::Assert;
|
||||
use File::Copy;
|
||||
use ownCloud::Test;
|
||||
|
||||
use strict;
|
||||
|
||||
print "Hello, this is t5, a tester for syncing of files in Shares\n";
|
||||
# stat error occours on windsows when the file is busy for example
|
||||
|
||||
initTesting();
|
||||
|
||||
my $share_dir = "share_source";
|
||||
|
||||
printInfo( "Create a share." );
|
||||
createShare( $share_dir, 31 );
|
||||
|
||||
# put a couple of files into the shared directory in the sharer account
|
||||
glob_put( 'sharing/*', $share_dir, { user => configValue('share_user'),
|
||||
passwd => configValue('share_passwd'),
|
||||
url => server() });
|
||||
|
||||
# now user kf has a new directory in shared.
|
||||
|
||||
# call csync, sync local t1 to remote t1
|
||||
printInfo("Initial sync, sync stuff down.");
|
||||
csync( server()."Shared" );
|
||||
assertLocalAndRemoteDir( 'Shared', 0, server() );
|
||||
|
||||
printInfo("Put a file into the share.");
|
||||
createLocalFile( localDir(). $share_dir . "/foobar.txt", 8094 );
|
||||
csync( server()."Shared" );
|
||||
assertLocalAndRemoteDir( 'Shared', 0, server() );
|
||||
|
||||
cleanup();
|
||||
|
||||
# --
|
||||
Загрузка…
Ссылка в новой задаче