X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F54-oracle-alter-field.t;h=5f736ccffede29c9da40c7e8327075053a798be8;hb=edc7ae1776a44b7530eb016b04ba038d37d10eb0;hp=8619fc318d14bd8bdfb8f988fa1b1d14612016d3;hpb=9556363fc278ad4ca346d8edd5d116427e3741bf;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/54-oracle-alter-field.t b/t/54-oracle-alter-field.t
index 8619fc3..5f736cc 100644
--- a/t/54-oracle-alter-field.t
+++ b/t/54-oracle-alter-field.t
@@ -9,7 +9,7 @@ use SQL::Translator;
 use SQL::Translator::Diff;
 
 BEGIN {
-    maybe_plan(2, 'SQL::Translator::Parser::YAML',
+    maybe_plan(3, 'SQL::Translator::Parser::YAML',
                   'SQL::Translator::Producer::Oracle');
 }
 
@@ -38,6 +38,7 @@ $t->parser->($t,$yaml2);
 my $d = SQL::Translator::Diff->new
   ({
     output_db => 'Oracle',
+    target_db => 'Oracle',
     source_schema => $s->schema,
     target_schema => $t->schema,
    });
@@ -46,5 +47,7 @@ my $d = SQL::Translator::Diff->new
 my $diff = $d->compute_differences->produce_diff_sql || die $d->error;
 
 ok($diff, 'Diff generated.');
-like($diff, '/ALTER TABLE d_operator CHANGE COLUMN \( name nvarchar2\(10\) \)/',
+like($diff, '/ALTER TABLE d_operator MODIFY \( name nvarchar2\(10\) \)/',
+     'Alter table generated.');
+like($diff, '/ALTER TABLE d_operator MODIFY \( other nvarchar2\(10\) NOT NULL \)/',
      'Alter table generated.');