[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kinosearch-commits
Subject:    [Kinosearch-commits] r3549 - trunk/perl/t
From:       marvin () rectangular ! com
Date:       2008-06-27 3:59:11
Message-ID: 200806270359.m5R3xAHs032276 () mailer ! progressive-comp ! com
[Download RAW message or body]

Author: creamyg
Date: 2008-06-26 21:13:24 -0700 (Thu, 26 Jun 2008)
New Revision: 3549

Modified:
   trunk/perl/t/305-invindexer.t
Log:
Fix accidentally passing test on InvIndexer locking to test something real.


Modified: trunk/perl/t/305-invindexer.t
===================================================================
--- trunk/perl/t/305-invindexer.t	2008-06-27 04:09:07 UTC (rev 3548)
+++ trunk/perl/t/305-invindexer.t	2008-06-27 04:13:24 UTC (rev 3549)
@@ -22,12 +22,16 @@
 my $invindexer = KinoSearch::InvIndexer->new( invindex => $invindex, );
 
 eval {
+    my $lock_factory = KinoSearch::Store::LockFactory->new(
+        folder   => $folder,
+        agent_id => 'somebody_else',
+    );
     my $inv = KinoSearch::InvIndexer->new(
-        lock_id  => "somebody_else",
-        invindex => $invindex,
+        lock_factory => $lock_factory,
+        invindex     => $invindex,
     );
 };
-like( $@, qr/somebody/, "failed to get lock with competing host" );
+like( $@, qr/write\.lock/, "failed to get lock with competing host" );
 
 my $pid = 12345678;
 do {


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits
[prev in list] [next in list] [prev in thread] [next in thread]