From: Justin Hunter Date: Wed, 30 Sep 2009 18:51:36 +0000 (-0700) Subject: initial xml test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f3b7c4e95ac9a477a0a6131e5c8c1671a0cafc4;p=dbsrgits%2FSQL-Translator-2.0-ish.git initial xml test --- diff --git a/t/16xml-parser.t b/t/16xml-parser.t new file mode 100644 index 0000000..05145c6 --- /dev/null +++ b/t/16xml-parser.t @@ -0,0 +1,255 @@ +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::Constants qw(:sqlt_types :sqlt_constants); +use Test::SQL::Translator qw(schema_ok); + +# Simple options. -d for debug +my %opt; +BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; } +use constant DEBUG => (exists $opt{d} ? 1 : 0); + + +# Testing 1,2,3,4... +#============================================================================= + +#BEGIN { +# maybe_plan(212, 'SQL::Translator::Parser::XML::SQLFairy'); +#} + +my $testschema = "$Bin/data/xml/schema.xml"; +open (my $testschema_fh, '<', $testschema) or die "$testschema: $!"; + +my $sqlt; +$sqlt = SQL::Translator->new({ + debug => DEBUG, + show_warnings => 1, + add_drop_table => 1, +}); +die "Can't find test schema $testschema" unless -e $testschema; + +my $sql; +{ + my @w; + local $SIG{__WARN__} = sub { push @w, $_[0] if $_[0] =~ /The database_event tag is deprecated - please use database_events/ }; + + $sql = $sqlt->translate( + parser => 'XML', + producer => 'MySQL', + data => do { local $/; <$testschema_fh> }, + ) or die $sqlt->error; + print $sql if DEBUG; + + ok (@w, 'database_event deprecation warning issued'); +} + +# Test the schema objs generted from the XML +# +my $scma = $sqlt->schema; + +# Hmmm, when using schema_ok the field test data gets a bit too nested and +# fiddly to work with. (See 28xml-xmi-parser-sqlfairy.t for more a split out +# version) +schema_ok( $scma, { + tables => [ + { + name => "Basic", + options => [ { ENGINE => 'InnoDB' } ], + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + fields => [ + { + name => "id", + data_type => "int", + default_value => undef, + is_nullable => 0, + size => 10, + is_primary_key => 1, + is_auto_increment => 1, + extra => { ZEROFILL => 1 }, + }, + { + name => "title", + data_type => "varchar", + is_nullable => 0, + default_value => "hello", + size => 100, + }, + { + name => "description", + data_type => "text", + is_nullable => 1, + default_value => "", + }, + { + name => "email", + data_type => "varchar", + size => 500, + is_unique => 1, + default_value => undef, + is_nullable => 1, + extra => { + foo => "bar", + hello => "world", + bar => "baz", + } + }, + { + name => "explicitnulldef", + data_type => "varchar", + default_value => undef, + is_nullable => 1, + size => 255, + }, + { + name => "explicitemptystring", + data_type => "varchar", + default_value => "", + is_nullable => 1, + size => 255, + }, + { + name => "emptytagdef", + data_type => "varchar", + default_value => "", + is_nullable => 1, + comments => "Hello emptytagdef", + size => 255, + }, + { + name => "another_id", + data_type => "int", + size => "10", + default_value => 2, + is_nullable => 1, + is_foreign_key => 1, + }, + { + name => "timest", + data_type => "timestamp", + size => "0", + is_nullable => 1, + }, + ], + constraints => [ + { + type => PRIMARY_KEY, + fields => ["id"], + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + }, + { + name => 'emailuniqueindex', + type => UNIQUE, + fields => ["email"], + }, + { + type => FOREIGN_KEY, + fields => ["another_id"], + reference_table => "Another", + reference_fields => ["id"], + name => 'Basic_fk' + }, + ], + indices => [ + { + name => "titleindex", + fields => ["title"], + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + }, + ], + }, # end table Basic + { + name => "Another", + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + options => [ { ENGINE => 'InnoDB' } ], + fields => [ + { + name => "id", + data_type => "int", + default_value => undef, + is_nullable => 0, + size => 10, + is_primary_key => 1, + is_auto_increment => 1, + }, + ], + }, # end table Another + ], # end tables + + views => [ + { + name => 'email_list', + sql => "SELECT email FROM Basic WHERE (email IS NOT NULL)", + fields => ['email'], + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + }, + ], + + triggers => [ + { + name => 'foo_trigger', + perform_action_when => 'after', + database_events => 'insert', + on_table => 'Basic', + action => 'update modified=timestamp();', + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + }, + { + name => 'bar_trigger', + perform_action_when => 'before', + database_events => 'insert,update', + on_table => 'Basic', + action => 'update modified2=timestamp();', + extra => { + hello => "aliens", + }, + }, + ], + + procedures => [ + { + name => 'foo_proc', + sql => 'select foo from bar', + parameters => ['foo', 'bar'], + owner => 'Nomar', + comments => 'Go Sox!', + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + }, + ], + +}); # end schema + +done_testing; diff --git a/t/data/xml/samefield.xml b/t/data/xml/samefield.xml new file mode 100644 index 0000000..3d75202 --- /dev/null +++ b/t/data/xml/samefield.xml @@ -0,0 +1,31 @@ + + + + + + + + + +
+ + + + +
+ + + + diff --git a/t/data/xml/schema.xml b/t/data/xml/schema.xml new file mode 100644 index 0000000..9949637 --- /dev/null +++ b/t/data/xml/schema.xml @@ -0,0 +1,115 @@ + + + + + + + + + + + + + + + + + + + Hello emptytagdef + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + +
+ + + + + SELECT email FROM Basic WHERE (email IS NOT NULL) + + + + + + + update modified=timestamp(); + + + + update modified2=timestamp(); + + + + + + + select foo from bar + Go Sox! + + + + +