--- /dev/null
+#!/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,
+);
+
+warn $sql_string;
+ok($sql_string, 'Translation successfull');
+ok($sql_string =~ /ADD PRIMARY KEY/, 'constraints delayed');