[Pkg-owncloud-commits] [owncloud-client] 15/115: Tests: Give a more random name to test directories

[Sandro Knauß]

This is an automated email from the git hooks/post-receive script.

hefee-guest pushed a commit to branch master
in repository owncloud-client.

commit 4c0891a22e6df0624ab557008e60f29fbcc7cb79
Author: Markus Goetz <markus at woboq.com>
Date:   Tue Aug 12 16:25:04 2014 +0200

    Tests: Give a more random name to test directories
    
    Conflicts:
    	csync/tests/ownCloud/ownCloud/Test.pm
---
 csync/tests/ownCloud/ownCloud/Test.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/csync/tests/ownCloud/ownCloud/Test.pm b/csync/tests/ownCloud/ownCloud/Test.pm
index e47bffd..931f3f2 100644
--- a/csync/tests/ownCloud/ownCloud/Test.pm
+++ b/csync/tests/ownCloud/ownCloud/Test.pm
@@ -35,6 +35,7 @@ use LWP::Protocol::https;
 use HTTP::Request::Common qw( POST GET DELETE );
 use File::Basename;
 use IO::Handle;
+use POSIX qw/strftime/;
 
 use Encode qw(from_to);
 use utf8;
@@ -129,8 +130,9 @@ sub initTesting(;$)
   # $d->DebugLevel(3);
   $prefix = "t1" unless( defined $prefix );
   
-  my $dirId = sprintf("%#.3o", rand(1000));
-  my $dir = sprintf( "%s-%s/", $prefix, $dirId );
+  my $dirId = sprintf("%02d", rand(100));
+  my $dateTime = strftime('%Y%m%d%H%M%S',localtime);
+  my $dir = sprintf( "%s-%s-%s/", $prefix, $dateTime, $dirId );
   
   $localDir = $dir;
   $localDir .= "/" unless( $localDir =~ /\/$/ );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-owncloud/owncloud-client.git