bad-sql-translation.pl

#! /usr/bin/perl
use strict;
use warnings;
use SQL::Translator;
use SQL::Translator::Diff;
use Data::Dumper;
$Data::Dumper::Indent = 1;


my $dest_schema = get_schema(q{
CREATE TABLE `foobar` (
  `id` int(11) NOT NULL auto_increment,
  `name` varchar(25) default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=InnoDB;
});

my $source_schema = get_schema(q{
CREATE TABLE `foobar` (
  `id` integer NOT NULL auto_increment,
  `name` varchar(255) default NULL,
  PRIMARY KEY (`id`)
);
});

my $diff = SQL::Translator::Diff::schema_diff(
    $dest_schema, 'MySQL', $source_schema, 'MySQL');

print $diff;
sub get_schema {
    my $data = shift;

    my $t = SQL::Translator->new();
    $t->parser('MySQL');

    my $out = $t->translate(\$data)
      or die $t->error;
    return $t->schema();
}