+ok(($stat->{inserted} == 0), "not inserted");
+ok(($stat->{updated} == 1), "updated ok");
+$sess->commit;
+
+$sess->begin_trans;
+#print STDERR "\nAbout to call delete. sysno=$sysno \n"; #!!!
+($ret,$sysno) = $sess->delete_record( data => $rec3,
+ sysno => $sysno,
+ recordType => 'grs.perl.pod',
+ );
+ok(($ret == 0),"delete record ok");