Fix bug in YAML test

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Diff.pm

diff --git a/lib/SQL/Translator/Diff.pm b/lib/SQL/Translator/Diff.pm
index eb70090..3f421e8 100644 (file)
--- a/lib/SQL/Translator/Diff.pm
+++ b/lib/SQL/Translator/Diff.pm
@@ -254,6 +254,8 @@ END
         }
       CONSTRAINT2:
         for my $c_src ( $src_table->get_constraints ) {
+          next if $source_db =~ /Oracle/ && 
+            $c_src->type eq UNIQUE && $c_src->name =~ /^SYS_/i;
           next if $checked_constraints{$c_src};
           for my $c_tar ( $tar_table->get_constraints ) {
                        next CONSTRAINT2 if $c_src->equals($c_tar, $case_insensitive);
@@ -308,6 +310,9 @@ END
     push(@diffs, @diffs_at_end);
 
     if ( @diffs ) {
+       if ( $target_db !~ /^(MySQL|SQLServer|Oracle)$/ ) {
+               unshift(@diffs, "-- Target database $target_db is untested/unsupported!!!");
+       }
         return join( "\n", 
                   "-- Convert schema '$src_name' to '$tar_name':\n", @diffs, "\n"
                 );