my ($got, $expect, $msg) = (@_, "XML looks right");
$got =~ s/^ +//gm;
$expect =~ s/^ +//gm;
- eq_or_diff $got, $expect, $msg;
+ eq_or_diff $got, $expect, $msg, { context => 1 };
}
#
</tables>
<views></views>
<triggers>
- <trigger name="foo_trigger" database_events="insert" on_table="Basic" perform_action_when="after" order="1">
+ <trigger name="foo_trigger" database_events="insert" on_table="Basic" perform_action_when="after" order="1" scope="row">
<action>update modified=timestamp();</action>
<extra hello="world" />
</trigger>
database_events => [$database_event],
table => $table,
action => $action,
+ scope => 'row',
extra => { hello => "world" },
) or die $s->error;