implements options in oracle indexes

[dbsrgits/SQL-Translator.git] / t / 52-oracle-options.t

diff --git a/t/52-oracle-options.t b/t/52-oracle-options.t
new file mode 100644 (file)
index 0000000..d93de6e
--- /dev/null
+++ b/t/52-oracle-options.t
@@ -0,0 +1,34 @@
+#!/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,
+);
+
+warn $sql_string;
+ok($sql_string, 'Translation successfull');
+ok($sql_string =~ /TABLESPACE\s+DATA/, 'Table options');
+ok($sql_string =~ /TABLESPACE\s+INDX/, 'Index options');