Merge 'trunk' into 'roundtrip'
[dbsrgits/SQL-Translator.git] / t / 54-oracle-alter-field.t
index 8619fc3..5f736cc 100644 (file)
@@ -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.');