Add author test for whitespace errors and make whitespace more consistent

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / backcompat / 0.04006 / 22dump.t

diff --git a/t/backcompat/0.04006/22dump.t b/t/backcompat/0.04006/22dump.t
index fa1a2da..cf757ef 100644 (file)
--- a/t/backcompat/0.04006/22dump.t
+++ b/t/backcompat/0.04006/22dump.t
@@ -43,23 +43,23 @@ ok(!$@, 'no death with dump_directory set') or diag "Dump failed: $@";
 DBICTest::Schema::1->_loader_invoked(undef);
 
 SKIP: {
-  my @warnings_regexes = (
-      qr|Dumping manual schema|,
-      qr|Schema dump completed|,
-  );
+    my @warnings_regexes = (
+        qr|Dumping manual schema|,
+        qr|Schema dump completed|,
+    );
 
-  skip "ActiveState perl produces additional warnings", scalar @warnings_regexes
-    if ($^O eq 'MSWin32');
+    skip "ActiveState perl produces additional warnings", scalar @warnings_regexes
+        if ($^O eq 'MSWin32');
 
-  my @warn_output;
-  {
-      local $SIG{__WARN__} = sub { push(@warn_output, @_) };
-      DBICTest::Schema::1->connect($make_dbictest_db::dsn);
-  }
+    my @warn_output;
+    {
+        local $SIG{__WARN__} = sub { push(@warn_output, @_) };
+        DBICTest::Schema::1->connect($make_dbictest_db::dsn);
+    }
 
-  like(shift @warn_output, $_) foreach (@warnings_regexes);
+    like(shift @warn_output, $_) foreach (@warnings_regexes);
 
-  rmtree($dump_path, 1, 1);
+    rmtree($dump_path, 1, 1);
 }
 
 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };