t/52-oracle-options.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(3, '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 );
  24
  25 my $sql_string = $sqlt->translate(
  26     from     => 'YAML',
  27     to       => 'Oracle',
  28     filename => $yamlfile,
  29 );
  30
  31 ok($sql_string, 'Translation successfull');
  32 ok($sql_string =~ /TABLESPACE\s+DATA/, 'Table options');
  33 ok($sql_string =~ /TABLESPACE\s+INDX/, 'Index options');