don't use eq_set in test

[dbsrgits/DBIx-Class-Historic.git] / t / 99dbic_sqlt_parser.t

diff --git a/t/99dbic_sqlt_parser.t b/t/99dbic_sqlt_parser.t
index ccfc60a..81381e9 100644 (file)
--- 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");
     }
   }
 }