2 # =============================================================================
3 # $Id: 01_base.t,v 1.6 2004-07-28 08:15:47 adam Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests=>8;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
24 IDZebra::logFile("test01.log");
25 use_ok('IDZebra::Session');
29 # ----------------------------------------------------------------------------
31 mkdir ("demo/tmp", 0750);
32 mkdir ("demo/lock", 0750);
33 mkdir ("demo/register", 0750);
34 mkdir ("demo/shadow", 0750);
36 # ----------------------------------------------------------------------------
37 # Session opening and closing
38 my $sess = IDZebra::Session->new(configFile => 'demo/zebra.cfg');
39 isa_ok($sess,"IDZebra::Session");
42 ok(defined($sess->{zh}), "Zebra handle opened");
45 ok(!defined($sess->{zh}), "Zebra handle closed");
47 $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
48 groupName => 'demo1');
49 isa_ok($sess,"IDZebra::Session");
50 ok(defined($sess->{zh}), "Zebra handle opened");
52 # ----------------------------------------------------------------------------
53 # Record group tests deleted
54 # ADAM: we cant do this anymore!
55 #ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
57 #$sess->group(groupName => 'demo2');
59 #ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
61 # ---------------------------------------------------------------------------
63 $sess->begin_trans(TRANS_RO);
64 eval {$sess->begin_trans(TRANS_RW);};
70 # ----------------------------------------------------------------------------