X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F27filter_generated.t;h=fc768c21e63a9d677c57af04a82735e16062742e;hb=master;hp=20b45f2b21129400c82b228b0d283f98c2127b69;hpb=7dc01f79973f1c9fd78f713b8c5e0d001358cded;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/27filter_generated.t b/t/27filter_generated.t
index 20b45f2..fc768c2 100644
--- a/t/27filter_generated.t
+++ b/t/27filter_generated.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use DBIx::Class::Schema::Loader;
 use DBIx::Class::Schema::Loader::Utils 'slurp_file';
 use File::Path;
@@ -42,12 +43,12 @@ my ($schema_file_count, $result_file_count);
             }
 
             $original_class_data{$class} = $text;
-	    if ($class =~ /::1$/) {
+            if ($class =~ /::1$/) {
                 $text = "No Gotcha!";
-	    }
+            }
             else {
-	        $text .= q{my $foo = "Kilroy was here";};
-	    }
+                $text .= q{my $foo = "Kilroy was here";};
+            }
             return $text;
         },
     );
@@ -59,7 +60,7 @@ my ($schema_file_count, $result_file_count);
     __PACKAGE__->loader_options(
         dump_directory => $dump_path,
         quiet => 1,
-        filter_generated_code => "$^X t/bin/simple_filter",
+        filter_generated_code => qq{"$^X" t/bin/simple_filter},
     );
 }
 
@@ -74,13 +75,13 @@ is $result_file_count, 4,
     'correct number of result files passed to filter';
 
 my $foo = slurp_file "$dump_path/DBICTest/Schema/1/Result/Foo.pm";
-ok(! -e "$dump_path/DBICTest/Schema/1.pm",
-     "No package means no file written");
-ok($original_class_data{"DBICTest::Schema::1"},
-     "Even though we processed the missing class");
-like($foo, qr/# Created by .* THE FIRST PART/s,
-     "We get the whole autogenerated text");
-like($foo, qr/Kilroy was here/, "Can insert text");
+ok ! -e "$dump_path/DBICTest/Schema/1.pm",
+    "No package means no file written";
+ok $original_class_data{"DBICTest::Schema::1"},
+    "Even though we processed the missing class";
+like $foo, qr/# Created by .* THE FIRST PART/s,
+    "We get the whole autogenerated text";
+like $foo, qr/Kilroy was here/, "Can insert text";
 
 DBICTest::Schema::2->connect($make_dbictest_db::dsn);