[Bast-commits] r5402 - DBIx-Class/0.08/branches/stopgap/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-02 20:30:53 +0000 (Mon, 02 Feb 2009)
New Revision: 5402

Modified:
   DBIx-Class/0.08/branches/stopgap/t/745db2.t
Log:
Fix db2 test

Modified: DBIx-Class/0.08/branches/stopgap/t/745db2.t
===================================================================
--- DBIx-Class/0.08/branches/stopgap/t/745db2.t	2009-02-02 18:14:14 UTC (rev 5401)
+++ DBIx-Class/0.08/branches/stopgap/t/745db2.t	2009-02-02 20:30:53 UTC (rev 5402)
@@ -18,7 +18,7 @@
 
 my $dbh = $schema->storage->dbh;
 
-$dbh->do("DROP TABLE artist", { RaiseError => 0, PrintError => 0 });
+eval { $dbh->do("DROP TABLE artist") };
 
 $dbh->do("CREATE TABLE artist (artistid INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 1, INCREMENT BY 1), name VARCHAR(255), charfield CHAR(10));");