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
# clean up our mess
END {
- # Set the metadata back for the last_updated_on column
- if( $schema ) {
- $schema->class('Track')
- ->add_column( 'last_updated_on' => $col_metadata );
- }
-
if($dbh) {
$dbh->do("DROP TABLE track");
}