[dbsrgits/SQL-Translator.git] / t / 53-oracle-delay-constraints.t

#!/usr/bin/perl
use strict;

use FindBin qw/$Bin/;
use Test::More;
use Test::SQL::Translator;
use Test::Exception;
use Data::Dumper;
use SQL::Translator;
use SQL::Translator::Schema::Constants;

BEGIN {
    maybe_plan(2, 'SQL::Translator::Parser::YAML',
                  'SQL::Translator::Producer::Oracle');
}

my $yamlfile = "$Bin/data/oracle/schema_with_options.yaml";

my $sqlt;
$sqlt = SQL::Translator->new(
    show_warnings  => 0,
    add_drop_table => 0,
    producer_args  => { 'delay_constraints' => 1 }
);

my $sql_string = $sqlt->translate(
    from     => 'YAML',
    to       => 'Oracle',
    filename => $yamlfile,
);

ok($sql_string, 'Translation successfull');
ok($sql_string =~ /ADD CONSTRAINT pk_d_operator PRIMARY KEY/, 'constraints delayed');
Commit	Line	Data
65ffb46c	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	);
	25
	26	my $sql_string = $sqlt->translate(
	27	from => 'YAML',
	28	to => 'Oracle',
	29	filename => $yamlfile,
	30	);
	31
65ffb46c	32	ok($sql_string, 'Translation successfull');
4157d61c	33	ok($sql_string =~ /ADD CONSTRAINT pk_d_operator PRIMARY KEY/, 'constraints delayed');