Fixed spelling of "indices" in various files, finished adding all of Tim

[dbsrgits/SQL-Translator.git] / bin / validator_test.pl

#!/usr/local/bin/perl

use SQL::Translator::Validator;
my $data = {
    random => {
        type => undef,
        indices => [ ],
        fields => {
            id => {
                name => "id",
                data_type => "int",
                size => 11,
                order => 1,
                null => 0,
                default => 1
            },
            seed => {
                name => "seed",
                data_type => "char",
                size => 32,
                order => 2,
                null => 0,
                default => 1
            },

        }
    },
    session => {
        type => "HEAP",
        indices => [
            {
                name => undef,
                primary_key => 1,
                fields => [ "id" ],
            }
        ],
        fields => {
            id => {
                name => "id",
                data_type => "int",
                size => 11,
                order => 2,
                null => 0,
                default => 1
            },
            foo => {
                name => "foo",
                data_type => "char",
                size => 255,
                order => 1,
                null => 1
            },
        }
    }
};

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";