is_deeply array orderを無視してテストしますか？

Question

is_deeplyのようなテストルーチンをTest::Moreに探しています。 ありTest::Deepからcmp_bagだが、これが唯一の配列そのものではなく、私が渡している恐ろしく大きなハッシュ・オブ・アレー・オブ・ハッシュデータ構造に作用するようなものがあります：。

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

が見えます各アレイをバッグセットとして扱うことができます。以下の機能が動作しますが、大規模なデータ構造の上にテストのための効率的ではありません。

sub bagIt { 
    my $obj = shift; 
    my $ref = ref($obj); 
    if ($ref eq 'ARRAY') { 
     return Test::Deep::bag(
      map { $_ = bagIt($_) } 
      @$obj 
     ); 
    } elsif ($ref eq 'HASH') { 
     return { 
      map { $_ => bagIt($obj->{$_}) } 
      keys %$obj 
     }; 
    } else { 
     return $obj; 
    } 
} 

最後に、私は、このようなコースグレインテストに依存しないように私のコードをリファクタリングすることになりました。

Answer 2

まあ、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."); 

Answer 3

あなたが書いたbagIt機能を使用して、あなたは常にあなたのためbagItを適用is_deeplyのラッパーを作ることができる：Test::Deepまたは他のTest::*内のオプションがないよう

sub is_deep_bag { 
    splice @_, 1, 1, bagIt($_[1]); 
    goto &is_deeply # magic goto so that errors are reported on the right line 
}