New Debian sarge packages

[idzebra-moved-to-github.git] / perl / t / 02_directory_update.t

diff --git a/perl/t/02_directory_update.t b/perl/t/02_directory_update.t
index 861b71d..03fe3a4 100644 (file)
--- a/perl/t/02_directory_update.t
+++ b/perl/t/02_directory_update.t
@@ -1,6 +1,6 @@
 #!perl
 # =============================================================================
-# $Id: 02_directory_update.t,v 1.2 2003-03-04 19:33:53 pop Exp $
+# $Id: 02_directory_update.t,v 1.4 2004-07-28 08:15:47 adam Exp $
 #
 # Perl API header
 # =============================================================================
@@ -14,13 +14,14 @@ BEGIN {
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 8;
 
 # ----------------------------------------------------------------------------
 # Session opening and closing
 BEGIN {
     use_ok('IDZebra');
-    IDZebra::logFile("test.log");
+    unlink("test02.log");
+    IDZebra::logFile("test02.log");
     use_ok('IDZebra::Session'); 
     use_ok('pod');
 }
@@ -29,7 +30,7 @@ BEGIN {
 # ----------------------------------------------------------------------------
 # Session opening and closing
 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
-                                 groupName => 'demo2');
+                                 groupName  => 'demo2');
 isa_ok($sess,"IDZebra::Session");
 
 SKIP: {
@@ -38,10 +39,12 @@ SKIP: {
 # ----------------------------------------------------------------------------
 # init repository
 $sess->init();
-
 # ----------------------------------------------------------------------------
 # repository upadte
 
+# ADAM: we must set database separately (can't be used from group)
+$sess->databases('demo2');
+
 our $filecount = 8;
 $sess->begin_trans;
 $sess->update(path      =>  'lib');
@@ -50,6 +53,9 @@ my $stat = $sess->end_trans;
 ok(($stat->{inserted} == $filecount), 
    "Inserted $stat->{inserted}/$filecount records");
 
+# ADAM: we must set database separately (can't be used from group)
+$sess->databases('demo1');
+
 $sess->begin_trans;
 $sess->update(groupName => 'demo1',
              path      =>  'lib');
@@ -71,9 +77,9 @@ $sess->update(groupName => 'demo1',
 
 $stat = $sess->end_trans;
 ok(($stat->{inserted} == $filecount), 
-   "Inserted $stat->{inserted}/$filecount records");
+   "Inserted $stat->{inserted}/$filecount records with shadow");
 
-ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected");
+# ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected"); deleted
 
 # ----------------------------------------------------------------------------
 # Close session