#!/usr/bin/perl
use strict; use warnings;
use Test::More tests => 1;

my ( $DS1, $DS2 ) = get_hashes();
is_deeply( $DS1, $DS2 );


sub get_hashes {
    my %DS1 = (
        PERL => [
            {
                TABLES => {
                    TABSCHEMA => "VARCHAR(128)",
                    TABNAME => "VARCHAR(128)",
                }
            },
            {
                COLUMNS => {
                    TABSCHEMA  => "VARCHAR(128)",
                    TABNAME    => "VARCHAR(128)",
                    COLNAME    => "VARCHAR(128)",
                    PARTKEYSEQ => "SMALLINT",
                }
            }
        ]
    );

    my %DS2 = (
        PERL => [
            {
                TABLES => {
                    TABSCHEMA => "VARCHAR(256)",
                    TABNAME   => "VARCHAR(128)",
                }
            },
            {
                COLUMNS => {
                    TABSCHEMA  => "VARCHAR(256)",
                    TABNAME    => "VARCHAR(128)",
                    COLNAME    => "VARCHAR(128)",
                    PARTKEYSEQ => "SMALLINT",
                }
            }
        ]
    );

    return ( \%DS1, \%DS2 );
}

__END__

##</code><code>##

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.