svn commit: r1149398 - /subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t

[da...@apache.org]

Author: danielsh
Date: Thu Jul 21 22:44:37 2011
New Revision: 1149398

URL: http://svn.apache.org/viewvc?rev=1149398&view=rev
Log:
Attempt to fix the Perl bindings.

* subversion/bindings/swig/perl/native/t/8lock.t:
    Use a valid URI for the lock token.

Modified:
    subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t?rev=1149398&r1=1149397&r2=1149398&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t Thu Jul 21 22:44:37 2011
@@ -54,10 +54,12 @@ print $stream 'orz';
 }
 $txn->commit;
 
-$fs->lock('/testfile', 'hate software', 'we hate software', 0, 0, $fs->youngest_rev, 0);
+my $token = "opaquelocktoken:notauuid-$$";
+
+$fs->lock('/testfile', $token, 'we hate software', 0, 0, $fs->youngest_rev, 0);
 
 ok(my $lock = $fs->get_lock('/testfile'));
-is($lock->token, 'hate software');
+is($lock->token, $token);
 is($lock->owner, 'foo');
 
 $acc = SVN::Fs::create_access('fnord');
@@ -65,7 +67,7 @@ is($acc->get_username, 'fnord');
 $fs->set_access($acc);
 
 eval {
-$fs->lock('/testfile', 'hate software', 'we hate software', 0, 0, $fs->youngest_rev, 0);
+$fs->lock('/testfile', $token, 'we hate software', 0, 0, $fs->youngest_rev, 0);
 };
 
 like($@, qr/already locked/);