#!/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__