2 # =============================================================================
3 # $Id: 03_record_update.t,v 1.10 2004-09-15 14:11:06 heikki Exp $
6 # =============================================================================
11 unshift (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests => 15;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
24 IDZebra::logFile("test03.log");
25 use_ok('IDZebra::Session');
30 # ----------------------------------------------------------------------------
31 # Session opening and closing
32 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
35 isa_ok($sess,"IDZebra::Session");
37 # ----------------------------------------------------------------------------
39 my $rec1=`cat lib/IDZebra/Data1.pm`;
40 my $rec2=`cat lib/IDZebra/Filter.pm`;
41 my $rec3=`cat lib/IDZebra/Session.pm`;
43 my ($sysno, $stat, $ret);
46 $sess->databases('demo1');
50 ($ret,$sysno) = $sess->insert_record(data => $rec1,
51 recordType => 'grs.perl.pod',
54 ok(($ret == 0),"Must return ret=0 (OK)");
56 $stat = $sess->end_trans;
57 ok(($stat->{inserted} == 1), "Inserted 1 records");
60 ($ret,$sysno) = $sess->insert_record(data => $rec2,
61 recordType => 'grs.perl.pod',
63 ok(($ret == 0),"Insert record ok");
65 $stat = $sess->end_trans;
66 ok(($stat->{inserted} == 1), "Inserted 1 records");
70 ($ret,$sysno) = $sess->update_record(data => $rec3,
71 recordType => 'grs.perl.pod',
75 ok(($ret == 0),"update record ok");
78 $stat = $sess->end_trans;
79 ok(($stat->{inserted} == 0), "not inserted");
80 ok(($stat->{updated} == 1), "updated ok");
84 #print STDERR "\nAbout to call delete. sysno=$sysno \n"; #!!!
85 ($ret,$sysno) = $sess->delete_record( data => $rec3,
87 recordType => 'grs.perl.pod',
89 ok(($ret == 0),"delete record ok");
91 #print STDERR "\nafter delete ret=$ret sysno=$sysno \n"; #!!!
93 $stat = $sess->end_trans;
94 ok(($stat->{inserted} == 0), "not inserted");
95 ok(($stat->{updated} == 0), "updated ok");
96 ok(($stat->{deleted} == 1), "deleted ok");