2 # =============================================================================
3 # $Id: 01_base.t,v 1.5 2003-03-05 14:15:07 pop Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests=>10;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
23 IDZebra::logFile("test.log");
24 use_ok('IDZebra::Session');
28 # ----------------------------------------------------------------------------
30 mkdir ("demo/tmp", 0750);
31 mkdir ("demo/lock", 0750);
32 mkdir ("demo/register", 0750);
33 mkdir ("demo/shadow", 0750);
35 # ----------------------------------------------------------------------------
36 # Session opening and closing
37 my $sess = IDZebra::Session->new(configFile => 'demo/zebra.cfg');
38 isa_ok($sess,"IDZebra::Session");
41 ok(defined($sess->{zh}), "Zebra handle opened");
44 ok(!defined($sess->{zh}), "Zebra handle closed");
46 $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
47 groupName => 'demo1');
48 isa_ok($sess,"IDZebra::Session");
49 ok(defined($sess->{zh}), "Zebra handle opened");
51 # ----------------------------------------------------------------------------
53 ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
55 $sess->group(groupName => 'demo2');
57 ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
59 # ---------------------------------------------------------------------------
61 $sess->begin_trans(TRANS_RO);
62 eval {$sess->begin_trans(TRANS_RW);};
70 # ----------------------------------------------------------------------------