bin/validator_test.pl

   1 #!/usr/local/bin/perl
   2
   3 use SQL::Translator::Validator;
   4 my $data = {
   5     random => {
   6         type => undef,
   7         indices => [ ],
   8         fields => {
   9             id => {
  10                 name => "id",
  11                 data_type => "int",
  12                 size => 11,
  13                 order => 1,
  14                 null => 0,
  15                 default => 1
  16             },
  17             seed => {
  18                 name => "seed",
  19                 data_type => "char",
  20                 size => 32,
  21                 order => 2,
  22                 null => 0,
  23                 default => 1
  24             },
  25
  26         }
  27     },
  28     session => {
  29         type => "HEAP",
  30         indices => [
  31             {
  32                 name => undef,
  33                 primary_key => 1,
  34                 fields => [ "id" ],
  35             }
  36         ],
  37         fields => {
  38             id => {
  39                 name => "id",
  40                 data_type => "int",
  41                 size => 11,
  42                 order => 2,
  43                 null => 0,
  44                 default => 1
  45             },
  46             foo => {
  47                 name => "foo",
  48                 data_type => "char",
  49                 size => 255,
  50                 order => 1,
  51                 null => 1
  52             },
  53         }
  54     }
  55 };
  56
  57 use SQL::Translator;
  58
  59 my $tr = SQL::Translator->new(parser => "MySQL");
  60
  61 #$data = $tr->translate("t/data/mysql/BGEP-RE-create.sql");
  62
  63 my @r = validate($data);
  64
  65 printf "%s%s", $r[1], $r[0]? "" : "\n";