From: Peter Rabbitson Date: Tue, 28 Apr 2009 07:50:34 +0000 (+0000) Subject: Test seems to be finioshed - massive bowl of FAIL X-Git-Tag: v0.11008~163^2~23 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e0ca612dac951666ff58d5e19709d9d905c0af7;p=dbsrgits%2FSQL-Translator.git Test seems to be finioshed - massive bowl of FAIL --- diff --git a/t/60roundtrip.t b/t/60roundtrip.t index 0a203f0..61923e3 100644 --- a/t/60roundtrip.t +++ b/t/60roundtrip.t @@ -40,6 +40,33 @@ my $plan = [ producer_args => {}, parser_args => {}, }, + { + engine => 'Oracle', + producer_args => {}, + parser_args => {}, + }, + { + engine => 'SQLServer', + producer_args => {}, + parser_args => {}, + }, + { + engine => 'Sybase', + producer_args => {}, + parser_args => {}, + }, + { + engine => 'DB2', + producer_args => {}, + parser_args => {}, + }, + +# There is no Access producer +# { +# engine => 'Access', +# producer_args => {}, +# parser_args => {}, +# }, ]; @@ -49,7 +76,7 @@ my $plan = [ my $base_file = "$Bin/data/xml/schema.xml"; my $base_t = SQL::Translator->new; -$base_t->$_ (1) for qw/validate add_drop_table no_comments/; +$base_t->$_ (1) for qw/add_drop_table no_comments/; my $base_schema = $base_t->translate ( parser => 'XML', @@ -87,7 +114,7 @@ sub check_roundtrip { # parse the sql back my $parser_t = SQL::Translator->new; - $parser_t->$_ (1) for qw/validate add_drop_table no_comments/; + $parser_t->$_ (1) for qw/add_drop_table no_comments/; my $mid_schema = $parser_t->translate ( data => $base_sql, parser => $args->{engine}, @@ -109,7 +136,7 @@ sub check_roundtrip { # Producing a schema with a Translator different from the one the schema was generated # from does not work. This is arguably a bug, 61translator_agnostic.t works with that # my $producer_t = SQL::Translator->new; -# $producer_t->$_ (1) for qw/validate add_drop_table no_comments/; +# $producer_t->$_ (1) for qw/add_drop_table no_comments/; # my $rt_sql = $producer_t->translate ( # data => $mid_schema,