2 # =============================================================================
3 # $Id: 01_base.t,v 1.2 2003-03-04 19:33:53 pop Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests=>9;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
23 IDZebra::logFile("test.log");
24 use_ok('IDZebra::Session');
29 # ----------------------------------------------------------------------------
30 # Session opening and closing
31 my $sess = IDZebra::Session->new(configFile => 'demo/zebra.cfg');
32 isa_ok($sess,"IDZebra::Session");
35 ok(defined($sess->{zh}), "Zebra handle opened");
38 ok(!defined($sess->{zh}), "Zebra handle closed");
40 $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
41 groupName => 'demo1');
42 isa_ok($sess,"IDZebra::Session");
43 ok(defined($sess->{zh}), "Zebra handle opened");
45 # ----------------------------------------------------------------------------
47 ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
49 $sess->group(groupName => 'demo2');
51 ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
53 # ----------------------------------------------------------------------------