1..1
not ok 1
#   Failed test at 1157115.pl line 7.
#     Structures begin differing at:
#          $got->{PERL}[0]{TABLES}{TABSCHEMA} = 'VARCHAR(128)'
#     $expected->{PERL}[0]{TABLES}{TABSCHEMA} = 'VARCHAR(256)'
# Looks like you failed 1 test of 1.