# -*- Mode: Perl -*-

BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use Data::Compare;

local $^W = 1;
print "1..4\n";

my $test = 0;

print 'not ' unless(Compare(
    { foo => 'FOO', bar => 'BAR', baz => 'BAZ' },
    { foo => 'FOO', bar => 'BAR' },
    { ignore_hash_keys => [qw(baz)] }
) == 1);
print 'ok '.(++$test)." different hashes compare the same when ignoring extra key in first\n";

print 'not ' unless(Compare(
    { foo => 'FOO', bar => 'BAR' },
    { foo => 'FOO', bar => 'BAR', baz => 'BAZ' },
    { ignore_hash_keys => [qw(baz)] }
) == 1);
print 'ok '.(++$test)." different hashes compare the same when ignoring extra key in second\n";

print 'not ' unless(Compare(
    { foo => 'FOO', bar => 'BAR', baz => [] },
    { foo => 'FOO', bar => 'BAR', baz => 'BAZ' },
    { ignore_hash_keys => [qw(baz)] }
) == 1);
print 'ok '.(++$test)." ignoring a key that differs works\n";

print 'not ' unless(Compare(
    { foo => 'FOO', bar => 'BAR', baz => [] },
    { foo => 'FOO', bar => 'BAR', baz => 'BAZ' },
    { ignore_hash_keys => [qw(bar)] }
) == 0);
print 'ok '.(++$test)." ignoring equal data in differing hashes compares unequal\n";