my $data = {
random => {
type => undef,
- indeces => [ ],
+ indices => [ ],
fields => {
id => {
name => "id",
},
session => {
type => "HEAP",
- indeces => [
+ indices => [
{
- name => "main_idx",
+ name => undef,
primary_key => 1,
fields => [ "id" ],
}
}
};
-use SQL::Translator;
-
-my $tr = SQL::Translator->new(parser => "MySQL");
-
-$data = $tr->translate("t/data/mysql/BGEP-RE-create.sql");
-
my @r = validate($data);
-
printf "%s%s", $r[1], $r[0]? "" : "\n";