X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F17sqlfxml-producer.t;h=e9096735cdc7bb1845057d4963bbad86b5784b5b;hb=9768b204bf349afdbcf278f5fc06eb5077eb4aef;hp=21949ae2a8d44e15e3037f3b3bc3447181aec4d5;hpb=a4fb1ddcc7c3257b7a8eafce20cbfef9fbd1332a;p=dbsrgits%2FSQL-Translator.git diff --git a/t/17sqlfxml-producer.t b/t/17sqlfxml-producer.t index 21949ae..e909673 100644 --- a/t/17sqlfxml-producer.t +++ b/t/17sqlfxml-producer.t @@ -23,7 +23,7 @@ my $file = "$Bin/data/mysql/sqlfxml-producer-basic.sql"; local $SIG{__WARN__} = sub { CORE::warn(@_) - unless $_[0] =~ m#XML/Writer#; + unless $_[0] =~ m!XML/Writer!; }; # Testing 1,2,3,4... @@ -171,10 +171,18 @@ my ($obj,$ans,$xml); $ans = < - + + + + + + + +
+
- + update modified=timestamp(); @@ -195,13 +203,13 @@ EOXML my $name = 'foo_trigger'; my $perform_action_when = 'after'; my $database_event = 'insert'; - my $on_table = 'foo'; my $action = 'update modified=timestamp();'; + my $table = $s->add_table( name => "Basic" ) or die $s->error; my $t = $s->add_trigger( name => $name, perform_action_when => $perform_action_when, - database_event => $database_event, - on_table => $on_table, + database_events => [$database_event], + table => $table, action => $action, extra => { hello => "world" }, ) or die $s->error; @@ -282,7 +290,7 @@ $ans = < - +