#!perl
# =============================================================================
-# $Id: 03_record_update.t,v 1.5 2003-04-15 20:56:33 pop Exp $
+# $Id: 03_record_update.t,v 1.7 2004-07-28 08:15:47 adam Exp $
#
# Perl API header
# =============================================================================
use strict;
use warnings;
-use Test::More tests => 17;
+use Test::More tests => 18;
# ----------------------------------------------------------------------------
# Session opening and closing
BEGIN {
use_ok('IDZebra');
- IDZebra::logFile("test.log");
+ unlink("test03.log");
+ IDZebra::logFile("test03.log");
use_ok('IDZebra::Session');
use_ok('pod');
}
my ($sysno, $stat);
+# ADAM: we must set database separately (can't be set from group)
+$sess->databases('demo1');
$sess->begin_trans;
$sysno = $sess->update_record(data => $rec1,
recordType => 'grs.perl.pod',
$sess->begin_trans;
-$sysno = $sess->update_record(data => $rec2,
- recordType => 'grs.perl.pod',
- groupName => "demo1",
- );
+my $sysno1 = $sess->update_record(data => $rec2,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ );
-$sysno = $sess->update_record(data => $rec2,
- recordType => 'grs.perl.pod',
- groupName => "demo1",
- );
+my $sysno2 = $sess->update_record(data => $rec2,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ );
$stat = $sess->end_trans;
ok(($stat->{inserted} == 0), "Inserted 0 records");
ok(($stat->{updated} == 1), "Updated $stat->{updated} records");
-ok(($sysno > 0),"Inserted got valid sysno");
+ok(($sysno1 > 0),"Updated record got valid sysno");
+ok(($sysno2 < 0),"Unupdated record got invalid sysno");
$sess->begin_trans;
$sysno = $sess->delete_record(data => $rec3,