4 push (@INC,'demo','blib/lib','blib/arch');
6 use Test::More tests => 3;
8 use IDZebra::Logger qw(:flags :calls);
9 use IDZebra::Repository;
14 use_ok('IDZebra::Service');
15 use_ok('IDZebra::Data1');
19 mkdir ("demo/register");
22 #Zebra::API::LogFile("a.log");
25 #my $arr = IDZebra::give_me_array("strucc",6);
29 #for (@arr) {print "$_\n";}
37 my $service = IDZebra::Service->start('zebra.cfg');
38 my $sess = $service->openSession;
39 #my $sess = $service->createSession;
41 #my $session = IDZebra::open($service);
42 #IDZebra::close($session);
43 #IDZebra::stop($service);
46 my $rec1=`cat ../lib/IDZebra/Data1.pm`;
47 my $rec2=`cat ../lib/IDZebra/Filter.pm`;
49 #$sess->Repository->readConfig;
50 $sess->Repository->readConfig("","pm");
54 #$sess->Repository->update(databaseName => 'Default',
55 # path => '/usr/local/work/cvs/zebra/perl/lib');
56 my $s1 = $sess->Repository->update_record($rec1,0,"","Data1.pm");
57 my $s2 = $sess->Repository->update_record($rec2,0,"","Filter.pm");
58 print STDERR "s1:$s1, s2:$s2\n";
62 #$sess->Repository->delete_record($rec1,0,"","Data1.pm");
65 $sess->select_databases('Default');
70 #print STDERR "Hits:", $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_1'), "\n";
71 #print STDERR "Hits:", $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_1'), "\n";
73 my $rs1 = $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_1');
74 print STDERR "Rs1 '$rs1->{name}' has $rs1->{recordCount} hits\n";
76 my $rs2 = $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_2');
77 #print STDERR "Rs2 '$rs2->{name}' has $rs2->{recordCount} hits\n";
79 my $rs3 = $sess->sortResultsets ('1=4 id','test_3',($rs1));
80 #print STDERR "Rs3 '$rs3->{name}' has $rs3->{recordCount} hits\n";
81 #print STDERR "Rs3 '$rs3->{name}' error $rs3->{errCode}: $rs3->{errString}\n";
85 #for ($i=1; $i<100000; $i++) {
86 my @recs1 = $rs1->records(from=>1,to=>2);
88 #my $res=$sess->retrieve_records('test_1',1,1);
93 #IDZebra::describe_recordGroup($rep->{rg});
95 # print "HOW did we got back???\n";
99 my $so = IDZebra::ScanObj->new;
101 $so->{num_entries} = 20;
102 $so->{is_partial} = 0;
103 #print STDERR "Pos:$so->{position}\nNum:$so->{num_entries}\nPartial:$so->{is_partial}\n";
105 IDZebra::scan_PQF($sess->{zh}, $so,
109 #print STDERR "Pos:$so->{position}\nNum:$so->{num_entries}\nPartial:$so->{is_partial}\n";
111 for ($i=1; $i<=$so->{num_entries}; $i++) {
112 my $se = IDZebra::getScanEntry($so, $i);
113 print STDERR "$se->{term} ($se->{occurrences})\n";
119 foreach my $rec (@recs1) {
120 foreach my $line (split (/\n/, $rec->{buf})) {
121 if ($line =~ /^package/) { print STDERR "$line\n";}
125 #$rep->{groupName} = "Strucc";
129 $m = IDZebra::nmem_create();
130 my $d1=IDZebra::Data1->new($m,$IDZebra::DATA1_FLAG_XML);
131 my $root=$d1->mk_root('strucc');
132 my $tag1 = $d1->mk_tag($root,'emu',('asd' => 1,
134 my $tag2 = $d1->mk_tag($root,'emu');
136 IDZebra::nmem_destroy($m);