[Bast-commits] r4966 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2008-10-24 14:21:40 +0100 (Fri, 24 Oct 2008)
New Revision: 4966

Modified:
   DBIx-Class/0.08/trunk/t/94versioning.t
Log:
Count warnings differently, as SQLT produces some weird stuff under 5.10. All of this will be fixed after the test refactor

Modified: DBIx-Class/0.08/trunk/t/94versioning.t
===================================================================
--- DBIx-Class/0.08/trunk/t/94versioning.t	2008-10-24 11:43:49 UTC (rev 4965)
+++ DBIx-Class/0.08/trunk/t/94versioning.t	2008-10-24 13:21:40 UTC (rev 4966)
@@ -82,7 +82,14 @@
 
   # should overwrite files and warn about it
   my @w;
-  local $SIG{__WARN__} = sub { push @w, shift };
+  local $SIG{__WARN__} = sub { 
+    if ($_[0] =~ /^Overwriting/) {
+      push @w, $_[0];
+    }
+    else {
+      warn @_;
+    }
+  };
   $schema_upgrade->create_ddl_dir('MySQL', '2.0', $ddl_dir, '1.0');
 
   is (2, @w, 'A warning generated for both the DDL and the diff');