01-simple.t

use strict;
use warnings;
use utf8;
use Test::More 0.96;

# Yes, this is silly.
# please write correct test case and pull-req for me!
use Data::Difflet;

my $difflet = Data::Difflet->new();

note $difflet->compare(+{
    1 => 2,
    2 => 3,
    foo => 'bar',
}, {1 => 2, 2 => 4, 3 => 1});

note $difflet->compare(+{
    1 => 2,
    2 => 3,
    foo => 'bar',
}, [1,2,3]);

note $difflet->compare(+[
    4,
    2,
    3,
    8
], [1,2,3]);

note $difflet->compare(+[1], {});
note $difflet->compare('a', 'b');
note $difflet->compare('a', 'a');

note $difflet->compare(
    +[
        {
            1 => 2,
            2 => 3,
        },
    ],
    [ { 2 => 4, 3 => 5 } ]
);

note $difflet->compare(
    +[
        {
            1   => 2,
            2   => 3,
            foo => [ 3, 4, 7, 8 ]
        },
    ],
    [ { 2 => 4, 3 => 5, foo => [ 3, 4, 5 ] } ]
);

ok 1;

done_testing;