From: Stevan Little <stevan.little@iinteractive.com>
Date: Mon, 12 May 2008 23:15:03 +0000 (+0000)
Subject: fixing a test bug about hash ordering
X-Git-Tag: 0_55~178
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a28289deb58b4641a9a7911dc92411dbae65be5;p=gitmo%2FMoose.git

fixing a test bug about hash ordering
---

diff --git a/Changes b/Changes
index 0da6bfd..747f927 100644
--- a/Changes
+++ b/Changes
@@ -31,6 +31,9 @@ Revision history for Perl extension Moose
     * t/
       - fixed Win32 test failure (thanks spicyjack)
 
+    ~ removed Build.PL and Module::Build compat 
+      since Module::Install has done that.
+
 0.43 Wed. April, 30, 2008
     * NOTE TO SELF:
         drink more coffee before 
diff --git a/MANIFEST b/MANIFEST
index e1d5ce1..3a789ed 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,11 +1,9 @@
-Build.PL
 Changes
 doap.rdf
 inc/Module/AutoInstall.pm
 inc/Module/Install.pm
 inc/Module/Install/AutoInstall.pm
 inc/Module/Install/Base.pm
-inc/Module/Install/Build.pm
 inc/Module/Install/Can.pm
 inc/Module/Install/Fetch.pm
 inc/Module/Install/Include.pm
diff --git a/t/000_recipes/011_recipe.t b/t/000_recipes/011_recipe.t
index 5e30e36..7e5abcf 100644
--- a/t/000_recipes/011_recipe.t
+++ b/t/000_recipes/011_recipe.t
@@ -48,7 +48,9 @@ BEGIN {
         
         # iterate over all the attributes in $self
         my %attributes = %{ $self->meta->get_attribute_map };
-        while (my ($name, $attribute) = each %attributes) {
+        foreach my $name (sort keys %attributes) {
+    
+            my $attribute = $attributes{$name};
             
             # print the label if available
             if ($attribute->isa('MyApp::Meta::Attribute::Labeled')
@@ -71,8 +73,8 @@ BEGIN {
 }
 
 my $app = MyApp::Website->new(url => "http://google.com", name => "Google");
-is($app->dump, q{The site's URL: http://google.com
-name: Google
+is($app->dump, q{name: Google
+The site's URL: http://google.com
 }, '... got the expected dump value');