From: Dave Rolsky <autarch@urth.org>
Date: Thu, 4 Dec 2008 17:08:29 +0000 (+0000)
Subject: Sort the lists we iterate through to make finding a specific test in
X-Git-Tag: 0.71_02~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0586121eae093363a72ecfb21772a8b7b395557f;hp=c0ae440b63d5ba5acacb525b336ec78c36841fd9;p=gitmo%2FClass-MOP.git

Sort the lists we iterate through to make finding a specific test in
the output a little easier.
---

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index 796a561..19eff89 100644
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -91,7 +91,7 @@ my @class_mop_class_methods = qw(
 
 is_deeply([ sort $class_mop_class_meta->get_method_list ], [ sort @class_mop_class_methods ], '... got the correct method list for class');
 
-foreach my $method_name (@class_mop_class_methods) {
+foreach my $method_name (sort @class_mop_class_methods) {
     ok($class_mop_class_meta->has_method($method_name), '... Class::MOP::Class->has_method(' . $method_name . ')');
     {
         no strict 'refs';
@@ -105,7 +105,7 @@ foreach my $method_name (@class_mop_class_methods) {
 
 is_deeply([ sort $class_mop_package_meta->get_method_list ], [ sort @class_mop_package_methods ], '... got the correct method list for package');
 
-foreach my $method_name (@class_mop_package_methods) {
+foreach my $method_name (sort @class_mop_package_methods) {
     ok($class_mop_package_meta->has_method($method_name), '... Class::MOP::Package->has_method(' . $method_name . ')');
     {
         no strict 'refs';
@@ -119,7 +119,7 @@ foreach my $method_name (@class_mop_package_methods) {
 
 is_deeply([ sort $class_mop_module_meta->get_method_list ], [ sort @class_mop_module_methods ], '... got the correct method list for module');
 
-foreach my $method_name (@class_mop_module_methods) {
+foreach my $method_name (sort @class_mop_module_methods) {
     ok($class_mop_module_meta->has_method($method_name), '... Class::MOP::Module->has_method(' . $method_name . ')');
     {
         no strict 'refs';
@@ -175,7 +175,7 @@ is_deeply(
     [ sort @class_mop_class_attributes ],
     '... got the right list of attributes');
 
-foreach my $attribute_name (@class_mop_class_attributes) {
+foreach my $attribute_name (sort @class_mop_class_attributes) {
     ok($class_mop_class_meta->has_attribute($attribute_name), '... Class::MOP::Class->has_attribute(' . $attribute_name . ')');
     isa_ok($class_mop_class_meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
 }
@@ -192,7 +192,7 @@ is_deeply(
     [ sort @class_mop_package_attributes ],
     '... got the right list of attributes');
 
-foreach my $attribute_name (@class_mop_package_attributes) {
+foreach my $attribute_name (sort @class_mop_package_attributes) {
     ok($class_mop_package_meta->has_attribute($attribute_name), '... Class::MOP::Package->has_attribute(' . $attribute_name . ')');
     isa_ok($class_mop_package_meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
 }
@@ -209,7 +209,7 @@ is_deeply(
     [ sort @class_mop_module_attributes ],
     '... got the right list of attributes');
 
-foreach my $attribute_name (@class_mop_module_attributes) {
+foreach my $attribute_name (sort @class_mop_module_attributes) {
     ok($class_mop_module_meta->has_attribute($attribute_name), '... Class::MOP::Module->has_attribute(' . $attribute_name . ')');
     isa_ok($class_mop_module_meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
 }