X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F73oracle_inflate.t;h=20e70890251283073135682fef50ac80daffc6e2;hb=f623c6ee5de411b8a231abf80f65b33a117878a3;hp=76085e66aa9a56f1cd810a7561f250c09bbc2d37;hpb=8f7e044cb8cdcb2c644e53b86e3a520754ae790e;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/73oracle_inflate.t b/t/73oracle_inflate.t
index 76085e6..20e7089 100644
--- a/t/73oracle_inflate.t
+++ b/t/73oracle_inflate.t
@@ -7,16 +7,18 @@ use DBICTest;
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_ORA_${_}" } qw/DSN USER PASS/};
 
-eval "use DateTime; use DateTime::Format::Oracle;";
-if ($@) {
-    plan skip_all => 'needs DateTime and DateTime::Format::Oracle for testing';
-}
-elsif (not ($dsn && $user && $pass)) {
+if (not ($dsn && $user && $pass)) {
     plan skip_all => 'Set $ENV{DBICTEST_ORA_DSN}, _USER and _PASS to run this test. ' .
          'Warning: This test drops and creates a table called \'track\'';
 }
 else {
-    plan tests => 4;
+    eval "use DateTime; use DateTime::Format::Oracle;";
+    if ($@) {
+        plan skip_all => 'needs DateTime and DateTime::Format::Oracle for testing';
+    }
+    else {
+        plan tests => 4;
+    }
 }
 
 # DateTime::Format::Oracle needs this set
@@ -54,9 +56,6 @@ is( $track->last_updated_on->month, $dt->month, "deflate ok");
 
 # clean up our mess
 END {
-    # Set the metadata back for the last_updated_on column
-    $schema->class('Track')->add_column( 'last_updated_on' => $col_metadata );
-
     if($dbh) {
         $dbh->do("DROP TABLE track");
     }