如何比较JSON和Test::Deep？

Question

当我运行以下代码时：

use strict;
use warnings;
use Test::Deep;
use Test::Deep::JSON;

cmp_deeply(json("{}"), json("{}"));

我得到了

Found a special comparison in $data
You can only use specials in the expects structure at /usr/local/share/perl/5.26.1/Test/Deep.pm line 348.
    Test::Deep::descend(Test::Deep::JSON=HASH(0x5559ec3b3810), Test::Deep::JSON=HASH(0x5559ecb236a8)) called at /usr/local/share/perl/5.26.1/Test/Deep.pm line 221
    Test::Deep::cmp_details(Test::Deep::JSON=HASH(0x5559ec3b3810), Test::Deep::JSON=HASH(0x5559ecb236a8)) called at /usr/local/share/perl/5.26.1/Test/Deep.pm line 202
    Test::Deep::cmp_deeply(Test::Deep::JSON=HASH(0x5559ec3b3810), Test::Deep::JSON=HASH(0x5559ecb236a8)) called at jsondiff.pl line 6

为什么会这样?我如何比较两个JSON字符串？

Answer 1

use Test::More tests => 1;

use Test::Deep;
use Test::Deep::JSON;

my $json_to_check = '{}';

cmp_deeply($json_to_check, json({}));

如果您想从JSON开始，只需在将其传递给json之前对其进行解码。

use feature qw( state );

use Test::More tests => 1;

use Test::Deep;
use Test::Deep::JSON;

use Cpanel::JSON::XS qw( );

sub from_json {
   state $json = Cpanel::JSON::XS->new();
   return $json->decode($_[0]);
}

my $json_to_check = '{}';

cmp_deeply($json_to_check, json(from_json('{}')));