t/53-oracle-delay-constraints_quoted.t

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 use FindBin qw/$Bin/;
   5 use Test::More;
   6 use Test::SQL::Translator;
   7 use Test::Exception;
   8 use Data::Dumper;
   9 use SQL::Translator;
  10 use SQL::Translator::Schema::Constants;
  11
  12 BEGIN {
  13     maybe_plan(2, 'SQL::Translator::Parser::YAML',
  14                   'SQL::Translator::Producer::Oracle');
  15 }
  16
  17 my $yamlfile = "$Bin/data/oracle/schema_with_options.yaml";
  18
  19 my $sqlt;
  20 $sqlt = SQL::Translator->new(
  21     show_warnings  => 0,
  22     add_drop_table => 0,
  23     producer_args  => { 'delay_constraints' => 1 },
  24     quote_table_names => 1,
  25     quote_field_names => 1,
  26 );
  27
  28 my $sql_string = $sqlt->translate(
  29     from     => 'YAML',
  30     to       => 'Oracle',
  31     filename => $yamlfile,
  32 );
  33
  34 ok($sql_string, 'Translation successfull');
  35 ok($sql_string =~ /ADD CONSTRAINT "pk_d_operator" PRIMARY KEY/, 'constraints delayed');