2 # =============================================================================
3 # $Id: test.pl,v 1.7 2003-02-28 18:38:28 pop Exp $
6 # =============================================================================
8 use Test::More tests => 15;
9 push (@INC,'demo','blib/lib','blib/arch');
10 use_ok('IDZebra::Session');
15 IDZebra::logFile("test.log");
17 #IDZebra::logLevel(15);
21 # ----------------------------------------------------------------------------
22 # Session opening and closing
23 my $sess = IDZebra::Session->new(configFile => 'demo/zebra.cfg');
24 isa_ok($sess,"IDZebra::Session");
27 ok(defined($sess->{zh}), "Zebra handle opened");
29 ok(!defined($sess->{zh}), "Zebra handle closed");
32 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
33 groupName => 'demo1');
34 isa_ok($sess,"IDZebra::Session");
35 ok(defined($sess->{zh}), "Zebra handle opened");
36 #use IDZebra::Repository;
38 # ----------------------------------------------------------------------------
41 ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
43 $sess->group(groupName => 'demo2');
45 ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
47 # ----------------------------------------------------------------------------
51 # ----------------------------------------------------------------------------
57 $sess->update(path => 'lib');
58 my $stat = $sess->end_trans;
60 ok(($stat->{inserted} == $filecount),
61 "Inserted $stat->{inserted}/$filecount records");
64 $sess->update(groupName => 'demo1',
67 my $stat = $sess->end_trans;
68 ok(($stat->{inserted} == $filecount),
69 "Inserted $stat->{inserted}/$filecount records");
72 $sess->delete(groupName => 'demo1',
74 my $stat = $sess->end_trans;
75 ok(($stat->{deleted} == $filecount),
76 "Deleted $stat->{deleted}/$filecount records");
79 $sess->update(groupName => 'demo1',
82 my $stat = $sess->end_trans;
83 ok(($stat->{inserted} == $filecount),
84 "Inserted $stat->{inserted}/$filecount records");
86 ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected");
88 # ----------------------------------------------------------------------------
90 my $rec1=`cat lib/IDZebra/Data1.pm`;
91 my $rec2=`cat lib/IDZebra/Filter.pm`;
94 my $s1=$sess->update_record(data => $rec2,
95 recordType => 'grs.perl.pod',
98 my $stat = $sess->end_trans;
99 ok(($stat->{updated} == 1), "Updated 1 records");
101 # ----------------------------------------------------------------------------
103 $sess->databases('demo2');
105 my $rs1 = $sess->search(cqlmap => 'demo/cql.map',
107 databases => [qw(demo1 demo2)]);
109 print STDERR "$rs1->{recordCount} hits.\n";
111 #my $s2=$sess->update_record(data => $rec2);
112 # recordType => "grs.perl.pod");
115 #my $s3=$sess->update_record(file => "lib/IDZebra/Data1.pm");
119 #$sess->cqlmap("cql.map");
120 #print STDERR $sess->cql2pqf("job.id <= 5");
121 #print STDERR $sess->cql2pqf("job.id=5 and dc.title=computer");
122 #print STDERR "RES:$res\n";
125 ok(!defined($sess->{zh}), "Zebra handle closed");