use Test::More;
+# so we can see the retry exceptions (if any)
+BEGIN { $ENV{DBIC_STORAGE_RETRY_DEBUG} = 1 }
+
use DBIx::Class::Optional::Dependencies ();
use lib qw(t/lib);
# to induce out-of-order destruction
$DBICTest::FakeSchemaFactory::schema = $schema;
- # so we can see the retry exceptions (if any)
- $ENV{DBIC_DBIRETRY_DEBUG} = 1;
-
ok (!$schema->storage->connected, "$type: start disconnected");
$schema->txn_do (sub {