[Bast-commits] r9329 - DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-05-07 17:28:26 +0100 (Fri, 07 May 2010)
New Revision: 9329

Modified:
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/02ddl.t
Log:
Trap erroneous warnings

Modified: DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/02ddl.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/02ddl.t	2010-05-07 16:16:28 UTC (rev 9328)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/02ddl.t	2010-05-07 16:28:26 UTC (rev 9329)
@@ -28,6 +28,7 @@
   no_populate=>1,
   sqlite_use_file  => 1,
 );
+
 { # create the schema
 
 #  make sure we are  clean
@@ -42,7 +43,10 @@
 isa_ok ($admin, 'DBIx::Class::Admin', 'create the admin object');
 lives_ok { $admin->create('MySQL'); } 'Can create MySQL sql';
 lives_ok { $admin->create('SQLite'); } 'Can Create SQLite sql';
-lives_ok { $admin->deploy() } 'Can Deploy schema';
+lives_ok {
+  $SIG{__WARN__} = sub { warn @_ unless $_[0] =~ /no such table.+DROP TABLE/s };
+  $admin->deploy()
+} 'Can Deploy schema';
 }
 
 { # upgrade schema