From 94d4ecede542aa0ae5e33e1aa68c6d9731bf295e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Fri, 2 Aug 2013 19:09:45 +0200 Subject: [PATCH] Fix tests to cope radnomized hash keys MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Similar patch is in Moose. Signed-off-by: Petr Písař --- t/003_basic_hash.t | 4 ++-- t/203_trait_hash.t | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/t/003_basic_hash.t b/t/003_basic_hash.t index 1f842ae..c21ac52 100644 --- a/t/003_basic_hash.t +++ b/t/003_basic_hash.t @@ -170,10 +170,10 @@ is_deeply($options->provides, { is($options->type_constraint->type_parameter, 'Str', '... got the right container type'); $stuff->set_option( oink => "blah", xxy => "flop" ); -my @key_value = $stuff->key_value; +my @key_value = sort{ $a->[0] cmp $b->[0] } $stuff->key_value; is_deeply( \@key_value, - [ [ 'xxy', 'flop' ], [ 'quantity', 4 ], [ 'oink', 'blah' ] ], + [ sort{ $a->[0] cmp $b->[0] } [ 'xxy', 'flop' ], [ 'quantity', 4 ], [ 'oink', 'blah' ] ], '... got the right key value pairs' ); diff --git a/t/203_trait_hash.t b/t/203_trait_hash.t index 8e876b1..451c0bb 100644 --- a/t/203_trait_hash.t +++ b/t/203_trait_hash.t @@ -156,10 +156,10 @@ is_deeply($options->provides, { is($options->type_constraint->type_parameter, 'Str', '... got the right container type'); $stuff->set_option( oink => "blah", xxy => "flop" ); -my @key_value = $stuff->key_value; +my @key_value = sort{ $a->[0] cmp $b->[0] } $stuff->key_value; is_deeply( \@key_value, - [ [ 'xxy', 'flop' ], [ 'quantity', 4 ], [ 'oink', 'blah' ] ], + [ sort{ $a->[0] cmp $b->[0] } [ 'xxy', 'flop' ], [ 'quantity', 4 ], [ 'oink', 'blah' ] ], '... got the right key value pairs' ); -- 1.8.1.4