- push (@INC,'demo','blib/lib','blib/arch');
+ unshift (@INC,'demo','blib/lib','blib/arch');
# ----------------------------------------------------------------------------
# Session opening and closing
BEGIN {
use_ok('IDZebra');
# ----------------------------------------------------------------------------
# Session opening and closing
BEGIN {
use_ok('IDZebra');
# ----------------------------------------------------------------------------
# Session opening and closing
my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
# ----------------------------------------------------------------------------
# Session opening and closing
my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
isa_ok($sess,"IDZebra::Session");
# ----------------------------------------------------------------------------
# per record update
my $rec1=`cat lib/IDZebra/Data1.pm`;
my $rec2=`cat lib/IDZebra/Filter.pm`;
isa_ok($sess,"IDZebra::Session");
# ----------------------------------------------------------------------------
# per record update
my $rec1=`cat lib/IDZebra/Data1.pm`;
my $rec2=`cat lib/IDZebra/Filter.pm`;
$stat = $sess->end_trans;
ok(($stat->{inserted} == 1), "Inserted 1 records");
$stat = $sess->end_trans;
ok(($stat->{inserted} == 1), "Inserted 1 records");