4 push (@INC,'demo','blib/lib','blib/arch');
9 use Test::More tests => 15;
12 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");
37 # ----------------------------------------------------------------------------
40 ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
42 $sess->group(groupName => 'demo2');
44 ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
46 # ----------------------------------------------------------------------------
50 # ----------------------------------------------------------------------------
53 $sess->update(path => 'lib');
54 my $stat = $sess->end_trans;
56 ok(($stat->{inserted} == 6), "Inserted 6 records");
59 $sess->update(groupName => 'demo1',
62 my $stat = $sess->end_trans;
63 ok(($stat->{updated} == 6), "Updated 6 records");
66 $sess->delete(groupName => 'demo1',
68 my $stat = $sess->end_trans;
69 ok(($stat->{deleted} == 6), "Deleted 6 records");
72 $sess->update(groupName => 'demo1',
75 my $stat = $sess->end_trans;
76 ok(($stat->{inserted} == 6), "Inserted 6 records");
78 ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected");
80 # ----------------------------------------------------------------------------
82 my $rec1=`cat lib/IDZebra/Data1.pm`;
83 my $rec2=`cat lib/IDZebra/Filter.pm`;
86 my $s1=$sess->update_record(data => $rec1,
87 recordType => 'grs.perl.pod',
91 #my $s2=$sess->update_record(data => $rec2);
92 # recordType => "grs.perl.pod");
95 #my $s3=$sess->update_record(file => "lib/IDZebra/Data1.pm");
99 my $stat = $sess->end_trans;
100 ok(($stat->{updated} == 1), "Updated 1 records");
102 #$sess->cqlmap("cql.map");
103 #print STDERR $sess->cql2pqf("job.id <= 5");
104 #print STDERR $sess->cql2pqf("job.id=5 and dc.title=computer");
105 #print STDERR "RES:$res\n";
108 ok(!defined($sess->{zh}), "Zebra handle closed");