From 94d4ecede542aa0ae5e33e1aa68c6d9731bf295e Mon Sep 17 00:00:00 2001

From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>

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.

<https://rt.cpan.org/Public/Bug/Display.html?id=81564>

Signed-off-by: Petr Pц╜saе≥ <ppisar@redhat.com>

---

 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