2 # =============================================================================
3 # $Id: 02_directory_update.t,v 1.1 2003-03-03 00:44:39 pop Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests => 9;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
23 IDZebra::logFile("test.log");
24 use_ok('IDZebra::Session');
29 # ----------------------------------------------------------------------------
30 # Session opening and closing
31 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
32 groupName => 'demo2');
33 isa_ok($sess,"IDZebra::Session");
36 skip "Takes a while", 5 if (0);
38 # ----------------------------------------------------------------------------
42 # ----------------------------------------------------------------------------
47 $sess->update(path => 'lib');
48 my $stat = $sess->end_trans;
50 ok(($stat->{inserted} == $filecount),
51 "Inserted $stat->{inserted}/$filecount records");
54 $sess->update(groupName => 'demo1',
57 $stat = $sess->end_trans;
58 ok(($stat->{inserted} == $filecount),
59 "Inserted $stat->{inserted}/$filecount records");
62 $sess->delete(groupName => 'demo1',
64 $stat = $sess->end_trans;
65 ok(($stat->{deleted} == $filecount),
66 "Deleted $stat->{deleted}/$filecount records");
69 $sess->update(groupName => 'demo1',
72 $stat = $sess->end_trans;
73 ok(($stat->{inserted} == $filecount),
74 "Inserted $stat->{inserted}/$filecount records");
76 ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected");
78 # ----------------------------------------------------------------------------