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

Added printInfo convenience method.

Browse source
This commit is contained in:
Klaas Freitag 2013-11-07 16:57:06 +01:00
parent a6c4a9ac74
commit 07e8681181
1 changed files with 21 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
tests/ownCloud/ownCloud/Test.pm
View file

@ -49,13 +49,15 @@ our $ld_libpath = "/home/joe/owncloud.com/buildcsync/modules";
our $csync = "/home/joe/owncloud.com/buildcsync/client/ocsync";
our $remoteDir;
our $localDir;
our $infoCnt = 1;
@ISA = qw(Exporter);
@EXPORT = qw( initTesting createRemoteDir createLocalDir cleanup csync
@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);
remoteCleanup server initLocalDir initRemoteDir moveRemoteFile
printInfo);
sub server
{
@ -167,9 +169,9 @@ sub cleanup()
{
# ==================================================================
print "\n###########################################\n";
print " all cool - tests succeeded in $remoteDir.\n";
print "###########################################\n";
print "\n################################################\n";
printf( " all cool - %d tests succeeded in %s.\n", $infoCnt-1, $remoteDir);
print "#################################################\n";
print "\nInterrupt before cleanup in 4 seconds...\n";
sleep(4);
@ -491,4 +493,18 @@ sub moveRemoteFile($$)
}
sub printInfo($)
{
my ($info) = @_;
my $tt = 6+length( $info );
print "#" x $tt;
printf( "\n# %2d. %s", $infoCnt, $info );
print "\n" unless $info =~ /\n$/;
print "#" x $tt;
print "\n";
$infoCnt++;
}
#