Author: REHSACK
Date: Thu Sep 20 23:46:30 2012
New Revision: 15394
Modified:
dbi/branches/sqlengine/t/49dbd_file.t
Log:
remove debug diag output
Modified: dbi/branches/sqlengine/t/49dbd_file.t
==============================================================================
--- dbi/branches/sqlengine/t/49dbd_file.t (original)
+++ dbi/branches/sqlengine/t/49dbd_file.t Thu Sep 20 23:46:30 2012
@@ -179,17 +179,14 @@
ok ($sth = $dbh->prepare ("insert into $tbl (txt) values (?)"), "prepare
'insert into $tbl'");
is ($sth->execute ("Perl rules"), undef, "insert failed intensionally");
-diag $dbh->errstr;
ok ($sth = $dbh->prepare ("delete from $tbl"), "prepare 'delete from $tbl'");
is ($sth->execute (), undef, "delete failed intensionally");
-diag $dbh->errstr;
is ($dbh->do ("drop table $tbl"), undef, "table drop failed intensionally");
-diag $dbh->errstr;
is (-f $tbl_file, 1, "Test table not removed");
-# ==================== ReadWrite again tests =============================
+# ==================== ReadWrite again tests ======================
ok ($dbh = DBI->connect ("dbi:File:", undef, undef, {
f_ext => ".txt",
f_dir => $dir,
