From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Fri, 15 Jan 2010 18:32:16 +0000 (+0000)
Subject: don't use eq_set in test
X-Git-Tag: v0.08116~50^2~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c109205598ae1f49a0f9213396e82fe1400f8585;p=dbsrgits%2FDBIx-Class.git

don't use eq_set in test
---

diff --git a/t/99dbic_sqlt_parser.t b/t/99dbic_sqlt_parser.t
index ccfc60a..81381e9 100644
--- a/t/99dbic_sqlt_parser.t
+++ b/t/99dbic_sqlt_parser.t
@@ -50,9 +50,9 @@ my @sources = grep
     
     for my $index (@indices) {
         my $source = $schema->source($source_name);
-        my @pks = $source->primary_columns;
-        my @idx_cols = $index->fields;
-        ok ( !eq_set(\@pks, \@idx_cols), "no additional index for the primary columns exists in $source_name");
+        my $pk_test = join("\x00", sort $source->primary_columns);
+        my $idx_test = join("\x00", sort $index->fields);
+        isnt ( $pk_test, $idx_test, "no additional index for the primary columns exists in $source_name");
     }
   }
 }