X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBIC%2FTest.pm;fp=t%2Flib%2FDBIC%2FTest.pm;h=6fa93c936a7d92af965a0e20b9b09e28e0498f82;hb=7edcccc1b8f7253f2c2ebce838dcdc20ea8246db;hp=e34e705ede49031cb13fa46b67c17fd66f93e448;hpb=61455cd93c898b25aa565c8de3e2b0e0f6b28867;p=dbsrgits%2FDBIx-Class-UUIDColumns.git

diff --git a/t/lib/DBIC/Test.pm b/t/lib/DBIC/Test.pm
index e34e705..6fa93c9 100644
--- a/t/lib/DBIC/Test.pm
+++ b/t/lib/DBIC/Test.pm
@@ -60,25 +60,15 @@ sub deploy_schema {
     my ($self, $schema, %options) = @_;
     my $eval = $options{'eval_deploy'};
 
-    eval 'use SQL::Translator';
-    if (!$@ && !$options{'no_deploy'}) {
-        eval {
-            $schema->deploy();
-        };
-        if ($@ && !$eval) {
-            die $@;
-        };
-    } else {
-        open IN, catfile('t', 'sql', 'test.sqlite.sql');
-        my $sql;
-        { local $/ = undef; $sql = <IN>; }
-        close IN;
-        eval {
-            ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
-        };
-        if ($@ && !$eval) {
-            die $@;
-        };
+    open IN, catfile('t', 'sql', 'test.sqlite.sql');
+    my $sql;
+    { local $/ = undef; $sql = <IN>; }
+    close IN;
+    eval {
+        ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
+    };
+    if ($@ && !$eval) {
+        die $@;
     };
 };