#!/usr/bin/perl
use strict;
use warnings;
my %h1 = ( a=>1, b=>2, c=>3 );
my %h2 = ( a=>3, b=>2, d=>4, e=>5 );

##</code><code>##

use Test::More qw/no_plan/;
is_deeply( \%h1, \%h2, "h1 vs h2" );
__END__
not ok 1 - h1 vs h2
#   Failed test 'h1 vs h2'
#   in /tmp/h at line 10.
#     Structures begin differing at:
#          $got->{e} = Does not exist
#     $expected->{e} = '5'
1..1
# Looks like you failed 1 test of 1.

##</code><code>##

use Test::More qw/no_plan/;
use Test::Differences;
eq_or_diff \%h1, \%h2,   "testing hashes";
__END__
not ok 1 - testing hashes
#   Failed test 'testing hashes'
#   in /tmp/h at line 11.
# +----+-----------+----+-----------+
# | Elt|Got        | Elt|Expected   |
# +----+-----------+----+-----------+
# |   0|{          |   0|{          |
# *   1|  a => 1,  *   1|  e => 5,  *
# |    |           *   2|  a => 3,  *
# |   2|  b => 2,  |   3|  b => 2,  |
# *   3|  c => 3   *   4|  d => 4   *
# |   4|}          |   5|}          |
# +----+-----------+----+-----------+
1..1
# Looks like you failed 1 test of 1.

##</code><code>##

use Test::More qw/no_plan/;
use Test::Deep;
cmp_deeply \%h1, \%h2,   "testing hashes";
__END__
not ok 1 - testing hashes
#   Failed test 'testing hashes'
#   in /tmp/h at line 11.
# Comparing hash keys of $data
# Missing: 'd', 'e'
# Extra: 'c'
1..1
# Looks like you failed 1 test of 1.