+$sess->begin_trans;
+$sysno = $sess->update_record(data => $rec2,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ );
+
+$sysno = $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");
+
+$sess->begin_trans;
+$sysno = $sess->delete_record(data => $rec3,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ );
+$stat = $sess->end_trans;
+
+
+$sess->begin_trans;
+$sysno = $sess->update_record(data => $rec2,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ );
+
+foreach my $i (1..100) {
+ $sysno = $sess->update_record(data => $rec2,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ force => 1,
+ );
+}
+foreach my $i (1..10) {
+ $sysno = $sess->update_record(data => $rec3,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ force => 1,
+ );
+}
+foreach my $i (1..10) {
+ $sysno = $sess->update_record(data => $rec2,
+ recordType => 'grs.perl.pod',
+ groupName => "demo1",
+ force => 1,
+ );
+}
+
+
+$stat = $sess->end_trans;
+ok(($stat->{inserted} == 1), "Inserted $stat->{inserted} records");
+ok(($stat->{updated} == 120), "Updated $stat->{updated} records");
+ok(($sysno > 0),"Inserted got valid sysno");