X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03mysql-to-oracle.t;h=5b64c598dfa689de9a92ef5894b987848941d41b;hb=9055d33a95fe33d4f1dab84b45c104d9375f2cd7;hp=7fbe09bef5cc0284ab095177b8f868d869e118a9;hpb=041e659f8750a36d182143f6009f99fe0a8bc698;p=dbsrgits%2FSQL-Translator.git diff --git a/t/03mysql-to-oracle.t b/t/03mysql-to-oracle.t index 7fbe09b..5b64c59 100644 --- a/t/03mysql-to-oracle.t +++ b/t/03mysql-to-oracle.t @@ -10,6 +10,7 @@ my $create = q| CREATE TABLE random ( id int auto_increment PRIMARY KEY, foo varchar(255) not null default '', + bar enum('wibble','wo''bble'), updated timestamp ); CREATE UNIQUE INDEX random_foo_update ON random(foo,updated); @@ -18,14 +19,16 @@ CREATE INDEX random_foo ON random(foo); |; BEGIN { - maybe_plan(3, + maybe_plan(undef, 'SQL::Translator::Parser::MySQL', 'SQL::Translator::Producer::Oracle'); } my $tr = SQL::Translator->new( parser => "MySQL", - producer => "Oracle" + producer => "Oracle", + quote_table_names => 0, + quote_field_names => 0, ); my $output = $tr->translate(\$create); @@ -33,3 +36,6 @@ my $output = $tr->translate(\$create); ok( $output, 'Translate MySQL to Oracle' ); ok( $output =~ /CREATE INDEX random_foo /, 'Normal index definition translated.'); ok( $output =~ /CREATE UNIQUE INDEX random_foo_update /, 'Unique index definition translated.'); +ok( $output =~ /\QCHECK (bar IN ('wibble', 'wo''bble'))\E/, 'Enum translated and escaped.'); + +done_testing;