Issue in is_deeply test in t/dumptruck.t in situation when dump() returns things like JSON::PP::Boolean

[michal-josef-spacek]

Affected test:

is_deeply ($dt3->dump, [{
        name => 'Behemoth',
        age => 666,
        yes => !!1,
        wide => 'Pišišvorík',
        foo => undef,
        random => {
                name => 'Behemoth',
                age => 666,
                yes => !!1,
                wide => 'Pišišvorík',
                foo => undef,
        },
}], 'Proper data was retrieved from the database');

Structure for 'random' key is JSON string which si decoded by decode_json() to dump(). If in this structure come JSON::PP::Boolean (in yes), comparison is_deeply() isn't working.

[michal-josef-spacek]

Example fail in Fedora builiding system:

+ ./Build test
#   Failed test 'Proper data was retrieved from the database'
#   at t/dumptruck.t line 189.
#     Structures begin differing at:
#          $got->[0]{random}{yes} = 1
#     $expected->[0]{random}{yes} = '1'
# Looks like you failed 1 test of 43.
t/dumptruck.t ..

[michal-josef-spacek]

Structure from dump() in test case is (printed by Data::Printer::p):

[
    [0] {
            age      666,
            foo      undef,
            name     "Behemoth",
            random   {
                age    666,
                foo    undef,
                name   "Behemoth",
                wide   "Pišišvorík",
                yes    1 (JSON::PP::Boolean)
            },
            wide     "Pišišvorík",
            yes      1
        }
]

[michal-josef-spacek]

Possible fix: https://src.fedoraproject.org/rpms/perl-Database-DumpTruck/c/20e8880e98b146200c20f379edd847b49f4aea0d?branch=rawhide