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, |
1ced2a25 |
23 | producer_args => { 'delay_constraints' => 1 }, |
24 | quote_table_names => 0, |
25 | quote_field_names => 0, |
65ffb46c |
26 | ); |
27 | |
28 | my $sql_string = $sqlt->translate( |
29 | from => 'YAML', |
30 | to => 'Oracle', |
31 | filename => $yamlfile, |
32 | ); |
33 | |
65ffb46c |
34 | ok($sql_string, 'Translation successfull'); |
4157d61c |
35 | ok($sql_string =~ /ADD CONSTRAINT pk_d_operator PRIMARY KEY/, 'constraints delayed'); |