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');
18 #Zebra::API::LogFile("a.log");
25 my $service = IDZebra::Service->start('zebra.cfg');
26 my $sess = $service->openSession;
27 #my $sess = $service->createSession;
29 #my $session = IDZebra::open($service);
30 #IDZebra::close($session);
31 #IDZebra::stop($service);
34 my $rec1=`cat ../lib/IDZebra/Data1.pm`;
35 my $rec2=`cat ../lib/IDZebra/Filter.pm`;
37 #$sess->Repository->readConfig;
38 $sess->Repository->readConfig("","pm");
42 #$sess->Repository->update(databaseName => 'Default',
43 # path => '/usr/local/work/cvs/zebra/perl/lib');
44 my $s1 = $sess->Repository->update_record($rec1,0,"","Data1.pm");
45 my $s2 = $sess->Repository->update_record($rec2,0,"","Filter.pm");
46 print STDERR "s1:$s1, s2:$s2\n";
50 #$sess->Repository->delete_record($rec1,0,"","Data1.pm");
53 $sess->select_databases('Default');
55 print STDERR "Hits:", $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_1'), "\n";
56 print STDERR "Hits:", $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_1'), "\n";
57 print STDERR "Hits:", $sess->search_pqf('@or @attr 1=4 Filter @attr 1=4 Data1','test_1'), "\n";
61 #IDZebra::describe_recordGroup($rep->{rg});
63 # print "HOW did we got back???\n";
68 #$rep->{groupName} = "Strucc";
72 $m = IDZebra::nmem_create();
73 my $d1=IDZebra::Data1->new($m,$IDZebra::DATA1_FLAG_XML);
74 my $root=$d1->mk_root('strucc');
75 my $tag1 = $d1->mk_tag($root,'emu',('asd' => 1,
77 my $tag2 = $d1->mk_tag($root,'emu');
79 IDZebra::nmem_destroy($m);