[Bast-commits] r4261 - in branches/DBIx-Class-Schema-Loader/current: . t/lib

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2008-04-13 03:02:22 +0100 (Sun, 13 Apr 2008)
New Revision: 4261

Modified:
   branches/DBIx-Class-Schema-Loader/current/Changes
   branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
Log:
Fix test failure for non-InnoDB MySQL due to wrong skip count

Modified: branches/DBIx-Class-Schema-Loader/current/Changes
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/Changes	2008-04-13 00:48:53 UTC (rev 4260)
+++ branches/DBIx-Class-Schema-Loader/current/Changes	2008-04-13 02:02:22 UTC (rev 4261)
@@ -7,6 +7,7 @@
           storage_type-based detection
         - Cosmetic fixes to dumping of externally defined classes
         - Make ResultSetManager notice externally defined :ResultSet methods
+        - Fix test failure for non-InnoDB MySQL due to wrong skip count
 
 0.04999_04 Wed Mar 12, 2008
         - Add is_auto_increment detecton for DB2

Modified: branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2008-04-13 00:48:53 UTC (rev 4260)
+++ branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2008-04-13 02:02:22 UTC (rev 4261)
@@ -595,7 +595,7 @@
 
     # rescan test
     SKIP: {
-        skip $self->{skip_rels}, 5 if $self->{skip_rels};
+        skip $self->{skip_rels}, 4 if $self->{skip_rels};
 
         my @statements_rescan = (
             qq{