2 # =============================================================================
3 # $Id: 01_base.t,v 1.3 2003-03-05 00:28:16 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 # ----------------------------------------------------------------------------
32 mkdir ("demo/register");
34 # ----------------------------------------------------------------------------
35 # Session opening and closing
36 my $sess = IDZebra::Session->new(configFile => 'demo/zebra.cfg');
37 isa_ok($sess,"IDZebra::Session");
40 ok(defined($sess->{zh}), "Zebra handle opened");
43 ok(!defined($sess->{zh}), "Zebra handle closed");
45 $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
46 groupName => 'demo1');
47 isa_ok($sess,"IDZebra::Session");
48 ok(defined($sess->{zh}), "Zebra handle opened");
50 # ----------------------------------------------------------------------------
52 ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
54 $sess->group(groupName => 'demo2');
56 ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
58 # ---------------------------------------------------------------------------
61 eval {$sess->begin_trans;};
68 # ----------------------------------------------------------------------------