1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/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(3, '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,
);
my $sql_string = $sqlt->translate(
from => 'YAML',
to => 'Oracle',
filename => $yamlfile,
);
ok($sql_string, 'Translation successfull');
ok($sql_string =~ /TABLESPACE\s+DATA/, 'Table options');
ok($sql_string =~ /TABLESPACE\s+INDX/, 'Index options');
|
