2 # =============================================================================
3 # $Id: 02_directory_update.t,v 1.4 2004-07-28 08:15:47 adam Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests => 8;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
24 IDZebra::logFile("test02.log");
25 use_ok('IDZebra::Session');
30 # ----------------------------------------------------------------------------
31 # Session opening and closing
32 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
33 groupName => 'demo2');
34 isa_ok($sess,"IDZebra::Session");
37 skip "Takes a while", 5 if (0);
39 # ----------------------------------------------------------------------------
42 # ----------------------------------------------------------------------------
45 # ADAM: we must set database separately (can't be used from group)
46 $sess->databases('demo2');
50 $sess->update(path => 'lib');
51 my $stat = $sess->end_trans;
53 ok(($stat->{inserted} == $filecount),
54 "Inserted $stat->{inserted}/$filecount records");
56 # ADAM: we must set database separately (can't be used from group)
57 $sess->databases('demo1');
60 $sess->update(groupName => 'demo1',
63 $stat = $sess->end_trans;
64 ok(($stat->{inserted} == $filecount),
65 "Inserted $stat->{inserted}/$filecount records");
68 $sess->delete(groupName => 'demo1',
70 $stat = $sess->end_trans;
71 ok(($stat->{deleted} == $filecount),
72 "Deleted $stat->{deleted}/$filecount records");
75 $sess->update(groupName => 'demo1',
78 $stat = $sess->end_trans;
79 ok(($stat->{inserted} == $filecount),
80 "Inserted $stat->{inserted}/$filecount records with shadow");
82 # ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected"); deleted
84 # ----------------------------------------------------------------------------