perl - is_deeply 测试忽略数组顺序？

Question

我正在寻找像 is_deeply 这样的测试例程在 Test::More .
有cmp_bag来自 Test::Deep 但这仅适用于数组本身，而不是我传入的非常大的哈希数组哈希数据结构。是否有类似的东西:

is_deeply $got, $expected, {
    array => cmp_bag,
    # and other configuration...
}, "Ugly data structure should be the same, barring array order.";

澄清

我可以递归地钻研我的 $expected和 $got对象并将数组转换为包对象:

sub bagIt {
    my $obj = shift;
    switch (ref($obj)) {
        case "ARRAY"    {
            return bag([
                map { $_ = bagIt($_) }
                @$obj
            ]);
        } case "HASH"   {
            return {
                map { $_ => bagIt( $obj->{$_} ) }
                keys %$obj
            };
        } else {
            return $obj;
        }
    }
}

我想知道是否有办法告诉 is_deeply 的某些变体为我做这件事。

Answer 1

好吧，来自 Test::Deep docs , cmp_bag(\@got, \@bag, $name)只是 cmp_deeply(\@got, bag(@bag), $name) 的简写.

is_deeply( $got, {
    array => bag(qw/the values you expect/),
    # and other expected values
}, "Ugly data structure should be the same, barring array order." );