[Bast-commits] r7225 - DBIx-Class/0.08/branches/reduce_pings/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-05 10:36:01 +0000 (Wed, 05 Aug 2009)
New Revision: 7225

Modified:
   DBIx-Class/0.08/branches/reduce_pings/t/92storage_ping_count.t
Log:
We do not count pings during deploy - they are expected

Modified: DBIx-Class/0.08/branches/reduce_pings/t/92storage_ping_count.t
===================================================================
--- DBIx-Class/0.08/branches/reduce_pings/t/92storage_ping_count.t	2009-08-05 10:32:09 UTC (rev 7224)
+++ DBIx-Class/0.08/branches/reduce_pings/t/92storage_ping_count.t	2009-08-05 10:36:01 UTC (rev 7225)
@@ -11,6 +11,8 @@
 
 my $ping_count = 0;
 
+my $schema = DBICTest->init_schema();
+
 {
   local $SIG{__WARN__} = sub {};
   require DBIx::Class::Storage::DBI;
@@ -23,8 +25,6 @@
   };
 }
 
-my $schema = DBICTest->init_schema();
-
 my $orig_debug = $schema->storage->debug;
 
 use IO::File;